FX5800計(jì)算器公路測量常用程序集23修改版本資料

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,BPF Y= 5,HD -XY =6,ZP=7,JS=8,SD=9)= QINGAN1 -9 ”Getkey Z3:While Z3=35:Prog1XYZ ”:WhileEnd:While Z3=3 6:Prog”2FS”WhileE nd: While Z 3=37:Prog3G

2、C “： WhileEnd: WhileZ3=21:Prog4GDJS”: WhileEnd:While Z3=22:Prog5BPFY” :WhileEnd: While Z3=23:Prog 6HD-XY ”WhileEnd:While Z3=31:Prog7ZP” ：WhileEnd :While Z3=32:Prog 8JS” : WhileEnd: While Z3=33 :Prog 9SD”:WhileE nd: LpWhile Z 3工 25:“ Th inks865603453”:程序名：1XYZProg DX ”：Prog QX ”：Do: ”KM ”？Z=-1=>St

3、op: Prog K ”：？D:Porg A ”：Z2+90 A :l+Dcos(A X:J+Dsi n(AY:Prog XY ” Prog H”： Z= ”： Locate 6,4,H: BF= ”:Locate 4,4, Z2丄Z8 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=>Break:Prog K” :”Xo ” ？x：”YO ” ？Y: Porg ”B ”

4、： Porg ” B ” Porg ”H ”： Prog ZD ”：Z= ”： Locate 6,4,H A LbWhileZ豐-13主程序：任意點(diǎn)高程計(jì)算及橫坡程序名：3GCProg QX-H ”:0 B:H-B”?B:B Z9:Do:KM ” ?Z:Z=-仁>Stop:Z=-2=>Break: ?D :Prog H”： Fix 3: ”H= ”： Locate 6,4, H-Z9: Fix 4: ”ZPI= ” 丄ocate 6,4, I: LpWhile Z 工-1 程序名：QX-H1 A: ” QX:X1=1,X2=2” ?A:A Z4:lfA=0:Then ” JDKM

5、? C:” HJD' ?G:” RJD' ?R:Z21 I: ” 11 ” ?I:Z22 N:” I2 ” ?N: IfEnd4主程序：標(biāo)準(zhǔn)路基寬度計(jì)算程序名：4GDJSProg DX ”：Prog QX ”：Do: KM ”？Z: Prog K”：Z=-仁>Stop:Z=-2=>Break: -1 D:Prog C” :L P:-P Z20: 1 D: Prog C”:L Z20: Fix 3: LGD= ” :Locate 6,4, P: LK=3.5+ ” :Locate 8,4,P-3.5: ”RGD= ” 丄ocate 6,4,L: RK=3.5+ ” :

6、Locate 8,4, L-3.5:丄Z Z:- Z20D: 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 ”丄 ElseR+XY-AI-DI ”丄 IfEnd:Prog K”： Prog A”:Z2+90 A:I+Dcos(A X: J+Dsin(A Y:Prog XY ”： Prog JS”5.主程序：路基開挖邊線及填方坡放樣程序 程序名：5BPFYProg DX ” :Prog QX” :0.5 B: TH-GD ” ?B :B

7、Z7: Do:KM ” ?Z:Z=-仁>Stop:Z=-2=>Break: ProgK”: ”XO ” ?X :”YO” ？Y:Z8 M:MO”？M :M Z8 :ProgB”：D P :ProgC” ：lf D<0:The-L D:Else L D:IfE nd: Prog H ”:H-Z8G:Prog ” W1 ”:lfG>0:Then Goto T:IfE nd:-G H:If H>E+F:The n L+M+N+U+C( H-E-F)+BF+AES :Goto 0:IfE nd:lf H>E:The nL+M+N+B( H-E)+AES:Goto 0

8、:IfE nd:lfH<E:The nL+M+HA S:Goto 0:IfE nd:LbI T :If G>W+Z16 :Then L+Z7+V+ Z14 +Z15(G-W-Z16)+JZ16+IWS: Goto O:lfE nd:lf G>W:L+Z7+V+J(G-W) +IWS: Goto 0:IfEnd: If G<W: L+Z7+Gl S : Goto 0:IfEnd :LbL0:FiX 3:P D:Abs(D)-S T:”N+W-= ” 丄ocate 6,4,T:Prog ZD” ：”T+W-=” :Locate 6,4,GJ LpWhile Z 豐-16主程

9、序：涵洞計(jì)算放樣程序名：6HD-JSProg DX ” :Prog QX ” :90 A: PJ1” ?A:A B:PJ2” ?B:A Z1: B Z9: Do:”KM ” ?Z:Z二 1=>Stop:Z二2=>Break: ProgK”：Z17 D: ”D”？D:D Z17:Z10 L: LO”？L: L Z10:Por g HD-JS ”Z17D:- Z10Z10: Porg HD-JS”- Z17 D :-Abs(Z10)Z10: PorgHD-JS ”:-Z17 D: Abs(Z10)Z10: Porg HD-JS” 丄pWhile Z 工-1子程序：涵洞計(jì)算程序名：HD-

10、JSIf D>0 And Z10>0 The n“1-YQ-XY”JIfEndIf D>0 And Z10<0 The n“2-YH- XY”JIfEndIf D<0 And Z10<0 The n“3-ZH-XY”JIfEndIf D<0 And Z10>0 The n“4-ZQ-XY”JIfEndProg” A ”:Z2+Z1A:A-Z9E:I+Dcos(A)+Z10 cos(E) X:J+Dsin(A)+Z10 sin(E) Y: Porg XY ” Porg JS”14高程計(jì)算子程序(H)程序名：HProg ” S1” ：N-I A:A

11、+ Abs(A) W:RAbs(A + 2) T:lfZ<C-T:Then G+I(Z-C)H:GotoO:lfEnd:lf Z<C+T:Then G-TI+(I+(Z-C+T)W + 2- R) X (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:Z> C=>N I:N Z22 :Return:Else:Prog ” I ” ：H+ID-KH:IfEnd程序名：S1 (線路1高程豎曲線要素子程序)If Z4=0:Then:Return:lfEndIf Z4=1:The

12、n:Goto1:Else Prog ” S2” Return:IfEndLbl l：If Z24L 09：Then 95. 356-C;40. 742-G;2000-R03155-I：. 00812-N;IfEnd：程序名：W1 (線路1路基填挖子程序)If ZE4 = l：Then Goto 1: Else Prog 52 J Return：IfEnd:Lbl 1: 10-E:10-F:2. 6-M:2-N:2-S:L 5-175-J:8-W：2-V:2Z14 :1-»Z15； 12Z16Z14為填方第三級(jí)平臺(tái)寬度：Z15填方第三級(jí)坡比；ZL16為填方第二階髙度本程序輸入經(jīng)檢驗(yàn)可以正確運(yùn)行，另外有興趣的可以加上1. 斜角高程計(jì)算功能，方法是先采用反算子程序，改成正交 樁號(hào)和偏距，然后轉(zhuǎn)到高程計(jì)算程序。2. 涵洞計(jì)算程序支持原版輸入斜長，