计算器公路测量常用程序集23修改版本

1、FX58002.3版修改版支持原版兼容性功能，做以下修改1. 三维坐标正反算2. 高程序支持单交点3. 宽度放样，加宽，坐标显示4. 边坡放样边坡级数增加5. 涵洞计算放样四点输出汇总程序名：0C1rMat:C1rVar:22àDimZ:Norm 2:Do:”(XYZ=1, FS=2,GC=3,GDJS=4,BPFY=5,HD-XY=6,ZP=7,JS=8,SD=9)=èQING AN1-9”:GetkeyàZ3:WhileZ3=35:Prog “1XYZ”:WhileEnd:While Z3=36:Prog ”2FS”: WhileEnd: While Z3=3

2、7:Prog “3GC“：WhileEnd: WhileZ3=21:Prog “4GDJS” : WhileEnd: While Z3=22:Prog “5BPFY” :WhileEnd: While Z3=23:Prog “6HD-XY” :WhileEnd: While Z3=31:Prog “7ZP” :WhileEnd :While Z3=32:Prog “8JS” : WhileEnd: While Z3=33:Prog “9SD” :WhileEnd: LpWhile Z 325: “Thinks865603453” :程序名：1XYZProg “DX” :Prog “QX” :D

3、o: ”KM” ?Z=-1=>Stop: Prog “K” :?D: Porg “A” :Z2+90àA :I+Dcos(AàX:J+Dsin(AàY:Prog “XY” :Prog “H”: “Z=”: Locate 6,4,H:“BF=”:Locate 4,4, Z2Z8àM:”MO”?M:MàZ8: “SCGC=”: Locate 7,4, Z8:“T+W-=”: Locate 7,4,H-Z8:Prog “JS”:LpWhile Z-1程序名：2FSProg “QX” :Do:”KM”?Z=-1=>Stop:Z=-2=>

4、;Break:Prog “K” : ”XO” ?X:”YO” ?Y: Porg”B”:Porg”B”Porg”H”:Prog “ZD”:“Z=”: Locate 6,4,H LbWhile Z-13.主程序：任意点高程计算及横坡程序名：3GCProg “QX-H” :0àB: “H-B” ?B: BàZ9: Do: “KM” ?Z:Z=-1=>Stop:Z=-2=>Break: ?D :Prog “H”: Fix 3: ”H=”: Locate 6,4, H-Z9: Fix 4:”ZPI=” :Locate 6,4, I: LpWhile Z-1程序名：QX-H

5、1àA:”QX:X1=1,X2=2”?A:AàZ4:IfA=0:Then”JDKM”?C:”HJD”?G:”RJD”?R:Z21àI:”I1”?I:Z22àN:”I2”?N:IfEnd4.主程序：标准路基宽度计算程序名：4GDJSProg “DX”:Prog “QX” :Do: “KM” ?Z:Prog “K”:Z=-1=>Stop: Z=-2=>Break:-1àD:Prog “C” :LàP:-PàZ20:1àD: Prog “C” :LàZ20:Fix 3: “LGD=” :Locate

6、 6,4, P: “LK=3.5+” :Locate 8,4, P-3.5:”RGD=” :Locate 6,4,L: “RK=3.5+” :Locate 8,4, L-3.5: ZàZ:-Z20àD: Prog “4GD-1”: ZàZ: Z19àD:Prog “4GD-1”:LpWhile Z-1（3.5为路面半幅宽度，可以自己设置）子程序4GD-1If D<0:Then “L-XY-AI-DI” Else “R+XY-AI-DI”IfEnd:Prog“K”:Prog“A”:Z2+90àA:I+Dcos(AàX:J+Dsin

7、(AàY:Prog“XY”:Prog“JS”5.主程序：路基开挖边线及填方坡放样程序程序名：5BPFYProg “DX” :Prog “QX” :0.5àB: “TH-GD” ?B :BàZ7: Do: “KM” ?Z:Z=-1=>Stop:Z=-2=>Break: Prog “K” : ”XO” ?X : ”YO” ?Y:Z8àM: “MO” ?M :MàZ8 :Prog “B” :DàP :Prog “C” :If D<0:The -LàD:Else LàD:IfEnd: Prog “H”:H

8、-Z8àG:Prog ”W1”:If G>0:Then Goto T:IfEnd:-GàH:If H>E+F:Then L+M+N+U+C(H-E-F)+BF+AEàS :Goto 0:IfEnd:If H>E:Then L+M+N+B(H-E)+AEàS:Goto 0:IfEnd:If H<E:Then L+M+HAàS:Goto 0:IfEnd:LbI T :If G>W+Z16:Then L+Z7+V+Z14+Z15 (G-W-Z16)+JZ16+IWàS: Goto 0:IfEnd:IfG>

9、W:L+Z7+V+J(G-W)+IWàS: Goto 0:IfEnd:IfG<W:L+Z7+ GIàS: Goto 0:IfEnd:LbL0:FiX 3:PàD:Abs(D)-SàT:”N+W-=” :Locate 6,4,T:Prog “ZD” :”T+W-=” : Locate 6,4,GLpWhile Z-16.主程序：涵洞计算放样程序名：6HD-JSProg “DX” :Prog “QX” :90àA: “PJ1” ?A:AàB: “PJ2” ?B: AàZ1: BàZ9: Do:”KM” ?Z:Z=

10、-1=>Stop:Z=-2=>Break: Prog “K” :Z17àD:”D”?D:DàZ17:Z10àL:“LO” ?L:LàZ10:Porg“HD-JS”:Z17àD:-Z10à Z10:Porg“HD-JS”:-Z17àD :-Abs(Z10)àZ10:Porg“HD-JS”:-Z17àD: Abs(Z10)àZ10:Porg“HD-JS” :LpWhile Z-1子程序：涵洞计算程序名： HD-JSIf D>0 And Z10>0 Then “1-YQ-XY”

11、IfEndIf D>0 And Z10<0 Then “2-YH-XY”IfEndIf D<0 And Z10<0 Then “3-ZH-XY”IfEndIf D<0 And Z10>0 Then “4-ZQ-XY”IfEndProg”A”:Z2+Z1àA:A-Z9àE:I+Dcos(A)+Z10cos(E)àX:J+Dsin(A)+Z10sin(E)àY:Porg“XY”:Porg“JS”14高程计算子程序(H)程序名：HProg”S1”:N-IàA:A÷Abs(A)àW:RAbs(A&

12、#247;2)àT:IfZ<C-T:ThenG+I(Z-C)àH:Goto0:IfEnd:IfZ<C+T:ThenG-TI+(I+(Z-C+T)W÷2÷R)×(Z-C+T)àH:Goto0:IfEnd:G+N(Z-C)àH:Lbl0:If D=0:Then HàH: Z<C=>IàI:IàZ21:ZC=>NàI:NàZ22 :Return:Else:Prog”I”:H+ID-KàH:IfEnd程序名：S1（线路1高程竖曲线要素子程序）If Z4=0:Then:Return:IfEndIf Z4=1:Then:Goto1:ElseProg”S2”Return:IfEnd程序名：W1（线路1路基填挖子程序）本程序输入经检验可以正确运行，另外有兴趣的可以加上1. 斜角高程计算功能，方法是先采用反算子程序，改成正交桩号和偏距，然后转到高程计算程序。2. 涵洞计算程序支持原版输入斜长，有兴趣的可以改成垂直长度，用斜长乘以sin(PJ2)即可。3. 桥梁锥