1、5800計算器全線坐標計算放樣程序（修改版） “XLZBJSCX” （ 第一個程序） Lb1 0 Cls : Fix 4 : 30Dimz “XHS="?G ( 后視點 X) :"YHS="?L ( 后視點 Y) :"XZJ="?M ( 置鏡點 X) :"YZJ="?N ( 置鏡點 Y) :Pol(G-M,L-N):"DH=":I ( 后視距 ) J<0=>J+360J:"FH=":JDMS ( 后視方位角 )Lbl 1 ( If （如果的意思） And （和字的

2、意思） Then （然后的意思） ) “K=”?K （計算里程） ( 下面有色的是數據庫 )If （如果） K< 51760.052 本曲線 緩直點 樁號 And （ 和） K 51048.785 上一個曲線 緩直點 樁號 ： Then （然后） 本曲線 緩直點 樁號 51760.052 Z1 : 上一個曲線 緩直點 樁號 51048.785 Z2 ： 1 -1 O （注： 左偏曲線輸 入 - 1O, 右偏曲線輸入 1O ） : 偏角 12 23 19.5 A ： 半徑 3289.486 R : 第一緩和曲線 長度 0 Z6 : 第二緩和曲線 長度 0 Z7 : 交點 X 坐標 B :

3、交點 Y 坐標 C : 小里程向交點 方位角 E : 交點向大里程 方位角 F : Goto 2 : IfEnd ( 重蘭字是輸入的數字 ) （曲線段分段輸入） 補充直線段輸入如下 If （如果） K< 本段直線 終點 里程 And （ 和） K 本段直線 起點 里程 :Then （然后） 1O: 本段直線 終點 里程 Z3: 終點 坐標 XZ16: 終點 坐標 YZ17: 方位角 E:Goto 4:IfEnd Lb1 2 （曲線要素計算） Z6 ÷ 2- Z6 3 ÷ (240R2)+ Z6 5 ÷ (34560*R4) Z8 （ M1 不輸） Z7 &#

4、247; 2- Z7 3 ÷ (240R2)+ Z7 5 ÷ (34560 R4) Z9 （ M2 不輸） Z6 2 ÷ (24R)- Z6 4 ÷ (2688R3) Z10 （ P1 不輸） Z7 2 ÷ (24R)- Z7 4 ÷ (2688R3) Z11 （ P2 不輸） (AR ) ÷ 180+0. 5 × ( Z6+ Z7)S （曲線總長） 90 × Z6 ÷ ( R × ) Z14 （第一緩和曲線總偏角） ( ×÷以后自己改 ) 9 0 × Z

5、7 ÷ ( R × ) Z15 （第二緩和曲線總偏角 , 可以省略） Z8 （ R+Z10)TAN(A/2)-(Z10-Z11 )/SIN AZ12 ( 切線 T1)Z9 （ R+Z11)TAN(A/2)+(Z10-Z11 )/SIN AZ13 ( 切線 T2)B+ Z12*COS (E+180) Z16 （ ZH 點 X ） C+ Z12*SIN(E+180) Z17 （ ZH 點 Y ） Z1-SZ3 (ZH 點里程 )Z3+ Z6Z4 (HY 點里程 )Z1- Z7Z5 (YH 點里程 )GOTO 3 LB1 3 ( 判斷里程點與曲線關系 )If KZ3 And K&

