Fx5800计算器公路测量程序设计211版讲解学习

1、Good is good, but better carries it.精益求精，善益求善。Fx5800计算器公路测量程序设计211版-FX5800计算器公路测量常用程序集2.1版一、程序功能主要功能：采用线元法与交点法相结合计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。新版本特点：1、建主程序合并原所有计算类型，在主程序中可选择操作类型。隧道欠超挖增加变量衬砌厚度，因有设计衬砌厚度根据石岩来定的。增加锥坡放样计算。二、源程序1.总主程序（1、坐标计

2、算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后输入19数子则选择1至9的程序，返回时，在桩号输入-1,返回选择选择计算类型。输入-2,返回选择线路。坐标计算中输入-3,则显示本段曲线要素。程序名：0ZCXLbI0:17DimZ：Norm2:1A：A:XY=1，ZD=2，GC=3，GD=4，BP=5，FM=6，ZP=7，JS=8，SD=9?A:A=1=Goto1:A=2=Goto2:A=3=Goto3:A=4=Goto4:A=5=Got

3、o5:A=6=Goto6:A=7=Goto7:A=8=Goto8:A=9=Goto9LbI1:ProgDX:LbIA:ProgQX:90B:PJ1?B:BC:PJ2?C:BZ1:CZ8:LbIB:1F:KM?Z:Z=-1=Goto0:Z=-2=GotoA:Z=-3=GotoX:ProgKM:?D:PorgTHB:OL:L0?L:Z2+Z1-Z8E:X+Lcos(E)X:Y+Lsin(E)Y:ProgXY:ProgJS:GotoBLbI2:2F:90Z1:ProgQX:LbIC:KM?Z:Z=-1=Goto0:Z=-2=Goto2:Z=-3=GotoX:ProgKM:XO?X:Y0?Y:Prog

4、THB:PorgZD:GotoC:LbI3:ProgQX:0B:H-B?B:BZ9:LbID:KM?Z:Z=-1=Goto0:Z=-2=Goto3:?D:PorgH:Fix3:H=:Lcoate6,4,H-Z9：I=:Locate6,4,I：GotoDLbI4:ProgQX:LbIE:KM?Z:Z=-1=Goto0:Z=-2=Goto4:?D:ProgGD:Fix3:SJGD=:Locate7,4,L：GotoELbI5:ProgQX:0.5B:TH-GD?B:BZ17:LbIF:2F:90Z1:KM?Z:Z=-1=Goto0:Z=-2=Goto5:ProgKM:X0?X:Y0?Y:0M:”M

5、0”?M:MZ4:Prog3FBXFix2:PD:Abs（P）-SO:L0=:Locate6,4,O：ProgZD:Z4T:TW=:Lcoate6,4,TGotoF:LbI6:ProgDX:LbIG:ProgQX:LbIH:1F:90Z1:KM?Z:Z=-1=Goto0:Z=-2=GotoG:ProgKM:?D:ProgTHB:ProgXY:ProgJS:ProgH:0M:M0?M:Fix2:H-MT:TW=:Locate6,4,TGotoH:LbI7:ProgDX:LbII:ProgQX:0D:LD:Z-,Y+?D:Abs(D)R:LR?R:Z0?Z:DZ6:RZ7:ZZ8:LbIJ:0Y:

6、L0:SZ+,DZ-?Y:Y=-1=Goto0:Y=-2=GotoI:ProgZP:GotoJ:LbI8:ProgDX:LbIK:?X:X=-1=Goto0:X=-2=Goto8:?Y:ProgJS:GotoK:LbI9:PorgDX:LbIL:Prog”QX”:LbIM:2F:90Z1:KM?Z:Z=-1=Goto0:Z=-2=GotoL:Z=-3=GotoX:ProgSD1:0.5A:“CQHD?A:“X0?X:Y0?Y:0M=M0?M:MZ8:AZ15:Prog5SD：GotoM:LbIX:MatFGoto02、次程序:路基开挖边线及填方坡脚线放样程序（输入填方放宽值、大概桩号及测量坐标

