Fx5800计算器公路测量程序设计2.3版(共24页)

1、精选优质文档-倾情为你奉上FX5800计算器公路测量常用程序集2.3 版 一、程序功能    主要功能：采用交点法方式计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。新版本优化：1、优化程序语句、2、取消原线元法计算，化线元法为交点法。3、高程计算修改,4、附计算坐标及高程参数设计要素输入实例二、源程序（绿色为程序名；蓝色为输入计算器内容）红色为网友调试后修改笔误。0.总主程序（1、坐标计算放样程序2、

2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后按19数子约半秒，则选择1至9的程序，返回时，在桩号输入-1,返回选择计算类型。输入-2,返回选择线路。程序名：0（数子0）ClrMat:ClrVar:12DimZ：Norm 2:Do:(XY=1，ZD=2 ，GC=3，GD=4， BP=5，FM=6，ZP=7，JS=8，SD=9)=>QING AN 1-9：GetkeyZ3:While Z3=35:Prog1XY”:WhileEnd:While

3、Z3=36:Prog2ZD：WhileEnd: While Z3=37:Prog3GC：WhileEnd: While Z3=21:Prog4GD：WhileEnd: While Z3=22:Prog5BP：WhileEnd: While Z3=23:Prog6FM：WhileEnd: While Z3=31:Prog7ZP：WhileEnd: While Z3=32:Prog8JS：WhileEnd: While Z3=33:Prog9SD：WhileEnd:LpWhile Z325:”XIE XIE SHI YONG”:1.主程序：一般坐标计算及放样程序程序名:1XYProg DX:Pro

