5800计算器程序5.docx

1、5800计算器程序5FX5800计算器测量程序集2.0 版一、程序功能主要功能：计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。新版本特点：1、优化原所有主程序，所有参变量（如导线点置仪点坐标、正反算选择、偏角、线路选择等），全部在程序头次显示一次，以后运行不需输入。运行中也可以返回再次选择线路、可以直接以矩阵形式调出线路参数。2、坐标计算考虑了线元法与交点法相结合，即是一条线路也可以一段用线元法，一段用交点法。参数置放矩阵中，输入和可读性极好。3、新

2、增隧道断面欠超挖值放样计算4、高程程序中考虑了初次输入线路选择、计算面与设计面高差，输出中加入显示本桩号路基标准宽度。二、源程序1.主程序1：一般放样正反算程序(正算坐标、放样点至置仪点方位角及距离；反算桩号及距中距离)程序名:1ZD-XYLb1 Q: Norm 2:14DimZ：1F：ProgDX:Lb1 X：ProgQX：90B：PJ？B：BZ1：Lb1 0: Norm 2 ：“KM”?Z：If Z=-1:Then Goto X:Else If Z=-2: Then 2F :Goto 0: Else If Z=-3: Then Goto 9:IfEnd: ProgKM：If F=1:The

3、n ?D:Else “X0”?X:“Y0”?Y: IfEnd: ProgTHB:If F=1: Then Goto 1: Else Goto 2：Lb1 1:ix 3: =：Locate 6,4, ：Locate 6,4,rog6JS”:Goto 0:Lb1 2:Fix 3:：Locate 6,4,：Locate 6,4,oto 0：Lbl 9:Mat Foto Q主程序：高程、横坡、宽度程序(计算设计任意点高程、横坡及路基设计标准宽度)程序名：2GC14DimZ：LbI 0:Norm 2: ProgQX：0B:”H-B:”?B:BZ9:LbI H: Norm 2: “KM”?Z:Z=-1=

4、Goto 0:?D:Prog”H”:Fix 3:” H=”:Locate 6,4,H“ I=”: Locate 6,4,IProgGD：“SJLG=”: Locate 6,4,L Goto H3主程序3：涵洞放样程序（输入置仪点坐标。选择线路、输入路线右夹角、前进方向偏角、由涵中心桩号计算出各涵角坐标、计算放样点至置仪点方位角及距离)程序名：3JH-XY14DimZ：ProgDX:LbI X:Norm 2: ProgQX：90B：PJ1？B：BC: PJ2？C: BZ1：CZ8：LbI 0:Norm 2:1F: “KM”?Z：If Z=-1:Then Goto X: ?D:Prog”THB”:

5、0L:“L0”?L:Z2+Z1-Z8 E:X+Lcos(E) X:Y+Lsin(E) Y:Fix 3: =：Locate 6,4, ：Locate 6,4,rog6JS”:Goto 0:4主程序4:路基开挖边线及填方坡脚线放样程序（输入填方放宽值、大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：4FBX17DimZ：LbI B:Norm 2: ProgQX：0.5B:“TH-GD”?B:BZ17:LbI 0:Norm 2: 2F:90Z1: “KM”?Z：If Z=-1:Then Goto B: “X0”?X:“Y0”?Y: 0M:“M0”?M:MZ4:Prog”

6、THB”:DP:Prog”GD”:If D0:Then 0.75-LD:Goto H:Else L-0.75D:Goto H:IfEndLbI H:Prog“H”:H-0.03-Z4 Z4: Prog “W1”:If Z4A:Then Goto 1:Else If GZ8:Then Goto 2:Else Goto 3:IfEnd:LbI 1:L+Z10+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:T

7、hen (T+Z16+(G-Z15)Z14+Z15Z13)S:Goto Z:Else (T+GZ13)S:Goto Z:LbI Z:Fix 2:Abs(P)-SK:” L0=”: Locate 6,4,KFix 3:：Locate 6,4,：Locate 6,4,PZ40=Z4+I(T-L) Z4:“ TW=”: Locate 6,4,Z4Goto 05.主程序5.隧道超欠挖值计算放样程序（输入隧道线路，大概桩号、输入测量三维坐标，计算准确桩号及位置、计算欠超挖值）程序名：5SD15DimZ：LbI B:Norm 2: ProgQX:LbI 0:Norm 2: 2F:90Z1: “KM”?Z：

