5800计算器全线坐标计算放样程序

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版 一、程序功能