6、gt; Z2 : Then Goto 4 : IfEnd If KZ4 A nd K> Z3 : T hen Goto 5 : IfEnd If KZ5 A nd K> Z4 : T hen Goto 6 : IfEnd If KZ1 A nd K> Z5 : T hen Goto 7 : IfEnd LB1 4 （里程小于直緩點直線獨立坐標） K- Z3 X : 0Y : ET : Prog“TYZBCX” ： Goto 1 Lb1 5 （第一緩和曲線獨立坐標） K- Z3 H H-H5/(40*R2* Z62)+H9/(3456*R4* Z64) X H3/(6*R* Z

7、6)-H7/(336*R3* Z63) Y 90*H2/( R* Z6) T IF O >0 ： Then T +ET : Else E-T T : T<0=>360+TT : IfEnd PRrog“TYZBCX” ： Goto 1 Lb1 6 （圓曲線獨立坐標） K- Z4 H H*180/( R*)+ Z14T R*SIN( T)+ Z8X R*(1-COS (T)+ Z10Y IF O >0 ： Then T +ET : Else E-T T : T<0=>360+TT : IfEnd Prog“TYZBCX” ： Goto 1 Lb1 7 （第二緩

8、和曲線獨立坐標） Z1 -K H H-H5/(40*R2* Z72)+H9/(3456*R4* Z7 4) U H3/(6*R* Z7)-H7/(336*R3* Z73) V 90*H2/( R* Z7) T Z13COS (A)+ Z12-U*COS( A)-V*SIN (A)X Z13*SIN( A)-U*SIN( A)+V*COS (A)Y IF O >0 ： Then F-TT : T<0=>360+TT : Else F+T T : IfEnd Prog“TYZBCX” ： Goto 1 子程序： “TYZBCX” （統一坐標計算） （ 第 2 個程序） IF O&

9、lt;0 : Then -YY : IfEnd “QXJ=” :T （計算里程點切線方位角，可以不顯示） Z16+X*COS (E)-Y*SIN( E)Z18 Z17+X*SIN (E ） +Y*COS (E ） Z19 “XI=” : Z18 （ XI 中線 X ） “ YI =” : Z19 （ YI 中線 Y ） Pol(Z18-M,Z19-N):"DI=":I （中樁放樣距） J<0=>J+360J:"FI=": J DMS （ 中樁放樣方位角） “ PJ =”?P ( 輸入邊樁與線路夾角 PJ ，左偏 90 右 +90 ) “ PD

10、 =”?D （輸入邊樁距 PD ） Z18+D*COS(T+P) Z20 Z19+D*SIN(T+P) Z21 “XP=”: Z20 （ XP 邊樁 X ） “YP=”: Z21 （ YP 邊樁 Y ） Pol(Z20-M,Z21-N):"DP=":I （邊樁放樣距） J<0=>J+360J:"FP=":J DMS （邊樁放樣方位角） Return （以上都要輸進計算器）注解不輸 K 里程 XI 中線 X YI 中線 Y PD 輸入邊樁距 XP 邊樁 X 坐標 YP 邊樁 Y 坐標 I 邊樁放樣距 PJ 輸入邊樁與線路夾角，左偏 90 右 +

11、90 ) I 中樁放樣距 T 計算里程點切線方位角，可以不顯示 卡西歐FX5800全線貫通萬能正、反算程序FX5800計算器的積分程序（正反算、全線貫通、新線路）終極版ZHUCHENGXU    主程序"1.ZS,2.FS" ?Q              輸入1正算，輸入2反算  “NEW=0,OLD 0”?ZIf  Z=0:Then 

12、 “X0=”?A:“Y0=”?B:“C0=”?C:“1/R0=”?D:“1/RI=”?E:“SP=”?F:“EP=”?G:Ifend:Q=2=>Goto 2Lbl  1 :“KM=,<0 Stop”?H:H<0=>Stop:“PJ=”?O:“PY=”?LLbl  Z:Z=1=> Prog“01”：Z=2=> Prog“02”               

13、0;選擇數據庫文件，可增加H- FX:0.5(E-D)÷(G-F)NC+(XD+NX2)*180÷P：P<0=>P+360P：P>360=>P-360PA+(cos(C+(XD+NX2)*180÷),0,X)+Lcos(P+O)UB+(sin(C+(XD+NX2)*180÷),0,X)+Lsin(P+O)VQ=2=>Goto  4：Cls：Fix 3"Xn=":Locate  4，1，U："Yn=": Locate  5，2，

14、V：“FWJ=”：PDMSNorm 2：Cls：Goto  1Lbl  2:“XD=,<0,STOP”？R：R<0=>Stop:“YD=”？S“KMDG=”？H ：90O:0L：Goto  Z                 （H線路范圍內的任意樁號）Lbl  4:Pol（R-U，S-V）：J<0 => J+360JWhile&

15、#160; abs（Icos（J-P）0.001:P-J>180=> J+360J： P-J<-180=> P+360P:IF P-J>0:then -IL:else IL ifendGoto  3: Whileend：H+Icos（J-P）H:Goto  ZLbl  3:Cls：Fix 3“KM=”: Locate  4，1，H：“PY=”: Locate  4，2，LNorm 2：Cls：Goto  201（數據庫子程序）If H&

16、lt;=第一曲線終點樁號：then  第一曲線起點XA：第一曲線起點YB：第一曲線起點方位角C：起點曲率D：終點曲率E：起點樁號F：終點樁號G：return：ifend程序說明：1、該程序可以計算任意線形（直線、圓曲線、緩和曲線、不完整曲線）任意樁號的坐標（正算，輸入1），也可根據坐標計算該點到線路的距離及垂足樁號（反算，輸入2）；2、（NEW=0，OLD0）？如果要計算的點為數據庫線路中的點，則輸入數據庫編號（以整數1、2、3代替輸入）；如果在數據庫中沒有要計算線路的數據，則輸入曲線要素X0：曲線起點X坐標；Y0：曲線起點Y坐標；C0:曲線起點方位角；R0-1、 RI-1

17、:曲線起點、終點曲率，直線為0，曲線左偏輸入負值，右偏輸入正值；SP、 EP：曲線起點樁號，終點樁號；KM：待求點樁號；PJ：正斜交的設定；PY：偏中距離，線路上的點輸入0，右偏輸入+值，左偏輸入-值；3、正算顯示坐標及切線方位角；反算輸入線路的任意樁號（此樁號越接近真實值計算速度越快）、待求點坐標，顯示待求點樁號及偏中距離；4、正算子程序為積分公式編寫而成；反算子程序為角度趨近的方法編寫，計算速度有點慢。5、此程序顯示較直觀，結果在同一屏幕顯示。注* ：程序中乘號用*標示，其余為X。CASIO fx5800P公路施工放線測量公式及程序一、已知座標，求平距和方位角(座標反算)： 公式： D=（

18、Xp-Xo）2+（Yp-Yo）2 =arctg(Yp-Yo)/(Xp-Xo) 程序：“A”？A：“B”？B：Lbl 0:“X”？X：“Y”？Y：（X-A）M：（Y-B）N：“D=”：（M2+N2 ） tan-1(N/M) C:If M0:Then “Q=”：180+C Q Else If N0: Then “Q=”：CQ Else “Q=”：360+CQ If End : If End : Goto 0 說明：（A，B）為測站點坐標，（X，Y）為所求點坐標。輸出：D為平距，Q為方位角。二、已知直線的坐標方位角Q和直線起點坐標（Xo,Yo），求直線上任一點的中樁坐標（X， Y），左右邊樁坐標（X

19、L，YL）、（XR，YR）： 公式：X =Xo+LcosQ Y=Yo+LsinQ程序：“C”？C：“D”？D：“Q”？Q：“Z”？Z：“U”?U：“T”？T：“V”？V：Lbl 1: “L”？L：Abs（L-Z）W：“X=”：C+W*cos(Q)X “Y=”： D+W*sin(Q)Y If U0:Then Goto1:Else “XL=”:X+U*cos(Q-V)A “YL=”：Y+U*sin(Q-V)B“XR=”:X+T*cos(Q+V)E“YR=”：Y+T*sin(Q+V)F Goto 1 說明：（C，D）為直線起點坐標，Q為直線方位角，Z為起點樁號，L為所求坐標點樁號。“U”為左邊距，“

20、T”為右邊距，“V”為偏角；U=0時不算邊樁坐標。輸出：（X，Y）為中 樁坐標，（XL，YL）為左邊樁坐標，（XR，YR）為右邊樁坐標。三、已知圓曲線起點坐標（U，V），切線方位角Q，樁號Z和圓半徑R，求圓曲線上樁號為 L的點中樁坐標（X，Y），左右邊樁坐標（XL，YL）、（XR，YR）： 公式： =90L/(R) (偏角公式） C=2Rsin (對應弧的弦長公式） 弦的方位角:Q=Qo± （曲線左轉時為“-”）程序：“U”？U：“V”？V：“Q”？Q：“R”？R：“Z”？Z：“W=-1，1”： ？W：“ZJ=”：？Z1：“YJ=”：？Z2：“PIAN JIAO”：？T：Lbl 2:

21、 “L”？L：180*（L-Z）/（2*R）J：R*2sin(J)K:If W=-1:Then “X=”:U+K*cos (Q-J）X “Y=”：V+K*sin(Q-J)Y “Q=”：Q-180*（L-Z）/（R）O Else If W=1:Then“X=”:U+K*cos(Q+J）X“Y=”：V+K*sin(Q+J)Y “Q=”：Q+180*（L-Z）/（R）O IfEnd:IfEnd:T=0=Goto 2：“XL=”:X+Z1*cos(O-T)F“YL=”：Y+Z1*sin(O-T)P “XR=”:X+Z2*cos(O+T)“YR=”：Y+Z2*sin(O+T) Goto 2 說明：W=-

22、1時曲線左轉, W=1時曲線右轉。“ZJ=”為左邊距，“YJ=”為右邊距，“PIAN JIAO”為偏角，偏角輸0時不算邊樁坐標。輸出：（X，Y）為中樁坐標，“Q=”為所求點 方位角，（XL，YL）為左邊樁坐標，（XR，YR）為右邊樁坐標。四、已知直緩點坐標（M，N）、方位角Q、樁號Z，緩和曲線全長S和連接圓半徑R，求緩和 曲線上任一點（樁號為L）的中樁坐標（X，Y），左右邊樁坐標（XL，YL）、（XR，YR）： 公式： =30L2/(RLs) C=L-L5/(90R2Ls2) =±90Ls2/(A2)程序：“M”？M：“N”？N：“R”R：“A”？A：“S”?S：“Z”？Z：“Q”？

23、Q：“W=-1，1”：？W：“ZJ=”？Z1：“YJ=”？Z2：“PIAN JIAO”：？ T：Lbl 3:“L”？L：Abs (L-Z)H:30*H2/(RS)D:H-H5/(90R2S2)C:If W=-1:Then “X=”：M+C*cos(Q-D)X“Y=”：N+C*sin(Q-D)Y A =0 =Goto 3:“Q=”:Q-90H/(A）E Else If W=1:Then “X=”：M+C*cos(Q+D)X“Y=”：N+C*sin(Q+D)Y A=0 =Goto 3:“Q=”:Q+90*H/(A）E IfEnd:IfEnd:T=0=Goto 3：“XL=”:X+Z1*cos(E-

24、T)“YL=”：Y+Z1*sin(E-T) “XR=”:X+Z2*cos(E+T)“YR=”： Y+Z2*sin(E+T) Goto 3說明：“A”為緩和曲線參數，W=-1時曲線左轉, W=1時曲線右轉。“ZJ=”為左邊距，“YJ=”為右邊距，“PIAN JIAO”為偏角，偏角輸0時不算邊樁坐標。輸出：（X，Y）為中樁坐標，“Q=”為所求點方位角，（XL，YL）為左邊樁坐標，（XR，YR）為右邊樁坐標。五、已知卵形曲線（即非完整緩和曲線）大圓半徑R，小圓半徑r，緩和曲線參數A，以大圓的圓緩點為起點，其坐標為（C，D），其方位角為Q，其樁號為Z，求樁號為L的點的中樁坐 標（X，Y），左、右邊樁坐

25、標（XL，YL）、（XR，YR）。 公式：偏角：=arctg(Yp-Yo)/(Xp-Xo)-90LR/(R)Xj=Lj-Lj5/(40A4)+Lj9/3456A8- ， Yj=Lj3/(6A2)-Lj7/(336A6)+Lj11/(42240A10)- Lj=A/Rj(Rj為曲率半徑） S=(Xp-Xo)2+(Yp-Yo)2（弦長公式）=Q±（弦線方位角公式） Xp=Xo+S *cos , Yp=Yo+sin程序：“A”？A：“C”？C：“D”？D：“R”？R：“Q”？Q：“Z”？Z：“W=-1，1”？W：A /RJ:J-J5/(40*A4)+J9/(3456*A8)E:J3/(6*

26、A2)-J7/(336*A6)+J11/(42240*A10)F:90*J/(R)B:“ZJ=”？Z1：“YJ=”？Z2：“PIAN JIAO”：？T：Lbl 4:“L”？L: J+Abs(L-Z)S:S-S5/(40*A4)+S9/(3456*A8)M:S3/(6*A2)-S7 /(336*A6)+S11/(42240*A10)N:Abs(M-E)G:Abs(N-F)H:(G2+H2)K:arctg(H/G)I:If I0:Then I+360U:Else IU: IfEnd: If W=-1:Then Q-(U-B)V:“X=”：C+K*cos(V)X“Y=”：D+K*sin(V)Y “Q

27、=”:Q-90*S2/(A2)-90*J2/(A2) O Else If W=1:Then Q+(U- B)V:“X=”：C+K*cos(V)X“Y=”：D+K*sin(V)Y“Q=”: Q+90*S2/(A2)-90*J2/(A2) O IfEnd:IfEnd:T=0=Goto 4:“XL=”:X+Z1*cos (O-T)“YL=”：Y+Z1*sin(O-T) “XR=”:X+Z2*cos(O+T)“YR=”：Y+Z2* sin(O+T) Goto 4說明：“A”為緩和曲線參數，W=-1時曲線左轉, W=1時曲線右轉。“ZJ=”為左邊距，“YJ=”為右邊距，“PIAN JIAO”為偏角，偏角

28、輸0時不計算邊樁坐標。輸出：（X，Y）為中樁坐標，“Q=”為所求點方位角，（XL，YL）為左邊樁坐標，（XR，YR）為右邊樁坐標。 六、豎曲線計算 公式：H=X2/(2R)程序：“A”？A：“H”？H：“D”？D：“T”？T：“R”？R：“I1”？U：“I2”？V：“K(ZHONG-DIAN)”：D+TB “LY=”：B-AE Lbl 6:“K”？K：VU=1G：VU=-1G：If KA: Then D-KL:H-LUP:IfEnd:If KA And KD: Then K-AL:H-U(D-K)+GL2/(2R)P: IfEnd:If KD And KB:Then B-KL:H+V(K-D)

29、+GL2/(2*R)P:IfEnd:If KB: Then K-DL:“H(SHEJI)=”：P Goto 6說明：“A”為豎曲線起點樁號，“H”為起點高程，“D”為交點樁號，“T”為切線長，“R”為 豎曲線半徑，“I1”、“I2”為第一、二坡度。輸出：“H(SHEJI)=”為設計高程。注意的是：計算范圍不能超出到下一個豎曲線范圍內。卡西歐計算器FX-5800正反算、隧道超欠挖計算程序正算主程序 (ZS) ： Lb1 0 ： FIX 4 ： ? S ： ?Z ： Prog “ PM-SJ ” ： Abs(S-O) W ： Prog "SUB1" ： "XS= &q

30、uot; ： X "YS= " ： Y F-90 F ( 需要時可以讓他顯示，不要時不必輸入 ) ： Pro g“SQX-SJ”: Prog “ SQX ” ： “ H= ” ： H Goto 0 反算主程序 (FS) Lb1 0 ： FIX4: ? S ： ? X ：？ Y ： Prog “PM-SJ” ： X I ： Y J ： Prog "SUB2" ： "S= " ： O+WS "Z= " ： Z Prog “SQX-SJ” ： Prog “ SQX ” ： “ H= ” ： H Goto 0 隧道 3 心

31、圓放樣主程序（ SD-3XY ） Lb1 0 ： Prog “ FS ” ： 1.5 A ： 1.65 B ： 0.89 G ： 2.27 C ： 3.3 D ： 2.41 E ： 0.51 J ： “H1” ： F ： ifF H+ A ： then E-AbsZ W ： IfEn d ： ifF H+A And F H+A+ B ： then （ D&sup2;- （ F-H-A ） &sup2; ） -G-AbsZ W ： IfEn d ： ifF H+A+ B ： then （ C&sup2;- （ F-H-A-J ） &sup2; ） -AbsZ W

32、： IfEn d ： “W=” ： W （水平方向的超欠挖：正為欠 , 負為超） Goto0 正算子程序 (SUB1) 1÷P C ： (P-R)÷(2HPR) D ： 180÷ E ： 0.1739274226 A ： 0.3260725774 B ： 0.0694318442 K ： 0.3300094782 L ： 1-L F ： 1-K M ： U+W(Acos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW(C+FWD)+Acos(G+QEMW(C+MWD) X ： V+W(Asin(G+QEKW(C+KWD)+

33、Bsin(G+QELW(C+LWD)+Bsin(G+QEFW(C+FWD)+Asin(G+QEMW(C+MWD) Y ： G+QEW(C+WD)+90 F ： X+ZcosF X ： Y+ZsinF Y 反算子程序 (SUB2) G-90 T ： Abs(Y-V)cosT-(X-U)sin （ T ） ) W ： 0 Z ： Lbl 0 ： Prog "SUB1" ： T+QEW(C+WD) L ： (J-Y)cosL-(I-X)sinL Z ： ifAbsZ<1E- 6 ： thenGoto1 ： ElssW+Z W ： Goto 0 ： IfEnd Lbl 1 ：

34、 0 Z ： Prog "SUB1" ： (J-Y)÷sinF Z 子程序（平面線形數據庫） PM-SJ ifS 500 （線元起點里程） AndS 769.256 （線元止點里程）： Then19942.837 U （線元起點 X 坐標） ： 28343.561 V （線元起點 Y 坐標） ： 500 O （線元起點里程） ： 125 ° 16 ° 31 ° G （線元起點方位角） ： 269.265 H （線元長度） ： 10 （ 45 ） P （線元起點曲率半徑）： 10 （ 45 ） R （線元終點曲率半徑）： 0 Q （線元

35、左右偏標志：左負右正）： IfEnd ifS 769.256 （線元起點里程） AndS 806.748 （線元止點里程）： Then19787.34 U （線元起點 X 坐標） ： 28563.378 V （線元起點 Y 坐標） ： 769.256 O （線元起點里程） ： 125 ° 16 ° 31 ° G （線元起點方位角） ： 37.492 H （線元長度） ： 10 （ 45 ） P （線元起點曲率半徑）： 221.75 R （線元終點曲率半徑）： -1 Q （線元左右偏標志：左負右正）： IfEnd ifS 806.748 （線元起點里程） AndS

36、919.527 （線元止點里程）： Then19766.566 U （線元起點 X 坐標） ： 28594.574 V （線元起點 Y 坐標） ： 806.748 O （線元起點里程） ： 120 ° 25 ° 54.07 ° G （線元起點方位角） ： 112.779 H （線元長度） ： 221.75 P （線元起點曲率半徑）： 221.75 R （線元終點曲率半徑）： -1 Q （線元左右偏標志：左負右正）： IfEnd ifS 919.527 （線元起點里程） AndS 999.812 （線元止點里程）： Then19736.072 U （線元起點 X 坐

37、標） ： 28701.893 V （線元起點 Y 坐標） ： 919.527 O （線元起點里程） ： 91 ° 17 ° 30.63 ° G （線元起點方位角） ： 80.285 H （線元長度） ： 221.75 P （線元起點曲率半徑）： 9579.228 R （線元終點曲率半徑）： -1 Q （線元左右偏標志：左負右正）： IfEnd ifS 999.812 （線元起點里程）： Then19744.038 U （線元起點 X 坐標） ： 28781.659 V （線元起點 Y 坐標） ： 999.812 O （線元起點里程） ： 80 ° 40

38、° 50 ° G （線元起點方位角） ： 100 H （線元長度） ： 10 （ 45 ） P （線元起點曲率半徑）： 10 （ 45 ） R （線元終點曲率半徑）： 0 Q （線元左右偏標志：左負右正）： IfEnd 子程序（豎曲線數據庫） SQX-SJ ifS 999.812 （豎曲線終點里程）： then0.0357 （前坡度：上坡正下坡負） E ： 0.0227 （后坡度： 上坡正下坡負 ） F ： 600 R （豎曲線半徑）： 780 G （變坡點里程）： 110 C （變坡點高程）： IfEnd 子程序（豎曲線計算公式） SQX E-F J ： ifJ 0 ：

39、then-R R ： ElssR R ： Abs （ R*J÷2 ） T ： IfEnd ifS G- T ： thenG-S L ： C-LE H ： IfEnd ifS G- T And S G ： thenG-S L ：（ S+T-G ） &sup2;÷2÷R N ： C-LE+N H ： IfEnd ifS G And S G+ T ： then S-G L ：（ G +T- S ） &sup2;÷2÷R N ： C+LF+N H ： IfEnd ifS G+ T ： thenS-G L ： C+LF H ： IfEnd

40、 使用說明 (1) 以道路中線的前進方向（即里程增大的方向）區分左右；當線元往左偏時， Q=-1 ；當線元往右偏時， Q=1 ；當線元為直線時， Q=0 。 (2) 當所求點位于中線時， Z=0 ；當位于中線左鍘時， Z 取負值；當位于中線中線右側時， Z 取正值。 (3) 當線元為直線時，其起點、止點的曲率半徑為無窮大，以 10 的 45 次代替。 (4) 當線元為圓曲線時，無論其起點、止點與什么線元相接，其曲率半徑均等于圓弧的半徑。 (5) 當線元為完整緩和曲線時，起點與直線相接時，曲率半徑為無窮大，以 10 的 45 次代替；與圓曲線相接時，曲率半徑等于圓曲線的半徑。止點與直線相接時，曲

41、率半徑為無窮大，以 10 的 45 次代替；與圓曲線相接時，曲率半徑等于圓曲線的半徑。 (6) 當線元為非完整緩和曲線時，起點與直線相接時，曲率半徑等于設計規定的值；與圓曲線相接時，曲率半徑等于圓曲線的半徑。止點與直線相接時，曲率半徑等于設計規定的值；與圓曲線相接時，曲率半徑等于圓曲線的半徑。 CASIO5800計算器公路豎曲線全線高程計算程序 “SQXJSCX” Lb1   1 CLs:Fix   3 “K=”?k     (計算點里程輸入) If   k<67549.755 

42、  AND   K66894.3 :Then   -0.00052A : 0B : 67394.3S : 67.37G : 600000R : Goto   2 : IfEnd If   k<68708.391   AND   K67549.755 :Then   -0.0048A : -0.00052B : 68494.3S :66.8G : 100000R : Goto   2 : IfEnd If 

43、60; k<本段豎曲線終點里程   AND   K前一豎曲線終點里程 :Then   -0.0048前坡（大里程向）A : -0.00052后坡（小里程向）B : 68494.3豎曲線交點里程S :66.8交點高程G : 100000曲率半徑R : Goto   2 : IfEnd 依次類推，計算原始數據完成輸入，坡度換算成小數。 Lb1   2 S-KL ： A-BW : Abs（R*W/2）T : S-TC : S+TD If   KC : Then &#

44、160; G-L*B H : Goto 5 : Else   If   KS : Then   Goto3 : Else   If   KD : Then   Goto4   : IfEnd : IfEnd : IfEnd Lb1   3 If   W>0 : Then   G+(C-K) 2/2/R-L*BH   : Goto 5 : Else  

45、If W<0 : Then   G-(C-K) 2/2/R-L*BH   : Goto 5 : IfEnd : IfEnd Lb1   4 If   W>0 : Then   G+(K-D) 2/2/R-L*AH   : Goto 5 : Else   If W<0 : Then   G-(K-D) 2/2/R-L*AH   : Goto 5 : IfEnd : IfEnd Lb1 

46、60; 5 H-0.304H     (0.304為中心路肩高差) “H=”：H Goto 1 圓曲線緩和曲線線路中邊樁放樣卡西歐5800坐標計算程序程序名：FYXY"JD"?Q:"JDX"?W:"JDY"?K:R:"QDFWJ"?F:"A0"?N:"LS"?V:"-L,+R"?G:"DKQD"?C:"DKZD" ?D:”ZJX"?A:”ZJY”?B8Dimz V&#

47、247;2-V(3)÷(240R2)M                                              

48、                                     V2÷(24R)V(4)÷(2688R(3)PpRN÷180+VLM+(R+P)tan(N÷2)TQ-TZ5Z5+VZ6Z5+

49、LZ8Z8-VZ7Rec(T，F+180)W+IZ1:K+JZ2Rec(T，F+GN) W+IZ3:K+JZ4Lbl 0"DKI"?H:"BIAN JU"?S:"JIA JIAO"?EIf H If H>D:Then Goto 0:IfEndIf H Lbl 1Rec(Q-H，F+180) W+IX: K+JYRec(S，F+E)"X=":X+IX"Y=":Y+JYGoto 7Lbl 2H-Z5Z90Z2÷(pRV)O Z-Z(5)÷(40R2V2)

50、+Z(9)÷(3456R(4)V(4)X Z(3)÷(6RV)-Z(7)÷(336R(3)V(3)+Z(11)÷(42240R(5)V(5)Y Rec(X2+Y2)，F+Gtan-1(Y÷X) Z1+IX:Z2+JYRec(S，F+GO+E) "X=":X+IX"Y=":Y+JYGoto 7Lbl 3H-(Q-T)-V÷2Z180Z÷(Rp)ORsin (O)+MXR(1-cos(O)+PZRec(X，F) Z1+IX:Z2+JYRec(Z，F+90G) X+IX:Y+JYRec(S，

51、F+OGE) "X=":X+IX"Y=":Y+JYGoto 7Lbl 4Z8-HZ90Z2÷(VRp)OZ-Z(5)÷(40R2V2)+Z(9)÷(3456R(4)V(4)X Z(3)÷(6RV)-Z(7)÷(336R(3)V(3)+Z(11)÷(42240R(5)V(5)Y Rec(X2+Y2)，FGN+180-Gtan-1(Y÷X) Z3+IX:Z4+JYRec(S，F+GN+180-OG-(180-E) "X=":X+IX"Y=":Y+JY

52、Goto 7Lbl 5Rec(H-Z8+T，F+GN) W+IX:K+JYRec(S，F+GN+E) "X=":X+IX"Y=":Y+JYGoto 7Lbl 7Pol(X-A，Y-B) If J<0:Then J+360J:IfEnd"FWJ=":JDMS"CJ=":IGoto 0注：FYXY程序單代號Q"J D"               

53、;            交點里程樁號W"JDX"                           交點X坐標值K"JDY"     &

54、#160;                     交點Y坐標值R                            

55、;    圓曲線半徑F"QDFWJ"                         第一直線段方位角N"A 0"              

56、0;            交點轉向角V"LS"                            緩和曲線長度G"-L,+R"    

57、                     如果為左轉角輸入“1”，如果為右轉角輸入“1”C"DKQD"                       

58、  所求段起點里程樁號D"DKEZD"                         所求段終點里程樁號ZJX                 &#

59、160;            置鏡點坐標ZJY                              置鏡點Y坐標H"DKI"    

60、                       所求點的里程樁號S"BIAN JU"                       邊樁至中樁的

61、距離，求中樁時輸入0 距離不為負E"JIA JIAO"                      左邊樁輸入“90”，右邊樁輸入“90”X Y                   

62、           所求點的坐標值C J                              置鏡點至待求點的距離FWJ       

63、;                       置鏡點至待求點的方位角卡西歐5800測量實用程序(含直線圓曲線大地轉施工程序)直線計算程序 0I:0J:”X0”?D:”Y0”?E:”X1”?B:”Y1”?C:Pol(B-D,C-E):JA:If A<0: Then A+360A:Else AA:IfEnd:Lbl 0:?O:?S:If O0:Then Goto 1:IfE

64、nd: D+Scos(A) X:”X=”:X E+Ssin(A) Y:”Y=”:Y Goto 0:Lbl 1:D+Scos(A)+Ocos(A+90) X:”X=”:X E+Ssin(A)+Osin(A+90) Y:”Y=”:Y Goto 0 輸入程序時注意區別字母 O 與數字 0 程序運行時符號說明 X0? Y0? 分別輸入直線起點的 XY 坐標值 X1? Y1? 分別輸入直線終點的 XY 坐標值 O? 輸入邊樁與中樁的距離 ( 左邊樁為負值 , 右邊樁為正值 ), 如計算中樁坐標輸入 0 S? 輸入所求點到直線起點的距離 圓曲線計算程序 0I:0J: ”X0”?C:”Y0”?D:”X1”?

65、E:”Y1”?F:?R:”L:-1 R:1”?N:”ZY”?W:Lbl 0:”LN”?T: T-WO:Pol(E-C,F-D):IS:JA: If A<0:Then A+360A:Else AA:IfEnd: sin-1(S÷(2R) K:2RK÷180L:180O÷(2R) G:(2R)sin(G) H:C+Hcos(A-KN+GN) X:”X=”:X D+Hsin(A-KN+GN) Y:”Y=”:Y R-0.5(4R2-H2) Q:”Q=”:Q “S=”?V:If V=0:Then Goto 0:IfEnd:”L:-90 R:90”?U:X+Vcos(A

66、-KN+2GN+U) X:”X=”:X Y+Vsin(A-KN+2GN+U) Y:”Y=”:Y Goto 0 輸入程序時注意區別字母 O 與數字 0 程序運行時符號說明 X0? Y0? 分別輸入直線起點的 XY 坐標值 X1? Y1? 分別輸入直線終點的 XY 坐標值 R? 輸入圓曲線半徑 L:-1 R:1? 圓曲線向左轉彎時輸入 -1, 向右轉彎時輸入 1 ZY? 輸入起點樁號 LN? 輸入所求點樁號 ( 按下 exe 鍵后顯示中樁坐標 ) S? 輸入所要求的邊樁與中樁的距離 L:-90 R:90 要求左邊邊樁輸入 -90, 右邊邊樁輸入 90( 按下 exe 鍵后顯示邊樁坐標 ) 二、程序

67、清單 程序名 ：大地轉施工 “QK=” ？ Z:“QX=” ？ A:“QY=”?B:“ZX=” ？ O :“ZY=” ？ Q Pol( O -A,Q-B) J<0=>J+360J J>360=>J-360J JF:“JF=” ： F DMS Lb1 0 ？ X:?Y Pol （ X-A,Y-B):ID J<0=>J+360J J>360=>J-360J J-FT:TG T<0=>T+360G T>360=>T-360G Z+Dcos （ G)K:“K=” ： K Dsin （ G)C:“C=” ： C GoTo 0 三、程序使用說明： QK- 輸入線路起始點里程 QX- 輸入線路起始點中樁 X 坐標 QY- 輸入線路起始點中樁 Y 坐標 ZX- 輸入線路前進方向中樁 X 坐標 ZY- 輸入線路前進方向中樁 Y 坐標 JF=- 顯示線路測量坐標方位角 X- 輸入線路附近任意點測量 X 坐標 Y- 輸入線路附近任意點測量 Y 坐標 K- 顯示計算結果：里程樁號，即工程 X 坐標 C- 顯示計算結果：左右偏距，即工程 Y 坐標 , 中樁 =0 ，左偏 = 負值，右偏 = 正值。 FX5800計算器公路測量常用程序集2.3版 一、程序功能