8、If Z=-1:Then Goto B: Prog“XD1”:” X0”?X:“Y0”?Y: 0M:“M0”?M:MZ8:Prog“THB”: DZ10:0D:Prog“H”:Cos(Z10)*Z4 E: H+Z5 Z5: H+Z7 Z7: E+Z5 Z10:If Z8Z10:Then Goto R:Else Goto S:IfEnd:LbI R: (D-Z9) 2+(Z8-Z5) 2 )- Z4 L:Goto L:LbI S: Z4-Z6 S: (S 2-(Z7-Z5) 2 ) T:Abs(D-Z9)-TT:(T 2+(Z8-Z7) 2 )- Z6 L:Goto L:LbI L: Fix 2

9、:” L0=”: Locate 6,4,LFix 3:：Locate 6,4,：Locate 6,4,“ H0=”: Locate 6,4,Z8-HGoto 06：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：6JSX：Y：Z11K(置仪点X坐标)Z12L（置仪点Y坐标）Pol(X-K, Y-L):IF J0:Then J+360J:Int(J)+0.01Int(60Frac(J)+0.006Frac(60Frac(J) J:(不习惯小数点后四位为角度显示的，也可以用命令JDMS来直接显示) Fix 4:” FWJ=”: Locate 6,4,JFix 3:” S=”:Locate

10、 6,4,I7路基宽度次程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名： GD1S:If Z3=1:Then Prog “G1”:Goto 1:Else Prog “G2”:Goto 1: IfEndLbI 1:Z-CE:(B-A)*E/S+AL:8坐标计算次程序（）程序名：THBIf Q=2:Then Goto J:1P： (P-R)(2HPR) ：180/E：If F=1:Then： Abs(0) W：Prog ：oto 2:Else:I：J：Prog ：Z：oto 2: IfEnd:LbI J: If F=1:The

11、n： Prog Z：oto 1:Else: Prog ZX：oto 2: IfEnd:LbI 1:I+D*COS(Z2+Z1) X: J+D*Sin(Z2+Z1) Y:LbI 2:9. 线元法正算子程序()程序名：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

12、+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) Y：G+QEW(C+W)：X+cos（+ Z1）： Y+sin（+ Z1）10. 线元法反算子程序()程序名：BG-90： Abs(Y-V)cos(T)-(X-U)sin(T) ： 0：Lbl 0：Prog ： T+QEW(C+W) ： (J-Y)cos(L)-(I-X)sin(L)：IF Abs()0.01:Then Goto 1：Else W+W:Goto 0: IfEn

13、d:Lbl 1:0D：Prog ：(J-Y)sin(+90) D:11. 交点法正算子程序(Z)程序名：ZH2/R/24-H(4)/2688/R(3)A:H/2-H(3)/240/R2B:(R+A)tan(Abs(P)/2)+BT:O-TC:C+HL:L+R*Abs(P)/180N:N-HE:P/Abs(P) W:0M:If ZL:Then 180(Z-L+0.5H)/R/S :H/2-H(3)/240/R2+Rsin(S)A:H2/R/24-H(4)/2688/R(3)+R(1-Cos(S)B:RM:G+WSZ2:Goto 4: IfEnd:Z-CS:Prog “HX”:G+WKZ2:LbI

14、 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 3:12. 交点法缓和段转化子程序(HX)程序名：HXS-S(5)/40/R2/H2+S(9)/3456/R(4)/H(4)A:S(3)/6/R/H-S(7)/336/R(3)/H(3)+S(11) /42240/R(5)/H(5)B:90S2/R/HK:RH/SM:13. 交点法反算子程序(ZX)程序名：ZXZ:0D:LbI 0:Prog “Z”:Pol(X-I,Y-J):J-Z2 J:Isin(J)

15、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 0:IfEndLbI 2:14高程计算子程序（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+S22RH:Goto 0:LbI 0:H:If D=0:Then Goto I

16、:Else Prog “I”:H+VH:LbI I:15.高程超高计算程序（I）程序名：IIf Z3=1:Then Prog “I1”:Goto 1:Else Prog “I2”:Goto1: IfEnd:LbI 1: If W=1:Then:Goto Z:Else:Goto X: IfEndLbI 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:Go

17、to 2:IfEnd:LbI 2:Abs(D)E:VEI:I(E-K)V:16导线点子程序（DX）程序名：DXZ11 K:Z12 L:“XZ”?K:”YZ”?L:KZ11:LZ12:17线路选择子程序(线路选择输入0时。则手工输入曲线参数（QX）程序名：QX1A:”QX:?=0,X1=1,X2=2”?A:AZ3:If A=0:Then Goto 1:Else Goto 2: IfEnd:LbI 1:”ZO”?O:”XO”?U:”YO”?V:”FW”?G:”LS”?H:?P:?R:”J=2,X=(0,1,-1)”?Q:Goto 2:LbI 2:18线路中线元段判别子程序（KM）程序名：KMIf

18、Z3=0:Then Goto 0:Else If Z3=1:Then Prog “X1”:Goto 0:Else Prog “X2”:Goto 0: IfEnd:LbI 0:19坐标计算参数转化子程序（F）程序名：FMat F1,1O: Mat F1,2U: Mat F1,3V: Mat F1,4G: Mat F1,5H: Mat F1,6P: Mat F1,7R: Mat F1,8Q:20数据子程序(附后示例)-1程序名：X1（线路1坐标计算要素程序）If Z26615.555:Then 25900,11587.421,1847.983, 101。0923.1”,715.555,11045,

19、 11045, 0Mat F:Goto 0: IfEnd:If Z26915.555:Then26615.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,11230.669,3213.086, 118。4228.42”,300,180045, 11045, 1Mat F:Goto 0: IfEnd:If Z4050:Then3089.766,9708.017,5530.185,123。

20、2857.1”,300,-44。3938”,2200,2Mat F:Goto 0:IfEnd:LbI 0:Prog”F”:程序字母说明：O-线元起点桩号(交点桩号)；U-起点X坐标（交点X）；V-起点Y坐标（交点Y）；G-线元起点桩号切线方位角（交点前一交点至现交点方位角）; 线元长度（缓和曲线长度），线元起点曲率半径（偏角为正负，左偏为负，右偏为正），线元终点曲率半径（圆半径）,Q线元判别(以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0)（交点法取值2）说明括内为交点法子母代表意思。-1程序名：S1(线路1高程竖曲线

21、要素子程序)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: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高程竖曲线要素

22、子程序)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-交点桩号高程（未竖曲线调整的）；T-竖曲线切线长；R-竖曲线半径（分正负：凹曲线为正，凸曲线为负）；I竖曲线前纵坡-1程序名：I1（线路1高程超高参数子程序）1.5K:2W:If D0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z266

23、15.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:IfEndLbI 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:

24、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.015M:-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:If

25、EndIf Z375.665:Then 0S:-0.02M: Goto 0:IfEndLbI 0字程序中字母表示说明：K中央分隔带半幅宽（中桩标高至中桩中线距离，无分隔带则为0）；W超高方式参数（W=1为一般直线方式超高，W=2为三次抛物线方式超高）;S超高渐变段距离（不是渐变段则输入0）；C-超高渐变段起点桩号（不是渐变段，无需输入）；M超高段起点横坡，N-超高渐变段终点横坡（不是渐变段，无需输入）。-1程序名：G1(线路1路基标准半幅宽度参数子程序)If D0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z28110.727:Then ZC:17.25A:

26、Goto 0:IfEnd:If Z28200.727:Then 28110.727C:17.25A:21.25B:90S:Goto 0:IfEndLbI R: Z27927.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.

27、402:Then 69.998C:28.25A:25.545B:12.404S:Goto 0:IfEndLbI R: Z69.998:Then ZC:17.45A: Goto 0:IfEndIf Z80.367:Then 69.998C:17.45A:16.787B:10.369S:Goto 0:IfEndLbI 0字程序中字母表示说明：C宽度渐变段起点桩号（不是渐变段C=Z）；A宽度渐变段起点宽度; B宽度渐变段终点宽度（不是渐变段，无需输入）；S-宽度渐变段距离（不是渐变段，无需输入）。-1程序名：XD1(线路1隧道参数子程序)If Z3=1:Then Goto 1: Else Prog “XD2”:Goto 0:IfEnd:LbI 1:8.75Z4:-1.1Z5:4.77Z6:1.47Z7:-0.25Z9: 51。2857.1”Z10:LbI:0-2程序名：XD2(线路2隧道参数子程序)8.5Z4:-1.15Z5:4.5Z6:1.52Z7: 0.25Z9: 55。2051.6”Z10:字程序中字母表示说明：Z4隧道上拱半径；Z5隧道上拱圆心至设计面高度；Z6隧道中腰部半径；Z7中腰圆心至设计面高度；Z9设计隧道中线与设计路基中线偏移值，左为负数，右为正数；Z10上部拱跨隧道半幅角度；-1程序名：W1(线路1路基填挖边坡参数子程序)I