7、、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：3FBXProg”THB”:DP:Prog”GD”:IfD0:Then0.75-LD:GotoH:ElseL-0.75D:GotoH:IfEndLbIH:Prog“H”:H-0.03-Z4Z4:Prog“W1”:IfZ4A:ThenGoto1:ElseIfGZ8:ThenGoto2:ElseGoto3:IfEnd:LbI1:L+Z10+Z11+Z12+(G-A)Z7+Z9Z6+Z8Z5S:GotoZ:LbI2:L+Z10+Z11+(G-Z8)Z6+Z8Z5S:GotoZ:LbI3:L+Z10+GZ5S:GotoZ:LbIT:L+Z17

8、T:IfGZ15:Then(T+Z16+(G-Z15)Z14+Z15Z13)S:GotoZ:Else(T+GZ13)S:GotoZ:LbIZ3.次程序3.隧道超欠挖值计算放样程序（输入隧道线路，大概桩号、输入衬砌厚度、测量三维坐标，计算准确桩号及位置、计算欠超挖值）程序名：5SDProg”KM”:Prog“THB”:DZ13:0D:Prog“H”:Cos(Z10)Z4E:H+Z5Z5:H+Z7Z7:E+Z5Z10:IfZ8Z10:ThenGotoR:ElseGotoS:IfEnd:LbIR:(Z13-Z9)2+(Z8-Z5)2)-Z4-Z15L:GotoL:LbIS:Z4-Z6S:(S2-(Z

9、7-Z5)2)SAbs(S)T:Abs(Z13-Z9)-TT:(T2+(Z8-Z7)2)-Z6-Z15L:GotoL:LbIL:Fix2:”L0=”:Locate6,4,L：Prog”ZD”:“H0=”:Locate6,4,Z8-H4：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：JSX：Y：Z11K：Z12L：Pol(X-K,Y-L):IFJ0:ThenJ+360J:IFEnd:Int(J)+0.01Int(60Frac(J)+0.006Frac(60Frac(J)J:Fix4:”FWJ=”:Locate6,4,J：Fix3:”S=”:Locate6,4,I5路基宽度子程序6：路

10、基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名：GD1S:Prog“G1”:Z-CE:(B-A)*E/S+AL:6坐标计算次程序（）程序名：THBIfQ=2:ThenGotoJ:Else1P：(P-R)(2HPR)：180E：IfF=1:ThenAbs(0)W：Prog：oto2:ElseI：J：Prog：Z：oto2:IfEnd:LbIJ:IfF=1:ThenProgZ：oto1:ElseProgZX：oto2:IfEnd:LbI1:I+DCOS(Z2+Z1)X:J+DSin(Z2+Z1)Y:LbI27.线元法正算子程序()程序名

11、：A0.1184634425A：0.2393143352B：0.2844444444N：0.046910077K：0.2307653449L：0.5M：U+W(Acos(G+QEKW(C+KW)+Bcos(G+QELW(C+LW)+Ncos(G+QEMW(C+MW)+Bcos(G+QE(1-L)W(C+(1-L)WS)+Acos(G+QE(1-K)W(C+(1-K)WS)X：V+W(Asin(G+QEKW(C+KW)+Bsin(G+QELW(C+LW)+Nsin(G+QEMW(C+MWS)+Bsin(G+QE(1-L)W(C+(1-L)WS)+Asin(G+QE(1-K)W(C+(1-K)W)

12、Y：G+QEW(C+W)：X+cos（+Z1）：Y+sin（+Z1）8.线元法反算子程序()程序名：BG-90：Abs(Y-V)cos(T)-(X-U)sin(T)：0：Lbl0：Prog：T+QEW(C+W)：(J-Y)cos(L)-(I-X)sin(L)：IFAbs()0.01:ThenGoto1：ElseW+W:Goto0:IfEnd:Lbl1:0D：Prog：(J-Y)sin(+90)D9.交点法正算子程序(Z)程序名：ZH2R24-H(4)2688R(3)A:H2-H(3)240R2B:(R+A)tan(Abs(P)2)+BT:O-TC:C+HL:L+RAbs(P)180N:N-HE

13、:PAbs(P)W:0M:IfZL:Then180(Z-L+0.5H)RS:H2-H(3)240R2+Rsin(S)A:H2R24-H(4)2688R(3)+R(1-Cos(S)B:RM:G+WSZ2:Goto4:IfEnd:Z-CS:Prog“HX”:G+WKZ2:LbI4:U+(A-T)cos(G)-WBsin(G)I:V+(A-T)Sin(G)+WBcos(G)J:Goto3:LbI2:U+Scos(Z2)I:V+Ssin(Z2)J:LbI310.交点法缓和段转化子程序(HX)程序名：HXS-S(5)40R2H2+S(9)3456R(4)H(4)A:S(3)6RH-S(7)336R(3)

14、H(3)+S(11)42240R(5)H(5)B:90S2RHK:RHSM11.交点法反算子程序(ZX)程序名：ZXZ:0D:LbI0:Prog“Z”:Pol(X-I,Y-J):J-Z2J:Isin(J)S:Icos(J)I:IfAbs(I)0.1:ThenZ+IZ:SD:Goto2:ElseGoto1:LbI1:IfM=0:ThenZ+IZ:Goto0:ElesPol(M-WS,I):(JM)/180I:Z+IZ:Goto0:IfEndLbI212高程计算子程序（H）程序名：HProg“S1”:C-TF:Z-FS:C+TE:G-TIQ:IfT=O:ThenQ+SIH:Goto0:ElseIf

15、ZF:ThenQ+SIH:Goto0:ElseIfZE:ThenQ+SI+S22RH:Goto0:LbI0:H:IfD=0:ThenGotoI:ElseProg“I”:H+VH:GotoI:LbII13.高程超高计算程序（I）程序名：IIfZ3=1:ThenProg“I1”:Goto1:ElseProg“I2”:Goto1:IfEnd:LbI1:IfW=1:Then:GotoZ:Else:GotoX:IfEndLbIZ:IfS=0:ThenAbs(D)MV:Goto2:ElseAbs(D)(N-M)(Z-C)S+M)V:Goto2:IfEnd:LbIX:IfS=0:ThenAbs(D)MV:G

16、oto2:ElseAbs(D)(3(Z-C)S)2-2(Z-C)S)(3)(N-M)+M)V:Goto2:IfEnd:LbI2:Abs(D)E:VEI:I(E-K)V14导线点子程序（DX）程序名：DXZ11K:Z12L:“XZ”?K:”YZ”?L:KZ11:LZ1215线路选择子程序(线路选择输0时。则输曲线参数（QX）程序名：QX1A:”QX:X1=1,X2=2”?A:AZ3:IfA=0:ThenGoto1:ElseGoto2:IfEnd:LbI1:”JDO”?O:”XO”?U:”YO”?V:”FW”?G:”LS”?H:?P:?R:”J=2,X=(0,1,-1)”?Q:Goto2:LbI2

17、16线路中线元段判别子程序（KM）程序名：KMIfZ3=0:ThenGoto0:ElseIfZ3=1:ThenProg“X1”:Goto0:ElseProg“X2”:Goto0:IfEnd:LbI017坐标计算参数转化子程序（F）程序名：FMatF1,1O:MatF1,2U:MatF1,3V:MatF1,4G:MatF1,5H:MatF1,6P:MatF1,7R:MatF1,8Q18.桥梁锥坡放样子程序（ZP）程序名：ZP(Z62（1-Y2/Z72）)X：Z8Z:Prog”GD”:IfD0:ThenL+XD:ElseL-XD:IfEnd:Z8+YZ:D:1F:90Z1:Prog”KM”:Pro

18、g”THB”:Prog”XY”:Prog”JS”19显示子程序（XY）程序名：XYix3:=：Locate6,4,：Locate6,4,：程序名：ZDFix3:：Locate6,4,：Locate6,4,：20数据子程序(附后示例)-1程序名：X1（线路1坐标计算要素程序）IfZ26615.555:Then25900,11587.421,1847.983,101。0923.1”,715.555,11045,11045,0MatF:Goto0:IfEnd:IfZ26915.555:Then26615.555,11448.97,2550.016,101。0923.1”,300,11045,1800

19、,1MatF:Goto0:IfEnd:LbI0:Prog”F”-2程序名：X2（线路2坐标计算要素程序）IfZ616.951:Then316.951,11230.669,3213.086,118。4228.42”,300,1800,11045,1MatF:Goto0:IfEnd:IfZ4050:Then3089.766,9708.017,5530.185,123。2857.1”,300,-44。3938”,2200,2MatF:Goto0:IfEnd:LbI0:Prog”F”程序字母说明：O-线元起点桩号(交点桩号)；U-起点X坐标（交点X）；V-起点Y坐标（交点Y）；G-线元起点桩号切线方位

20、角（交点前一交点至现交点方位角）;线元长度（缓和曲线长度），线元起点曲率半径（偏角：值为正负，左偏为负，右偏为正），线元终点曲率半径（圆半径）,Q线元判别(以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0;交点法取值2）.说明括内为交点法子母代表意思。-1程序名：S1(线路1高程竖曲线要素子程序)IfZ3=1:ThenGoto1:ElseProg“S2”:Goto0:IfEnd:LbI1:IfZ26157.8:Then-200000R:157.8T:26000C:37.1G:0.01222I:Goto0:IfEnd:If

21、Z27421.915:Then300000R:171.915T:27250C:32.65G:-0.00356I:Goto0:IfEnd:IfZ27889.029:Then1000000R:134.029T:27755C:36.64G:0.0079I:Goto0:IfEnd:LbI0-2程序名：S2(线路2高程竖曲线要素子程序)IfZ183.007:Then1365R:20.475T:162.532C:46.1G:0.003I:Goto0:IfEnd:IfZ321.264:Then-1200R:38.732T:282.532C:50.175G:0.033I:Goto0:IfEnd:LbI0程序字

22、母说明：C-竖曲线交点桩号；G-交点桩号高程（未竖曲线调整的）；T-竖曲线切线长(标段结尾或开头没有竖曲线的输0)；R-竖曲线半径（分正负：凹曲线为正，凸曲线为负）；I竖曲线前纵坡-1程序名：I1（线路1高程超高参数子程序）1.5K:2W:IfD0:ThenGotoL:ElseGotoR:IfEnd:LbIL:IfZ26615.555:Then0S:-0.02M:Goto0:IfEnd:IfZ26735.555:Then120S:26615.555C:-0.02M:0.02N:Goto0:IfEnd:IfZ26795.555:Then60S:26735.555C:0.02M:0.04N:Got

23、o0:IfEndLbIR:IfZ26735.555:Then0S:-0.02M:Goto0:IfEndIfZ26795.555:Then60S:26735.555C:-0.02M:-0.04N:Goto0:IfEndIfZ27436.951:Then0S:-0.04M:Goto0:IfEndLbI0-2程序名：I2（线路2高程超高参数子程序）0.5K:1W:IfD0:ThenGotoL:ElseGotoR:IfEnd:LbIL:IfZ100:Then0S:-0.015M:Goto0:IfEnd:IfZ110:Then10S:100C:-0.015M:-0.02N:Goto0:IfEnd:IfZ

24、343.665:Then0S:-0.02M:Goto0:IfEndLbIR:IfZ100:Then0S:-0.015M:Goto0:IfEndIfZ110:Then10S:100C:-0.015M:-0.02N:Goto0:IfEndIfZ375.665:Then0S:-0.02M:Goto0:IfEndLbI0字程序中字母表示说明：K中央分隔带半幅宽（中桩标高至中桩中线距离，无分隔带则为0）；W超高方式参数（W=1为一般直线方式超高，W=2为三次抛物线方式超高）;S超高渐变段距离（不是渐变段则输入0）；C-超高渐变段起点桩号（不是渐变段，无需输入）；M超高段起点横坡，N-超高渐变段终点横坡（

25、不是渐变段，无需输入）。-1程序名：G1(线路1路基标准半幅宽度参数子程序)IfZ3=1:ThenGoto1:ElseProg“G2”:Goto0:IfEndLbI1:IfD0:ThenGotoL:ElseGotoR:IfEnd:LbIL:IfZ28110.727:ThenZC:17.25A:Goto0:IfEnd:IfZ28200.727:Then28110.727C:17.25A:21.25B:90S:Goto0:IfEndLbIR:Z27927.478:ThenZC:17.25A:Goto0:IfEndIfZ28172:Then27927.478C:17.25A:27.031B:244.

26、522S:Goto0:IfEndLbI0-2程序名：G2(线路2路基标准半幅宽度参数子程序)IfD0:ThenGotoL:ElseGotoR:IfEnd:LbIL:IfZ69.998:ThenZC:28.25A:Goto0:IfEnd:IfZ82.402:Then69.998C:28.25A:25.545B:12.404S:Goto0:IfEndLbIR:Z69.998:ThenZC:17.45A:Goto0:IfEndIfZ80.367:Then69.998C:17.45A:16.787B:10.369S:Goto0:IfEnd:LbI0字程序中字母表示说明：C宽度渐变段起点桩号（不是渐变段

27、C=Z）；A宽度渐变段起点宽度;B宽度渐变段终点宽度（不是渐变段，无需输入）；S-宽度渐变段距离（不是渐变段，无需输入）。-1程序名：SD1(线路1隧道参数子程序)IfZ3=1:ThenGoto1:ElseProg“SD2”:Goto0:IfEnd:LbI1:8.75Z4:-1.1Z5:4.77Z6:1.47Z7:-0.25Z9:51。2857.1”Z10:LbI0-2程序名：SD2(线路2隧道参数子程序)5.43Z4:1.634Z5:7.93Z6:1.634Z7:0Z9:90Z10字程序中字母表示说明：Z4隧道上拱半径；Z5隧道上拱圆心至设计面高度；Z6隧道中腰部半径；Z7中腰圆心至设计面高

28、度；Z9设计隧道中线与设计路基中线偏移值，左为负数，右为正数；Z10上部拱跨隧道半幅角度；-1程序名：W1(线路1路基填挖边坡参数子程序)IfZ3=1:ThenGoto1:ElseProg“W2”:Goto0:IfEnd:LbI1:0.75Z5:1Z6:1.25Z7:10Z8:10Z9:2.6Z10:2Z11:2Z12: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挖方第

29、一阶边坡边率；Z6挖方第二阶边坡边率；Z7挖方第三阶边坡边率；Z8挖方第一阶高度；Z9挖方第二阶高度；Z10挖方路基碎落台及水沟宽度；Z11挖方第二台阶平台宽度；Z12挖方第三台阶平台宽度；Z13填方第一阶边坡边率；Z14填方第二阶边坡边率;Z15填方第一阶高度；Z16-填方第二台阶平台宽度。（注：本程序只做出挖方三个台阶，填方二个台阶，如需增加，先需在程序THB和4FBZ程序中增加变量。再如一标段有坡率及坡高不一样时，可以照其它参数程序一样，用判别语句。）三、使用说明1、规定(1)“KM”为所求点桩号，反算时为输入大概桩号(2)当所求点位于中线时，=0；当位于中线左铡时，取负值；当位于中线中

30、线右侧时，取正值。(3)当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。（在用交点法时，P子母代表偏角）(4)当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。（交点法为圆半径）(5)当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。(6)当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。(7)Q值是判别用采用线元法还是交点法。交点法值为2。线元法，根据线元段取值，直线段取0，缓和段和圆曲线段，根据左偏取-1,右偏取1.(8)为了区别字母O及数子0，特把字母0加粗。2、输入与显示说明输入部分：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、隧道超欠挖