FX5800計(jì)算器公路測(cè)量常用程序集23修改版本W(wǎng)ord版

1、FX5800 2.3版修改版支持原版兼容性功能，做以下修改1. 三維坐標(biāo)正反算2. 高程序支持單交點(diǎn)3. 寬度放樣，加寬，坐標(biāo)顯示4. 邊坡放樣邊坡級(jí)數(shù)增加5. 涵洞計(jì)算放樣四點(diǎn)輸出匯總程序名：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:While Z3=35:Prog “1XYZ”:WhileEnd: While Z3=36:Prog ”2FS”: WhileEnd: While Z

2、3=37: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: “ Thinks 865603453” :程序名：1XYZProg “DX” :Prog “Q

3、X” :Do: ”KM” ?Z=-1=>Stop: Prog “K” :?D: Porg 1 / 9“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=&g

4、t;Stop:Z=-2=>Break:Prog “K” : ”XO” ?X:”YO” ?Y: Porg ”B”: Porg ”B” Porg ”H”: Prog “ZD”: “Z=”: Locate 6,4,H LbWhile Z-13.主程序：任意點(diǎn)高程計(jì)算及橫坡程序名：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,

5、I: LpWhile Z-1程序名：QX-H1à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.主程序：標(biāo)準(zhǔn)路基寬度計(jì)算程序名：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

6、24;Z20:Fix 3: “LGD=” :Locate 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為路面半幅寬度，可以自己設(shè)置）子程序4GD-1If D<0:Then “L-XY-AI-DI” Else “R+XY-AI-DI”IfEnd:Prog “K”: Prog “A”:Z2+

7、90àA:I+Dcos(AàX: J+Dsin(AàY:Prog “XY”: Prog “JS”5.主程序：路基開(kāi)挖邊線及填方坡放樣程序程序名：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

8、24;D:Else LàD:IfEnd: Prog “H”:H-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)+

9、JZ16+IWàS: Goto 0:IfEnd:If G>W: L+Z7+V+J(G-W) +IWàS: Goto 0:IfEnd: If G<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,G LpWhile Z-16.主程序：涵洞計(jì)算放樣程序名：6HD-JSProg “DX” :Prog “QX” :90àA: “PJ1” ?A:AàB:

10、 “PJ2” ?B: AàZ1: BàZ9: Do:”KM” ?Z:Z=-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

11、 Z-1子程序：涵洞計(jì)算程序名： HD-JSIf D>0 And Z10>0 Then “1-YQ-XY” 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)+Z10 cos(E)àX:J+ Dsin(A)+Z10 sin(E)àY: Porg “XY”: Porg

12、 “JS”14高程計(jì)算子程序(H)程序名：HProg”S1”:N-IàA:A÷Abs(A)àW:RAbs(A÷2)àT:If Z<C-T:Then G+I(Z-C)àH:Goto0:IfEnd:If Z<C+T:Then G-TI+(I+(Z-C+T)W÷2÷R)×(Z-C+T)àH:Goto0:IfEnd:G+N(Z-C)àH:Lbl 0:If D=0:Then HàH: Z<C=>IàI:IàZ21:ZC=>Nà

13、I:NàZ22 :Return:Else:Prog”I”:H+ID-KàH:IfEnd程序名：S1（線路1高程豎曲線要素子程序）If Z4=0:Then:Return:IfEndIf Z4=1:Then: Goto1:Else Prog”S2” Return:IfEnd程序名：W1（線路1路基填挖子程序）本程序輸入經(jīng)檢驗(yàn)可以正確運(yùn)行，另外有興趣的可以加上1. 斜角高程計(jì)算功能，方法是先采用反算子程序，改成正交樁號(hào)和偏距，然后轉(zhuǎn)到高程計(jì)算程序。2. 涵洞計(jì)算程序支持原版輸入斜長(zhǎng)，有興趣的可以改成垂直長(zhǎng)度，用斜長(zhǎng)乘以sin(PJ2)即可。3. 橋梁錐坡放樣斜角的問(wèn)題。隧道程序暫支持原版不做修改4. 如果有興趣，歡迎大家一起交流提高，可以植入導(dǎo)