1、FX5800 计算器公路测量常用程序集一、源程序1.总主程序（1、坐标计算放样程序 2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后输入 19 数子则选择 1 至 9 的程序，返回时，在桩号输入-1,返回选择选择计算类型。输入-2,返回选择线路。坐标计算中输入-3,则显示本段曲线要素。程序名：0ZCXLbI Q: 15DimZ：Norm 2:1A：A:XY=1， ZD=2 ，GC=3， GD=4， BP=5， FM=6， ZP=7， JS=8，
2、SD=9?A:A=1=Goto 1:A=2=Goto 2:A=3=Goto 3:A=4=Goto 4: A=5=Goto 5:A=6=Goto 6:A=7=Goto 7:A=8=Goto 8: A=9=Goto 9LbI 1:Prog DX:LbI A:ProgQX:90B: PJ1?B:BC: PJ2?C:BZ1:CZ8:LbI B:1F: KM?Z:Z= -1=Goto 0:Z=-2=Goto A:Z=-3=Goto X:ProgKM:?D:PorgTHB:OL: L0?L:Z2+Z1-Z8 E:X+L cos(E) X:Y+Lsin(E) Y:ProgXY:ProgJS:Goto BLb
3、I 2:2F:90Z1:ProgQX:LbI C: KM?Z:Z=-1=Goto 0:Z=-2=Goto 2:Z=-3=Goto X:ProgKM: XO?X: Y0?Y:ProgTHB:PorgZD:Goto C:LbI 3:ProgQX:0B: H-B?B:BZ9:LbI D: KM?Z:Z=-1=Goto 0:Z=-2=Goto 3:?D:PorgH:Fix 3: H=:Lcoate 6,4,H-Z9 I=:Locate 6,4,I Goto DLbI 4:ProgQX:LbI E: KM?Z:Z=-1=Goto 0:Z=-2=Goto 4:?D:ProgGD:Fix 3: SJGD=:
4、Locate7,4,L Goto ELbI 5:ProgQX:0.5B:TH-GD?B:BZ15:LbI F:2F:90Z1:KM?Z:Z=-1 =Goto 0:Z=-2 =Goto 5:ProgKM: X0?X: Y0?Y:0M:”M0”?M: MZ4:Prog3FBZFix 2:Z3 D:Abs（D）-SO: L0=:Locate 6,4,OProgZD: Z5T: TW=:Lcoate 6,4,T Goto F:LbI 6:ProgDX:LbI G:ProgQX:LbI H:1F:90Z1: KM?Z:Z=-1=Goto 0:Z=-2=Goto G:ProgKM:?D:ProgTHB:P
5、rogXY:ProgJS:ProgH:0M: M0?M:Fix 2:H-MT: TW=:Locate 6,4,T Goto H:LbI 7:ProgDX:LbI I:ProgQX:0D: LD:Z-,Y+? D:Abs(D) R: LR?R: Z0?Z: DZ6:RZ7:ZZ8:LbI J:0Y: L0:SZ+,DZ-?Y:Y=-1=Goto 0:Y=-2=Goto I:ProgZP:Goto J:LbI 8:ProgDX:LbI K:?X:X=-1=Goto 0:X=-2=Goto 8:?Y:ProgJS:Goto K:LbI 9:PorgDX:LbI L:Prog”QX”:LbI M:2F
6、:90Z1: KM?Z:Z=-1=Goto 0:Z=-2=Goto L:Z=-3=Goto X: ProgSD1: 0.5A:“CQHD?A:“X0?X:Y0?Y:0M=M0?M:MZ8:AZ15:Prog5SD： Goto M:LbI X:Mat F Goto 02、次程序:路基开挖边线及填方坡脚线放样程序（输入填方放宽值、大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：3FBXProg”THB”:DP:Prog”GD”:If DA:Then Goto 1:Else If GZ8:Then Goto 2:Else Goto 3:IfEnd:LbI 1:L+Z10
7、+Z11+Z12+(G-A)Z7+Z9Z6+Z8Z5 S:Goto Z:LbI 2:L+Z10+Z11+(G-Z8)Z6+Z8Z5 S:Goto Z:LbI 3:L+Z10+GZ5 S:Goto Z:LbI T:L+Z17T:If GZ15:Then (T+Z16+(G-Z15)Z14+Z15Z13)S:Goto Z:Else (T+GZ13)S:Goto Z:LbI Z3.次程序 3.隧道超欠挖值计算放样程序（输入隧道线路，大概桩号、输入衬砌厚度、测量三维坐标，计算准确桩号及位置、计算欠超挖值）程序名：5SDProg”KM”:Prog“THB”: DZ13:0D:Prog“H”:Cos(Z1
8、0) Z4 E: H+Z5 Z5: H+Z7 Z7: E+Z5 Z10:If Z8Z10:Then Goto R:Else Goto S:IfEnd:LbI R: (Z13-Z9) 2+(Z8-Z5) 2 )- Z4-Z15 L:Goto L:LbI S: Z4-Z6 S: (S 2-(Z7-Z5) 2 ) SAbs(S)T:Abs(Z13-Z9)-TT:(T 2+(Z8-Z7) 2 )- Z6-Z15 L:Goto L:LbI L: Fix 2:” L0=”: Locate 6,4,LProg”ZD”:“ H0=”: Locate 6,4,Z8-H4：极坐放样计算程序(计算放样点至置仪点方位
9、角及距离)程序名：JSX：Y：Z11K：Z12L：Pol(X-K, Y-L):IF JL:Then 180(Z-L+0.5H) RS :H2-H (3) 240R2+Rsin(S)A:H 2R24-H (4) 2688R (3)+R(1-Cos(S)B:RM:G+WSZ2:Goto 4: IfEnd:Z-CS:Prog “HX”:G+WKZ2:LbI 4:U+(A-T)cos(G)-WBsin(G)I:V+(A-T)Sin(G)+WBcos(G) J: Goto 3: LbI 2:U+Scos(Z2)I:V+Ssin(Z2) J: LbI 310. 交点法缓和段转化子程序(HX)程序名：HXS
10、-S (5) 40R2H2+S (9) 3456R (4) H (4)A:S (3) 6RH-S (7) 336R (3) H (3)+S (11) 42240R (5) H (5)B:90S 2RHK:RHSM11. 交点法反算子程序(ZX)程序名：ZXZ:0D:LbI 0:Prog “Z”:Pol(X-I,Y-J):J-Z2 J:Isin(J) S:Icos(J) I:If Abs(I)0.1:Then Z+IZ:SD:Goto 2:Else Goto 1: LbI 1:If M=0:Then Z+IZ:Goto 0:Eles Pol(M-WS,I):(JM)/180I:Z+IZ:Goto
11、 0:IfEndLbI 212高程计算子程序（H）程序名：HProg “S1”:C-TF:Z-FS:C+TE:G-TIQ:If T=O:Then Q+SIH:Goto 0:Else If ZF:Then Q+SIH:Goto 0:Else If ZE:Then Q+SI+S 22RH:Goto 0:LbI 0:H:If D=0:Then Goto I:Else Prog “I”:H+VH:Goto I:LbI I13.高程超高计算程序（I）程序名：IIf Z3=1:Then Prog “I1”:Goto 1:Else Prog “I2”:Goto1: IfEnd: LbI 1: If W=1:
12、Then:Goto Z:Else:Goto X: IfEnd LbI Z:If S=0:Then Abs(D)MV:Goto 2:Else Abs(D)(N-M)(Z-C)S+M)V:Goto 2:IfEnd:LbI X:If S=0:Then Abs(D)MV:Goto 2:Else Abs(D)(3(Z-C)S) 2-2(Z-C)S) (3)(N-M)+M)V:Goto 2:IfEnd:LbI 2:Abs(D)E:VEI:I(E-K)V14导线点子程序（DX）程序名：DXZ11 K:Z12 L:“XZ”?K:”YZ”?L:KZ11:LZ1215线路选择子程序(线路选择输 0 时。则输曲线参
13、数（QX）程序名：QX1A:”QX:X1=1,X2=2”?A:AZ3:If A=0:Then Goto 1:Else Goto 2: IfEnd:LbI 1:”JDO”?O:”XO”?U:”YO”?V:”FW”?G:”LS”?H:?P:?R:”J=2,X=(0,1,-1)”?Q:Goto 2:LbI 216线路中线元段判别子程序（KM）程序名：KMIf Z3=0:Then Goto 0:Else If Z3=1:Then Prog “X1”:Goto 0:Else Prog “X2”:Goto 0: IfEnd: LbI 017坐标计算参数转化子程序（F）程序名：FMat F1,1O: Mat
14、 F1,2U: Mat F1,3V: Mat F1,4G: Mat F1,5H: Mat F1,6P: Mat F1,7R: Mat F1,8Q18.桥梁锥坡放样子程序（ZP）程序名：ZP(Z62（1-Y 2/Z72）) X：Z8 Z:Prog”GD”:If D0:Then L+XD:Else L-XD:IfEnd:Z8+YZ:D:1F:90Z1:Prog”KM”:Prog”THB”:Prog”XY”:Prog”JS”19显示子程序（XY）程序名：XYix 3: =：Locate 6,4, ：Locate 6,4,程序名：ZDFix 3: ：Locate 6,4, ：Locate 6,4,20
15、数据子程序(附后示例)-1 程序名：X1（线路 1 坐标计算要素程序）If Z26615.555:Then 25900,11587.421,1847.983, 101 。 0923.1”,715.555,11045, 11045, 0Mat F:Goto 0: IfEnd:If Z26915.555:Then 26615.555,11448.97,2550.016,101 。 0923.1”,300,11045,1800,1Mat F:Goto 0:IfEnd:LbI 0: Prog”F”-2 程序名：X2（线路 2 坐标计算要素程序）If Z616.951:Then 316.951,1123
16、0.669,3213.086, 118 。 4228.42”,300,1800, 11045, 1Mat F:Goto 0: IfEnd:If Z4050:Then3089.766,9708.017,5530.185,123 。 2857.1”,300,-44。 3938”,2200,2Mat F:Goto 0:IfEnd:LbI 0:Prog”F”程序字母说明：O-线元起点桩号(交点桩号)；U-起点 X 坐标（交点 X）；V-起点 Y 坐标（交点 Y）；G-线元起点桩号切线方位角（交点前一交点至现交点方位角）; 线元长度（缓和曲线长度），线元起点曲率半径（偏角：值为正负，左偏为负，右偏为正）
17、，线元终点曲率半径（圆半径）,Q线元判别(以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0;交点法取值 2）.说明括内为交点法子母代表意思。-1 程序名：S1(线路 1 高程竖曲线要素子程序)If Z3=1:Then Goto 1: Else Prog “S2”:Goto 0: IfEnd: LbI 1:If Z26157.8:Then -200000R:157.8T:26000C:37.1G:0.01222I:Goto 0:IfEnd:If Z27421.915:Then 300000R:171.915T:27250C
18、:32.65G:-0.00356I:Goto 0:IfEnd:If Z27889.029:Then 1000000R:134.029T:27755C:36.64G:0.0079I:Goto 0:IfEnd:LbI 0-2 程序名：S2(线路 2 高程竖曲线要素子程序)If Z183.007:Then 1365R:20.475T:162.532C:46.1G:0.003I:Goto 0:IfEnd:If Z321.264:Then -1200R:38.732T:282.532C:50.175G:0.033I:Goto 0:IfEnd:LbI 0程序字母说明：C-竖曲线交点桩号；G-交点桩号高程（
19、未竖曲线调整的）；T-竖曲线切线长(标段结尾或开头没有竖曲线的输 0)；R-竖曲线半径（分正负：凹曲线为正，凸曲线为负）；I竖曲线前纵坡-1 程序名：I1（线路 1 高程超高参数子程序）1.5K:2W:If D0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z26615.555:Then 0S:-0.02M:Goto 0:IfEnd:If Z26735.555:Then 120S:26615.555C:-0.02M:0.02N:Goto 0:IfEnd:If Z26795.555:Then 60S:26735.555C:0.02M:0.04N:Goto 0:I
20、fEndLbI R: If Z26735.555:Then 0S:-0.02M: Goto 0:IfEndIf Z26795.555:Then 60S:26735.555C:-0.02M:-0.04N:Goto 0:IfEndIf Z27436.951:Then 0S:-0.04M: Goto 0:IfEndLbI 0 -2 程序名：I2（线路 2 高程超高参数子程序）0.5K:1W:If D0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z100:Then 0S:-0.015M:Goto 0:IfEnd:If Z110:Then 10S:100C:-0.01
21、5M:-0.02N:Goto 0:IfEnd:If Z343.665:Then 0S: -0.02M: Goto 0:IfEndLbI R: If Z100:Then 0S:-0.015M: Goto 0:IfEndIf Z110:Then 10S:100C:-0.015M:-0.02N:Goto 0:IfEndIf Z375.665:Then 0S:-0.02M: Goto 0:IfEndLbI 0 子程序中字母表示说明：K中央分隔带半幅宽（中桩标高至中桩中线距离，无分隔带则为 0）；W超高方式参数（W=1 为一般直线方式超高，W=2 为三次抛物线方式超高）;S超高渐变段距离（不是渐变段则输
22、入 0）；C-超高渐变段起点桩号（不是渐变段，无需输入）；M超高段起点横坡，N-超高渐变段终点横坡（不是渐变段，无需输入）。-1 程序名：G1(线路 1 路基标准半幅宽度参数子程序)If Z3=1:Then Goto 1:Else Prog “G2”:Goto 0: IfEndLbI 1:If D0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z28110.727:Then ZC:17.25A:Goto 0:IfEnd:If Z28200.727:Then 28110.727C:17.25A:21.25B:90S:Goto 0:IfEndLbI R: Z279
23、27.478:Then ZC:17.25A: Goto 0:IfEndIf Z28172:Then 27927.478C:17.25A:27.031B:244.522S:Goto 0:IfEndLbI 0 -2 程序名：G2(线路 2 路基标准半幅宽度参数子程序)If D0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z69.998:Then ZC:28.25A:Goto 0:IfEnd:If Z82.402:Then 69.998C:28.25A:25.545B:12.404S:Goto 0:IfEndLbI R: Z69.998:Then ZC:17.45
24、A: Goto 0:IfEndIf Z80.367:Then 69.998C:17.45A:16.787B:10.369S:Goto 0:IfEnd:LbI 0 字程序中字母表示说明：C宽度渐变段起点桩号（不是渐变段 C=Z）；A宽度渐变段起点宽度; B宽度渐变段终点宽度（不是渐变段，无需输入）；S-宽度渐变段距离（不是渐变段，无需输入）。-1 程序名：SD1(线路 1 隧道参数子程序)If Z3=1:Then Goto 1: Else Prog “SD2”:Goto 0:IfEnd:LbI 1:8.75Z4:-1.1Z5:4.77Z6:1.47Z7:-0.25Z9: 51 。 2857.1”
25、Z10:LbI 0-2 程序名：SD2(线路 2 隧道参数子程序)5.43Z4:1.634Z5:7.93Z6:1.634Z7: 0Z9: 90Z10字程序中字母表示说明：Z4隧道上拱半径；Z5隧道上拱圆心至设计面高度；Z6隧道中腰部半径；Z7中腰圆心至设计面高度；Z9设计隧道中线与设计路基中线偏移值，左为负数，右为正数；Z10上部拱跨隧道半幅角度；-1 程序名：W1(线路 1 路基填挖边坡参数子程序)If Z3=1:Then Goto 1: Else Prog “W2”:Goto 0:IfEnd:LbI 1:0.75Z5:1Z6:1.25Z7:10Z8:10Z9:2.6Z10:2Z11:2Z1
26、2:1.5Z13:1.75Z14:8Z15:2Z16LbI:0-2 程序名：W2(线路 2 路基填挖边坡参数子程序)1Z5:1Z6:1.25Z7:10Z8:10Z9:2.6Z10:1.5Z11:1.5Z12:1.5Z13:1.75Z14:8Z15:2Z16字程序中字母表示说明：Z5挖方第一阶边坡边率；Z6挖方第二阶边坡边率；Z7挖方第三阶边坡边率；Z8挖方第一阶高度；Z9挖方第二阶高度；Z10挖方路基碎落台及水沟宽度；Z11挖方第二台阶平台宽度；Z12挖方第三台阶平台宽度；Z13填方第一阶边坡边率；Z14填方第二阶边坡边率; Z15填方第一阶高度；Z16-填方第二台阶平台宽度。（注：本程序只做
27、出挖方三个台阶，填方二个台阶，如需增加，先需在程序 THB 和 4FBZ 程序中增加变量。再如一标段有坡率及坡高不一样时，可以照其它参数程序一样，用判别语句。）二、使用说明1、规定(1) “KM”为所求点桩号，反算时为输入大概桩号 (2) 当所求点位于中线时，=0；当位于中线左铡时，取负值；当位于中线中线右侧时，取正值。(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以 10 的 45 次代替。（在用交点法时，P 子母代表偏角）(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。（交点法为圆半径）(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半
28、径为无穷大，以 10 的 45 次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以 10 的 45 次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。(7) Q 值是判别用采用线元法还是交点法。交点法值为 2。线元法，根据线元段取值，直线段取 0，缓和段和圆曲线段，根据左偏取-1,右偏取 1.(8) 为了区别字母 O 及数字 0，特把字母 0 加粗。2、
29、输入与显示说明输入部分：A:XY=1， ZD=2 ，GC=3， GD=4， BP=5， FM=6， ZP=7， JS=8， SD=9? 输入:1、坐标计算放样程序 2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序XZ？YZ？ 为置仪点坐标，第一次运行输一次，以下运行不需再输入，下次再运行此程序调上次输值，如需改，则输入，不需改，则按确认键。“QX:X1=1,X2=2”?选择经路，坐标计算中输入 0 值，变为输入线元段曲线要素。输 1 为第一条线路。输 2
30、 为第二条线路，本程序暂设计实例为 2 条线路。？正算时所求点的里程（反算输入大概桩号）输入-1，返回输入选择计算类型，输入-2,返回选择线路，输入-3，调出本段线元参数，以矩阵显示，再运行从头开始。 ？正算时所求点距中线的边距(左侧取负，值右侧取正值，在中线上取零) X0 ？反算时所求点的 X 坐标（放样程序中实测 X 坐标）Y0 ？反算时所求点的 Y 坐标（放样程序中实测 Y 坐标）显示部分：L? 涵洞放样程序中涵距中心桩号前后距离,前为正,后为负.M0? 边坡放样程序中原地面标高输入H-B？计算面至路面高差（默认路面为 0）PJ1? PJ2? 涵洞计算中第一个夹角同 PJ。第二夹角为边线
31、至路前进方向夹角。(同理适合在桥梁中斜交桥,平行布置中,桥台桩基坐标计算)默认值均为 90 度.TH-GH？边坡放样中填方超放宽值，默认值为 0.5m.LD:Z-,Y+? 桥梁锥坡向左右方向边长，左为负数，右为正数。LR? 锥坡向路线前进或向后退方向边长。Z0? 锥坡顶边桩号输出部分X=* 正算时，计算得出的所求点的 X 坐标Y=* 正算时，计算得出的所求点的 Y 坐标FWJ=* 正算时，计算得出的所求点的至置仪点方位角S=* 正算时，计算得出的所求点的至置仪点距离=* 反算时，计算得出的所求点的里程=* 反算时，计算得出的所求点的边距H=* 所求点位置设计路面顶标高I=* 所求点位置设计路面横坡（D 输 0 时为，本段路基纵坡）SJLG=* 所求点位置路基设计半幅标准宽度L0=* 边桩放样程序中实测点至设计边坡点距离，正向内移，负向外移。(隧道程序中为超欠挖值，正为超挖，负为欠挖)TW=* 边桩放样程序中，实测放样边坡点至止桩号设计顶填挖高度值H0=* 隧道放样程序中测量点至设计面高度