4、gQX:90A: PJ1?A:AB: PJ2?B:AZ1:BZ9: Do:KM?Z:Z=-1=>Stop:Z=-2=>Break: ProgK: ?D: 0L: L0?L:LZ10: PorgA:Z2+Z1 A :A-Z9E:I+Dcos(A)+Z10cos(EX:J+Dsin(A)+Z10sin(EY:ProgXY:ProgJS:LpWhile Z-12.主程序：由大概桩号及坐标反算桩号及距离程序名:2ZDProgQX:Do: KM?Z:Z=-1=>Stop:Z=-2=>Break: ProgK: XO?X: Y0?Y: PorgB: ProgZD:LpWhile Z

5、-13.主程序：任意点高程计算及横坡程序名:3GCProgQX:0B: H-B?B: BZ9: Do: KM?Z:Z=-1=>Stop:Z=-2=>Break:?D:ProgH:Fix 3: H=: Locate 6,4,H-Z9： I=:Locate 6,4,I：LpWhile Z-14.主程序:任意桩号位置的标准路基宽度计算程序名:4GDProgQX: Do: KM?Z:Z=-1=>Stop:Z=-2=>Break:-1D:ProgC:LP：1D: ProgC:Fix 3: LGD=: Locate 6,4,P： RGD=:Locate 6,4,L：LpWhile

6、Z-15、主程序:路基开挖边线及填方坡脚线放样程序程序名：5BPProg DX:ProgQX:0.5B: TH-GD?B: BZ7: Do:KM?Z:Z=-1=>Stop:Z=-2=>Break: ProgK: “X0?X:Y0?Y:Z8M：M0?M:MZ8: PorgB:DP :ProgC:If D<0:Then 0.75-LD:Else L-0.75D: IfEnd: Prog“H”:H-0.03-Z8 G: Prog “W1”:If G>0:Then Goto T: IfEnd: -GH:If H>E+F:Then L+M+N+U+C(H-E-F)+BF+A

7、ES:Goto 0:IfEnd:If H>E:Then L+M+N+ B(H-E)+AES:Goto 0:IfEnd:If H<E:Then L+M+HAS:Goto 0:IfEnd:LbI T:If G>W：Then L+Z7+V+J(G-W)+IWS:Else L+Z7+GIS:IfEnd:LbI 0: Fix 2: PD ：Abs（D）-ST: LX=:Locate 6,4,T：ProgZD: TW=: Locate 6,4,GLpWhile Z-16、主程序：定值放样路基桩计算填挖值程序名：6FMProg DX:ProgQX: Do:KM?Z:Z=-1=>Sto

8、p:Z=-2=>Break: ProgK: ?D: PorgA:Z2+90A :I+Dcos(AX:J+Dsin(AY:ProgXY:ProgJS:Z8M:”M0”?M:MZ8:Prog “H”:” TW=”:Locate 6,4,H-Z8: LpWhile Z-17、主程序：桥梁锥坡计算放样程序名：7ZPProgDX:ProgQX:Z0?Z:LD:Z-,Y+? D:Abs(D) R: LR?R: DZ7:RZ10:ZZ9:Prog”C”:LZ10:Prog”K”:Do:Z10Y:L0:SZ+,DZ-?Y: Y=-1=>Stop:Y=-2=>Break: (Z72（1-Y2/

9、Z102）)X：Z9+YZ: Prog”C”: If D>0:Then L+XD:Else L-XD:IfEnd:Prog”A”: Z2+90A :I+Dcos(AX:J+Dsin(AY:ProgXY:ProgJS: LpWhile Y-1 8、主程序：由坐标计算方位角及距离程序名：8JSProg DX:Do:?X: X=-1=>Stop:X=-2=>Break:?Y:Prog”JS”: LpWhile X-19、主程序：隧道超欠挖放样计算程序名：9SDProgDX:0.65A:”CQHD”?A:AZ7:Do:KM?Z:Z=-1=>Stop:Z=-2=>Break

10、: ProgK: “X0?X:Y0?Y:Z8M：M0?M:MZ8: PorgB:DZ9:0D:Prog”H”:Prog”SD1”:Z9 D:Z8M:Z7X:Rcos(PC:H+AA:H+BB:C+AE:If M<E:Then R-VS:S=0=>Goto 1: (S2-(B-A)2)S÷Abs(ST:Abs(D-Q)-TT:(T2+(M-B)2)-V-XL:Goto 0:IfEnd:LbI 1:(D-Q)2+(M-A)2)-R-XL:LbI 0:Fix 2: ” LX=”: Locate 6,4,L:Prog”ZD”:“ H0=”: Locate 6,4,M-HLpWhi

11、le Z-110. 交点法正算子程序()程序名：AP÷Abs(PW:O-T+R×Abs(P)÷180+H÷2-N÷2Q:HC:0M:If ZO-T:Then Z-OS:GZ2:Goto 1: IfEnd: If ZO-T+H:Then Z-O+TS:Prog “HX”:G+WKZ2:A-TA:GE:Goto 2:IfEnd:If ZQ: Then 180(Z-O+T-0.5H)÷R÷S : Prog”AB”:A+R(1-Cos(SE：B+Rsin(SA:EB:RM:G+WSZ2:A-TA:GE:Goto 2: IfEnd:I

12、f ZQ+N:Then Q+N-ZS:NH:Prog “HX”:G+PE:E-WKZ2:F-AA:CH:Goto 2:IfEnd:Z-Q-N+FS:G+PZ2: LbI 1:U+Scos(Z2I:V+Ssin(Z2J:Return:LbI 2:U+Acos(E)-WBsin(EI:V+Asin(E)+WBcos(EJ11. 交点法反算子程序()程序名：B0D:Do:Z+DZ:Prog”A”:Pol(X-I,Y-J+×10-9:J-Z2J:Isin(JS:Icos(JD:If M0:Then Pol(M-WS,D:JM÷180D:IfEnd: LpWhile Abs(D)&g

13、t;.001:Z+DZ:SD12.缓和曲线段直角坐标计算子程序(B)程序名：ABH2÷R÷24-H(4)÷2688÷R(3)+H (6)÷÷R(5)- H (8)÷÷R(7)A:H÷2-H(3)÷240÷R2+ H (5)÷34560÷R(4)- H (7)÷÷R(6)+ H (9)÷÷R(8)B13. 计算缓和曲线段坐标增量及偏角子程序(HX)程序名：HXS-S(5)÷40÷R2÷H2+S(9)

14、÷3456÷R(4)÷H(4)-S(13)÷÷R(6)÷H(6)+S(17)÷÷R(8)÷H(8)A:S(3)÷6÷R÷H-S(7)÷336÷R(3)÷H(3)+S(11)÷42240÷R(5)÷H(5)-S(15)÷÷R(7)÷H(7)+S(19)÷÷R(9)÷H(9)B:90S2÷÷R÷HK:If S=0:Then 0M:E

15、lse RH÷SM:IfEnd14高程计算子程序（H）程序名：HProg “S1”:N-IA:A÷Abs(AW:R×Abs(A÷2T:If Z<C-T:Then G+I(Z-CH:Goto 0:IfEnd:If Z<C+T:Then G-TI+(I+(Z-C+T)W÷2÷R)×(Z-C+TH:Goto 0: IfEnd:NI: G+I(Z-CH:LbI 0:If D=0:Then HH:Return:Else Prog “I”:H+I(Abs(D)-KH:IfEnd15.高程超高计算横坡子程序（I）程序名：IPr

16、og “I1”：If S=0:Then MI: Return:Else If W=1:Then (N-M)×(Z-C)÷S+MI:Return:Else (3(Z-C)÷S)2-2(Z-C)÷S)(3)×(N-M)+MI:IfEnd:16路基宽度子程序程序名： C1S: Prog “G1”:Z-CE:(B-A)E÷S+AL17：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：JSZ5K：Z6L:Pol(X-K, Y-L:IF J<0:Then J+360J:IFEnd:Int(J)+0.01Int(60Frac(J)+

17、0.006Frac(60Frac(JJ: Fix 4:” FWJ=”: Locate 6,4,J：Fix 3:” S=”:Locate 6,4,I18导线点子程序（DX）程序名：DXZ5K:Z6L:“XZ”?K:”YZ”?L:KZ5:LZ619线路选择子程序(线路选择输0时。则输曲线参数（QX）程序名：QX1A:”QX:X1=1,X2=2”?A:AZ4:If A=0:Then ”JDKM”?O:”JDX”?U:”JDY”?V:”FWJ”?G:”ZJ”?P:”LS1”?H:”LS2”?N:”T1”?T:”T2”?F:?R:IFEnd20线路中线元段判别子程序（K）程序名：KIf Z4=0:The

18、n Return: IfEnd:If Z4=1:Then Prog “X1”:Return:IfEnd：If Z4=2:Then Prog “X2”:Return:IfEnd21坐标参数矩阵调用程序（F）程序名：FMat F1,1O: Mat F1,2U: Mat F1,3V: Mat F1,4G: Mat F1,5P: Mat F1,6H: Mat F1,7N: Mat F1,8T:Mat F1,9F: Mat F1,10R22显示子程序程序名：XYix 3: =：Locate 6,4,： ：Locate 6,4,：程序名：ZDFix 3:：Locate 6,4,：Locate 6,4,23

19、数据子程序(附后示例)匝道线元转交点数据程序（T）程序名：TNorm 2:“QKM”？Z：“XQ”？U：“YQ”？V：“LS1”？M：“LS2”？O：“A1”？A：“A2”？B：“FWJ“？G：”ZJ“？P：？R：P÷Abs(PQ:A2÷RH:H<M=>MH:H-MS:B2÷RN:N-OC:O>N=>ON:H=0=>×10-9H:HX:90S2÷(RHK:G-QKG:N=0=>×10-9N: 90C2÷(RND:P+QK+QDP:Prog”AB”: (H2-N2)÷24÷

20、;R÷sin(Abs(P)-(H(4)-N(4)÷2688÷R(3)÷sin(Abs(P)+(H (6)-N(6)÷÷R(5)÷sin(Abs(P)-(H (8)-N(8)÷÷R(7)÷sin(Abs(PE:(R+A)tan(Abs(P)÷2)+B-ET:NH:Prog”AB”: (R+A)tan(Abs(P)÷2)+B+EF: XH: Z-S+TO:Prog”HX”:U-(A-T)cos(G)+QBsin(GU:V-(A-T)sin(G)-QBcos(GV:Fix 3:”J

21、DKM=”:Locate 6,4,O:”JDX=”:Locate 6,4,U: ”JDY=”:Locate 6,4,V ”FWJ=”:GDMS”ZJ=”：PDMS”LS1=”: Locate 6,4,H: ”LS2=”: Locate 6,4,N: ”T1=”: Locate 6,4,T: ”T2=”: Locate 6,4,F”R=”:R说明：运行后“QKM”？输入起点桩号；“XQ”？ “YQ”？输入起点X、Y坐标；“LS1”？ “LS2”？输入前段缓和曲线长度，后段缓和曲线长度；“A1”？ “A2”？输入前段缓和曲线参数，后段缓和曲线参数；“FWJ“？输入起点切线方位角；”ZJ“？输入转角

22、（终点方位角减起点方位角之差，左转为负，右转为正）；计算结果要素同QX子程序中要素字母。-1程序名：X1（线路1坐标计算要素程序）If Z241.086:Then -336.478，.639，.519， 280。2028.78”， 203。0828.32”，106.667，81.667，-270.668，-283.056，60Mat F:Prog”F”: IfEnd-2程序名：X2（线路2坐标计算要素程序）If Z273.006:Then 171.674，.547，.863，58。4917.2”， 68。0926.91”，93.889，125，171.674，184.771，180Mat F:

23、Prog”F”: Return: IfEndIf Z466.227:Then 341.96，.76，.865，123。4325.9”， 15。5849.5”,0，138.211，68.954，125.273，445Mat F:Prog”F”: Return: IfEnd说明：1、交点法：If Z计算交点段终点桩号：Then交点桩号，交点X坐标，交点Y坐标，起点至交点方位角，交点转角，交点前段缓和曲线长度，交点后段缓和曲线长度，交点前段切线长度，交点后段切线长度，圆半径 Mat F: Prog”F”: Return: IfEnd（转角则为交点段终点方位角减起点方位角，分正负，左偏为负，右偏为正）

24、如整条线无曲线，全为直线段，则交点为终点桩号，XY为终点坐标，方位角为起点方位角，转角和圆半径为1，其它全为0。-1程序名：S1(线路1高程竖曲线要素子程序)If Z4=1:Then Goto 1: Else Prog “S2”: Return: IfEnd: LbI 1:If Z241.09:Then 95.356C:40.742G:2000R:-.03155I:.00812N:IfEnd:-2程序名：S2(线路2高程竖曲线要素子程序)If Z133.601:Then 106C:45.12G:1525R:-.0064I:.0298N:Return:IfEnd:If Z466.23:Then

25、298C:50.841G:1945R:.0298I:-.01968N: Return:IfEnd:程序字母说明：C-竖曲线交点桩号；G-交点桩号高程（未竖曲线调整的）；R-竖曲线半径；I竖曲线前纵坡; N竖曲线后纵坡-1程序名：I1（线路1高程超高参数子程序）0K:1W: If Z4=1:Then Goto 1:Else Prog “I2”:Return: IfEnd:LbI 1:If D<0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z159.419:Then 0S:.06M: Return:IfEnd:If Z187.987:Then 28.568

26、S:159.419C:.06M:.02N: Return:IfEnd:If Z241.086:Then 0S:.02M: Return:IfEnd:LbI R:If Z159.419:Then 0S:-.06M: Return:IfEnd:If Z187.987:Then 28.568S:159.419C:-.06M:-.02N: Return:IfEnd:If Z241.086:Then 0S:.-02M: Return:IfEnd-2程序名：I2（线路2高程超高参数子程序）If D<0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z77.872:Th

27、en 0S:.02M:Return:IfEnd:If Z93.889:Then 16.017S:77.872C:.02M:.05N:Return:IfEnd:If Z198.567:Then 0S: .05M:Return:IfEnd: If Z273.006:Then 74.439S:198.567C:.05M:.02N:Return:IfEnd:If Z335:Then 0S: .02M:Return:IfEnd: Z346.235:Then 11.235S:335C:.02M:.015N:Return:IfEnd:LbI R:If Z77.872:Then 0S:-.02M:Return

28、:IfEnd:If Z93.889:Then 16.017S:77.872C:-.02M:-.05N: Return:IfEnd:If Z198.567:Then 0S: -.05M: Return:IfEnd: If Z273.006:Then 74.439S:198.567C:-.05M:-.02N: Return:IfEnd:If Z335:Then 0S: -.02M: Return:IfEnd: Z346.235:Then 11.235S:335C:-.02M:-.015N: Return:IfEnd:子程序中字母表示说明：K中央分隔带半幅宽（中桩标高至中桩中线距离，无分隔带则为0）

29、；W超高方式参数（W=1为一般直线方式超高，W=2为三次抛物线方式超高）;S超高渐变段距离（不是渐变段则输入0）；C-超高渐变段起点桩号（不是渐变段，无需输入）；M超高段起点横坡，N-超高渐变段终点横坡（不是渐变段，无需输入）。-1程序名：G1(线路1路基标准半幅宽度参数子程序)If Z4=1:Then Goto 1:Else Prog “G2”:Return: IfEndLbI 1:If D<0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z241.086:Then ZC:3.5A:Return:IfEnd:LbI R: If Z40.857:Then

30、 0C:5A:5.25B:40.857S:Return:IfEnd:If Z159.419:Then ZC:5.25A:Return:IfEnd: If Z187.987:Then 159.419C:5.25A:5.5B:28.568S:Return:IfEnd:If Z241.086:Then ZC:5.5A:Return:IfEnd-2程序名：G2(线路2路基标准半幅宽度参数子程序)If D<0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z466.227:Then ZC:3.5A:Return:IfEnd:LbI R: If Z321.611:Th

31、en ZC:5A:Return:IfEnd:If Z346.235:Then 321.611C:5A:5.75B:24.624S:Return:IfEnd:If Z466.227:Then ZC:5.75A:Return:IfEnd子程序中字母表示说明：C宽度渐变段起点桩号（不是渐变段C=Z）；A宽度渐变段起点宽度; B宽度渐变段终点宽度（不是渐变段，无需输入）；S-宽度渐变段距离（不是渐变段，无需输入）。-1程序名：SD1(隧道参数子程序)If Z4=1:Then 5.1R:1.8A:1.4V:0.59B:0Q: 109。0130”P: Return:IfEnd:If Z4=2:Then 8

32、.75R:-1.1A:4.77V:1.47B:-.25Q: 51。2857.1”P: Return:IfEnd:子程序中字母表示说明：R隧道上拱半径；A隧道上拱圆心至设计面高度；V隧道中腰部半径；B中腰圆心至设计面高度；Q设计隧道中线与设计路基中线偏移值，左为负数，右为正数；P上部拱跨隧道半幅角度；-1程序名：W1(线路1路基填挖边坡参数子程序)If Z4=1:Then Goto 1: Else Prog “W2”: Return:IfEnd:LbI 1: 10E:10F:2.6M:2N:2S:1.5I:1.75J:8W:2V:If D<0:Then Goto L:Else Goto R

33、:IfEnd:LbI L:1A:1.25B:1.25C:Return:LbI R:If Z110:Then 1.25A:1.25B:1.5C: Return:Else Goto L: IfEnd-2程序名：W2(线路2路基填挖边坡参数子程序)10E:10F:2.6M:2N:2S:1.5I:1.75J:8W:2V:If D<0:Then Goto L:Else Goto R:IfEnd:LbI L:0.75A:0.75B:0.75C:Return:LbI R:If Z445:Then Goto L:Else If Z506.9:Then 0.25×(Z-445)÷21.

34、2Q:.75+QA:AB:AC:Return:IfEnd子程序中字母表示说明：A挖方第一阶边坡边率；B挖方第二阶边坡边率；C挖方第三阶边坡边率；E挖方第一阶高度；F挖方第二阶高度；M挖方路基碎落台及水沟宽度；N挖方第二台阶平台宽度；S挖方第三台阶平台宽度；I填方第一阶边坡边率；J填方第二阶边坡边率; W填方第一阶高度；V-填方第二台阶平台宽度。（注：本程序只做出挖方三个台阶，填方二个台阶，如需增加，先需在程序5BP程序相应增加。再如一标段有坡率及坡高不一样时，可以照其它参数程序一样，用判别语句。）三、使用说明1、规定 (1) 坐标计算以交点方式计算，一般情况下一个交点计算一段线是：直线+缓和曲

35、线+圆曲线+缓和曲线+直线。在匝道中先根据实际线来调整，可以单独计算一段不完整的缓和曲线+圆曲线。也可以单独计算一段缓和曲线或一段圆曲线，需先运行T程序整理成交点数据。无缓和曲线时，缓和长度输0。 (2) 程序中：×10-9 为10的负9次方即0.; 为圆周率即3.; 为根号； =：X前有空格二个，为了显示效果     (3) 为了区别字母O及数子0，特把字母0加粗。2、输入与显示说明       输入提示部分：A:XY=1， ZD=2 ，GC=3， GD=4， B

36、P=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为第二条线路，本程序暂设计实例

37、为2条线路。？正算时所求点的里程（反算输入大概桩号）输入-1，返回输入选择计算类型，输入-2,返回选择线路。     ？正算时所求点距中线的边距(左侧取负值,右侧取正值，在中线上取零)         X0 ？反算时所求点的X坐标（放样程序中实测X坐标）     Y0 ？反算时所求点的Y坐标（放样程序中实测Y坐标）显示部分：L0? 涵洞放样程序中涵距中心桩号前后距离,前为正,后为负.(即涵洞半幅宽度)M0? 放样程序

38、中原地面标高输入H-B？计算面至路面高差（默认路面为0）PJ1? PJ2? PJ1为路线中线与边线的右夹角。第二夹角为边线至路前进方向夹角,默认值均为90度.TH-GH？边坡放样中填方超放宽值，默认值为0.5m.LD:Z-,Y+? 桥梁锥坡向左右方向边长，左为负数，右为正数。(即为锥坡高程减地面高程后乘以填方坡比)LR? 锥坡向路线前进或向后退方向边长。Z0? 锥坡顶边桩号L0:SZ+,DZ-?锥坡放样中，椭圆上分段放样距离，小桩号锥坡输正数，大桩号锥坡输负数。“CQHD”? 隧道超欠挖程序中衬砌厚度, 默认值为0.65m.QX子程序中和T程序结果中：“JDKM”？输入交点桩号；“JDX”？

39、“JDY”？输入交点X、Y坐标；“FWJ“？输入起点至交点方位角”ZJ“？输入转角（终点方位角-起点方位角之差，左转为负，右转为正）;“LS1”？ “LS2”？输入交点前段缓和曲线长度，交点后段缓和曲线长度；“T1”？ “T2”？ 输入交点前段切线长度，交点后段切线长度；”R”?圆半径输出部分    X=*    正算时，计算得出的所求点的X坐标    Y=*    正算时，计算得出的所求点的Y坐标FWJ=* 正算时，计算得出的所求点的至置仪点方位角S=* 正算时，计算得出的所求点的至置仪点距离=*    反算时，计算得出的所求点的里程