《FX5800计算器公路测量常用程序集》由会员分享，可在线阅读，更多相关《FX5800计算器公路测量常用程序集（12页珍藏版）》请在金锄头文库上搜索。
1、FX5800计算器公路测量常用程序集2.3版一、程序功能 主要功能：采用交点法方式计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度、隧道欠超挖放样计算。 新版本优化：1、优化程序语句、2、取消原线元法计算，化线元法为交点法。3、高程计算修改,4、附计算坐标及高程参数设计要素输入实例二、源程序（绿色为程序名；蓝色为输入计算器内容）红色为网友调试后修改笔误。0.总主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖
2、口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后按19数子约半秒，则选择1至9的程序，返回时，在桩号输入-1,返回选择计算类型。输入-2,返回选择线路。程序名：0（数子0）1.主程序：一般坐标计算及放样程序程序名:1XYProg DX:ProgQX: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(
3、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-13.主程序：任意点高程计算及横坡程序名:3GCProgQX:0B: H-B?B: BZ9: Do: KM?Z:Z=-1=Stop:Z=-2=Break:?D:ProgH:Fix 3: H=:Lcoate 6,4,H-Z9： I=:Locate 6,4,I：LpWhile Z-14.主程序:任意桩号位置的标准路基宽度计算程序
4、名:4GDProgQX: Do: KM?Z:Z=-1=Stop:Z=-2=Break:-1D:ProgC:LP：1D: ProgC:Fix 3: LGD=:Lcoate 6,4,P： RGD=:Locate 6,4,L：LpWhile Z-15、主程序:路基开挖边线及填方坡脚线放样程序程序名：4BPProg 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 D0:Then Goto T: IfEnd:-GH:If HE+F:
5、Then L+M+N+U+C(H-E-F)+BF+AES:Goto 0:IfEnd:If HE:Then L+M+N+ B(H-E)+AES:Goto 0:IfEnd:If HW 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=:Lcoate 6,4,GLpWhile Z-16、主程序：定值放样路基桩计算填挖值程序名：6FMProg DX:ProgQX: Do:KM?Z:Z=-1=Stop:Z=-2=Break: ProgK: ?D: Porg
6、A: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/Z102）)X：Z9+YZ: Prog”C”: If D0:Then L+XD:E
7、lse L-XD:IfEnd:Prog”A”: Z2+90A :I+Dcos(AX:J+Dsin(AY:ProgXY:ProgJS: LpWhile Y-18、主程序：由坐标计算方位角及距离程序名：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: ProgK: “X0?X:Y0?Y:Z8M：M0?M:MZ8: PorgB:DZ9:0D:Prog”H”:Prog”SD
8、1”:Z9 D:Z8M:Z7X:Rcos(PC:H+AA:H+BB:C+AE:If MGoto 1: (S2-(B-A)2)SAbs(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-HLpWhile Z-110. 交点法正算子程序()程序名：APAbs(PW:O-T+RAbs(P)180+H2-N2Q:HC:0M:If ZO-T:Then Z-OS:GZ2:Goto 1: I
9、fEnd: 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)RS : Prog”AB”:A+R(1-Cos(SE：B+Rsin(SA:EB:RM:G+WSZ2:A-TA:GE:Goto 2: IfEnd:If 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)-WB
10、sin(EI:V+Asin(E)+WBcos(EJ11. 交点法反算子程序()程序名：B0D:Do:Z+DD:Prog”A”:Pol(X-I,Y-J+10-9:J-Z2 J:Isin(JS:Icos(JD:If M0:Then Pol(M-WS,D:JM180D:IfEnd: LpWhile Abs(D.001:Z+DZ:SD12.缓和曲线段直角坐标计算子程序(B)程序名：ABH2R24-H(4)2688R(3)+H (6)506880R(5)- H (8)154828800R(7)A:H2-H(3)240R2+ H (5)34560R(4)- H (7)8386560R(6)+ H (9)3
11、158507520R(8)B13. 计算缓和曲线段坐标增量及偏角子程序(HX)程序名：HXS-S(5)40R2H2+S(9)3456R(4)H(4)-S(13)599040R(6)H(6)+S(17)175472640R(8)H(8)A:S(3)6RH-S(7)336R(3)H(3)+S(11)42240R(5)H(5)-S(15)9676800R(7)H(7)+S(19)3530097000R(9)H(9)B:90S2RHK:If S=0:Then 0M:Else RHSM:IfEnd14高程计算子程序（H）程序名：HProg “S1”:N-IA:AAbs(AW:RAbs(A2T:If ZC
12、-T:Then G+I(Z-CH:Goto 0:IfEnd:If ZC+T:Then G-TI+(I+(Z-C+T)W2R)(Z-C+TH:Goto 0: IfEnd:NI: G+I(Z-CH:ILbI 0:If D=0:Then HH:Return:Else Prog “I”:H+I(Abs(D)-KH:IfEnd15.高程超高计算横坡子程序（I）程序名：IProg “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路基宽
13、度子程序程序名： C1S: Prog “G1”:Z-CE:(B-A)ES+AL17：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：JSZ5K：Z6L:Pol(X-K, Y-L:IF J0:Then J+360J:IFEnd:Int(J)+0.01Int(60Frac(J)+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 Z3=0:Then Return: IfEnd:If Z3=1:Then Prog “X1”:Return:IfEnd：If Z3=2:Then Prog “X2”:Return:IfEnd21坐
