5800程序集锦

1、CASIO fx-5800P计算器测量程序设计2.1版作者：汤海波 QQ:13119703FX5800计算器公路测量常用程序集2.1版一、程序功能主要功能：采用线元法与交点法相结合计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括 c型，s型、卵型、回头曲线等;极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高 程、横坡、设计半幅宽度.隧道欠超挖放样计算。新版本特点：1、建主程序合并原所有计算类型，在主程序中可选择操作 类型。隧道欠超挖增加变量衬砌厚度，因有设计衬砌厚度根据石岩来定 的。增加锥坡放样计算。二、源程序1. 总主程序（1、坐标计算放样程序 2、坐标反算程序；3、高

2、程计 算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序； &极坐标计算程序；9、隧道超欠挖计算程序）运行后输入19数子则选择1至9的程序，返回时，在桩号输入-1,返回选择选择计 算类型。输入-2,返回选择线路。坐标计算中输入 -3,则显示本段曲 线要素。程序名：0ZCXLbl Q: 15 DimZ: Norm2:1 A：H A:XY=1, ZD=2 , GC=3 GD=4, BP=5 FM=6, ZP=7, JS=8 , SD=9H ?A:A=1=>Goto 1:A=2=>Goto 2:A=3=>G

3、oto 3:A=4=>Goto 4:A=5=>Goto 5:A=6=>Goto 6:A=7=>Goto 7:A=8=>Goto 8:A=9=>Goto 9Lbl 1:Prog " DX'丄bl A:Prog " QX' :90 B: " PJ1" ?B:B C: " PJ2' ?C:B Z1:C Z8:Lbl B:1 F: ' KM' ' ?Z:Z= -1=>Goto 0:Z=-2=>Goto A:Z=-3=>Goto X:Prog '

4、 KM' :?D:Porg ' THB' :O L: ' L0' ?L:Z2+Z1-Z8 E:X+L cos(E)X:Y+Lsin(E) Y:Prog ' XY :Prog ' JS' ' :Goto BLbI 2:2 F:90 Z1:Prog ' QX 丄bI C:' KM ?Z:Z=-1=>Goto 0:Z=-2=>Goto 2:Z=-3=>Goto X:Prog ' KM : ' XO ?X: ' Y0 ?Y:Prog ' THB :Porg '

5、; ZD ' :Goto C:Lbl 3:Prog ' QX :0 B: ' H-B' ?B:BZ9:LbI D:' KM ?Z:Z二 1=>Goto 0:Z=-2=>Goto 3:?D:Porg' H ' :Fix 3:' H= ' :Lcoate 6,4,H -Z9 丄'l= ' ' :Locate 6,4,l 丄 Goto DLbl 4:Prog ' QX :Lbl E: ' KM ?Z:Z=-1= >Goto 0:Z=-2=>Goto 4:?D:Pro

6、g ' GD :Fix 3:' SJGD=' :Locate7,4,L 丄 Goto ELbl 5:Prog ' QX :0.5 B:' TH-GD ?B:BZ15:Lbl F:2 F:90Z1: ' KM' ?Z:Z=-1 =>Goto 0:Z=-2 =>Goto 5:Prog ' KM :' X0' ' ?X: ' Y0 ?Y:0 M:” M0 ?M: MZ4:Prog ' 3FBZ 'Fix 2:Z3 D:Abs (D) -S O ' L0= ' &

7、#39; :Locate 6,4,OJProg' ZD : Z5 T:' TW= ' :Lcoate 6,4,T J Goto F:Lbl 6:Prog " DX 丄bl G:Prog " QX 丄bl H:1 F:90 Z1: ' ' K M' ?Z:Z=-1=>Goto 0:Z二2=>Goto G:Prog ' ' KM :?D:Prog ' ' THB': Prog' ' XY :Prog ' ' JS' :Prog '

8、H ' :0 M: ' M0 ' ?M:Fix 2:H-M T: ' TW= ' ' :Locate 6,4,T 丄 Goto H:LbI 7:Prog ' DX 丄bl I:Prog ' QX :0 D: ' LD:Z-,Y+ ' ? D:Ab s(D) R: ' LR ?R: ' Z0' ?Z: D Z6:R Z7:Z Z8:LbIJ:0 Y: ' L0:SZ+,DZ-' ?Y:Y二 1=>Goto 0:Y二2=>Goto I:Prog' ZP 

9、9; :Goto J:LbI 8:Prog ' DX :Lbl K:?X:X=-1=>Goto 0:X=-2=>Goto 8:?Y:Prog ' JS' Goto K:Lbl 9:Porg ' DX 丄bl L:Prog ” QX 丄bl M:2 F:90 Z1:' KM' ?Z:Z=-1= >Goto 0:Z=-2=>Goto L:Z 二 3=>Goto X: Prog ' SD1 :0.5 A: “CQHD ?A: “X0“ ？X:' Y0 ' ?Y:0 M= M0' ?M:M Z

10、8: A Z15:Prog ' 5SD' : Goto M:Lbl X:Mat F 丄 Goto 02、次程序:路基开挖边线及填方坡脚线放样程序 (输入填方放宽值、 大概桩号及测量坐标、 地面标高计算出偏移距离、 桩号、距中距离、 填挖高度)程序名：3FBXProg” THB : D P: Prog” GD :lf D<0:Then 0.75 -L D:Goto H:Else L-0.75 D:Goto H:IfE ndLbl H:Prog “H :H-0.03-Z4 Z4: P rog “W1 ” :If Z4<0:Then Z4 G:Goto W:Else Z4

11、 G:Goto T:LbI W:Z8+Z9 A: If G>A:The n Goto 1:Else If G>Z8:Then Goto 2:Else Goto 3:IfE nd:LbI 1:L+Z10+Z11+Z12+(G-A) X Z7+Z9 X Z6+Z8 X Z5S:Goto Z:LbI 2:L+Z10+Z11+(G-Z8)X Z6+Z8 X Z5 S:Goto Z:LbI 3丄+Z10+G X Z5 S:Goto Z:LbI T:L+Z17 T:If G>Z15:Then (T+Z16+(G-Z15) X Z14+Z15 X Z13) S:Goto Z:Else 仃+

12、GX Z13) S:Goto Z:LbI Z3. 次程序3.隧道超欠挖值计算放样程序(输入隧道线路，大概桩号、 输入衬砌厚度、测量三维坐标，计算准确桩号及位置、计算欠超挖 值)程序名：5SDProg” KM :Prog “THB : D Z13:0 D:Prog “H'：Cos(Z10)X Z4 E: H+Z5 Z5: H+Z7 Z7: E+Z5 Z10:If Z8>Z10:The n Goto R:Else Goto S:IfE nd:22LbI R: V(Z13-Z9)+(Z8 卜 Z5)- Z4-Z15 L:GotoL:Lbl S: Z4-Z6 S: V(S 2-(Z7卜Z

13、5)2 ) X S一 Abs(S)T:Abs(Z13-Z9)-T T: V(T 2 +(Z8-Z7)2 )- Z6-Z15L:Goto LIbI L:Fix 2: ” L0= ”： Locate 6,4,L 丄Prog ” ZD' : “H0=”： Locate 6,4,Z8卜H丄4:极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：JSX: Y: Z11 K: Z12 L: Pol(X-K, Y-L):IF J<0:Then J+360f J:IFE nd:l nt(J)+0.01l nt(60Frac(J)+0.006Frac(60Frac(J)J: Fix 4: ”

14、 FWJ=： Locate 6,4,J 丄Fix 3: ” S= ” :Locate 6,4, I 丄5. 路基宽度子程序6:路基标准半幅宽度计算程序(对于设计有加 宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度 值至L)程序名：GD1 S: Prog“G1” ：Z-C E:(B-A)*E/S+A L:6. 坐标计算次程序(THB)程序名：THBIf Q=2:Then Goto J: Else1 一PC: (P- R)一(2HPR) S: 180一 n E: If F=1:Then Abs( Z-0) W Prog " A" : G oto 2:El se X

15、I : Y J : Prog " BH: O +W Z:D D:G oto 2: IfEn d:LbI J: If F=1:Then Prog "Z": G oto 1:Else Prog " ZX": G oto 2: IfEnd:Lbl 1:I+D x COS(Z2+Z1) X: J+D x Sin(Z2+Z1) Y: LbI 27. 线元法正算子程序(A )程序名：A0.1184634425 A: 0.2393143352 B: 0.2844444444 N: 0.0469 10077 K: 0.2307653449 L: 0.5 M U

16、+W(Acos(G+QEKW(C+KW S )+Bcos(G+QELW(C+L询)+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+W(Asin(G+QEKW(C+KW)+Bsin(G+QELW(C+LW； )+Nsin(G+QEMW (C+MWS)+Bsi n(G+QE(1 -L)W(C+(1 -L)WS)+As in (G+QE(1 -K)W(C+(1- K)WS ) Y:G+QEW(C+W) Z：2: X+Dcos (Z：2 + Z1 )X: Y+Dsin (Z2+ Z1 )

17、Y8. 线元法反算子程序(B )程序名：BG-90T: Abs( Y-V )cos(T)-(X- U)si n( T)W: 0 D: Lbl0: Prog " A" : T+QEW(C+W) L: (J-Y)cos(L)-(I-X)sin(L)D: IF Abs( D )<0.01:Then Goto 1: Else W+ D W:Goto 0: IfEnd: 1Lbl 1:0 D: Prog " A" : (J-Y) 一 sin ( Z2 +90) D9. 交点法正算子程序(Z)程序名：Z甘一 R- 24-H” (4) 一 2688- Ff f

18、A:H一 2-HA (3) 一 240一 氏B:(R+A)tan(Abs(P)一2)+Bf T：OTf C:C+hf L:L+ nRX Abs(P) 一 180f N:N-Hf E:P 一Abs(P) f W:(f M:If Z<C:The n Z- 6 S:Gf Z2:Goto 2: IfEnd: If Z> N:Then Z-N+Tf S:G+Pf Z2:Goto 2: IfEnd: If Z > E:Then N-Z f S:Prog“ HX ：G+Pf S:S-WKf Z2:U+(T-A)Cos(S)-WBSin(S)f I:V+(T-A)Sin(S)+WBcos(S

19、) f J:Goto 3: IfEnd:If Z>L:Then 180(Z-L+0.5H)一 R-nf S :H 一 2-HA (3) 一 240 - F2+Rsin(S) f A:H2-R-24-HA(4) -2688-RA(3)+R(1 -Cos(S) f B:Rf M:G+Wf Z2:Goto 4: IfEnd:Z-Cf S:Prog “ HX ：G+Wf Z2:LbI 4:U+(A-T)cos(G)-WBsi n(G)f I:V+(A-T)Si n(G)+WBcos(G)f J:Goto 3:LbI 2:U+Scos(Z2)f I:V+Ssi n(Z2)f J: LbI 310.

20、 交点法缓和段转化子程序(HX)程序名：HXS-SA(5) - 40- R2-N+Sa(9) - 3456-戌(4)- f A:Sa (3)-6-R- H-SA (7) - 336 - R" (3)-(3)+S A (11) - 42240 - RA (5)- f B:90S2- n - R- Hf K:RH一Sf M11. 交点法反算子程序(ZX)程序名：ZXZ:0 f D丄 bl 0:Prog“Z”：Pol(X -I, Y- J):J -Z2 J:lsi n(J) S:lcos(J) I:If Abs <0.1:The n Z+I Z:S D:Goto 2:Else Got

21、o 1: LbI 1:If M=0:The n Z+I Z:Goto 0:Eles Pol(M-WS,I):(JM n)/180 I:Z+I Z:Goto 0:IfE ndLbI 212. 高程计算子程序(H)程序名：HProg “S 1 ” ：C-T F:Z-F S:C+T E:G-TI Q:If T=O:Then Q+SIH:Goto 0:Else If Z<F:Then Q+SI H:Goto 0:Else If Z < E:Th2en Q+SI+S 2 R H:Goto 0:LbI 0:H:If D=0:Then Goto I:Else Prog“I” :H+V H:Got

22、o I:LbI I13. 高程超高计算程序(I )程序名：IIf Z3=1:Then Prog“11” Goto 1:Else Prog “12 ”：Goto1:IfEn d:LbI 1: If W=1:The n:Goto Z:Else:Goto X: IfEndLbI Z:If S=0:Then Abs(D)x M V:Goto 2:Else Abs(D) x (N-M)x (Z-C) 一 S+MV:Goto 2:IfEnd:LbI X:If S=0:Then Abs(D)x M V:Goto 2:Else Abs(D) x (3(Z-C) 一 S)2-2(Z-C) 一 S)A(3) x

23、(N-M)+M) V:Goto 2:IfEnd:LbI 2:Abs(D) E:V 一 E I:I(E-K) V14. 导线点子程序（DX程序名：DXZ11 K:Z12 L: “XZ” ?K: ” YZ” ？L:Kf Z11丄 f Z1215. 线路选择子程序（线路选择输0时。则输曲线参数（QX程序名：QX1 A: ” QX:X仁1,X2=2” ?A:A Z3:If A=0:Then Goto 1:Else Goto 2: IfEnd:LbI 1: ” JDC” ？O ” XO ?U:” YC” ?V: ” FW ?G:” LS” ?H:?P:?R: ”J=2,X=（0,1,-1）” ?Q:Go

24、to 2丄bl 216. 线路中线元段判别子程序（KM程序名：KMIf Z3=0:Then Goto 0:Else If Z3=1:Then Prog“X1” ：Goto 0:Else Prog“X2 Goto 0: IfEnd: LbI 017. 坐标计算参数转化子程序（F）程序名：FMat F1,1 O: Mat F1,2 U: Mat F1,3 V: Mat F1,4G: Mat F1,5 H: Mat F1,6 P: Mat F1,7 R: Mat F1,8Q18. 桥梁锥坡放样子程序（ZP）程序名：ZPV（Z.6 2 （1-Y2/Z7 2） ） f X: Z8 Z:Prog ” GD

25、 :If D<0:Th en L+X f D:Else L-X f D:IfE nd:Z8+Y f Z:D:1 f F:90 f Z1:Pr og” KM :Prog ” THB :Prog ” XY :Prog ” JS”19. 显示子程序（XY）程序名：XYF ix 3: " X =H: Locate 6,4, X 丄" Y = H : Locate 6,4, Y丄程序名：ZDFix 3:"KM = H： Locate 6,4, ZJhD = H : Locate 6,4, DJ20 .数据子程序（附后示例） -1程序名：X1 （线路1坐标计算要素程序）

26、If Z <26615.555:Then 25900,11587.421,1847.983, 101° 09' 23.1” ,715.555,1 x 1045, 1 x 1045, 0 f Mat F:Goto 0: IfEnd:If Z w 26915.555:Then 26615.555,11448.97,2550.016,101° 09'23.1” ,300,1 x 1045,1800,1 f Mat F:Goto 0:IfEnd:Lbl 0: Prog ” F” -2程序名：X2 （线路2坐标计算要素程序）If Z w616.951:Then

27、316.951,11230.669,3213.086, 118°42' 28.42 ” ,300,1800, 1 x 1045, 1 f Mat F:Goto 0: IfEnd:If Z w 4050:Then3089.766,9708.017,5530.185,123。28' 57.1 ” ,300,-44。39' 38” ,2200,2 Mat F:Goto 0:IfEnd:Lbl 0:Prog ” F”程序字母说明：O线元起点桩号（交点桩号）；u-起点X坐标（交点X）; V-起点Y坐标（交点Y）； G-线元起点桩号切线方位角（交点 前一交点至现交点方位角

28、）；H线元长度（缓和曲线长度），P 线元起点曲率半径（偏角：值为正负，左偏为负，右偏为正）， R线元终点曲率半径（圆半径），Q 线元判别（以道路中线的前进 方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1;当线元往右偏时，Q=1;当线元为直线时，Q=0;交点法取值2）.说明 括内为交点法子母代表意思。 -1程序名：S1（线路1高程竖曲线要素子程序）If Z3=1:Then Goto 1: Else Prog“S2” :Goto 0: IfEnd:LbI 1:If Z w 26157.8:The n -200000 R:157.8 T:26000 C:37.1G:0.01222 I:G

29、oto 0:IfE nd:If Z w 27421.915:Then 300000 R:171.915 T:27250 C:32.65 G:-0.00356 I:Goto 0:IfE nd:If Z w 27889.029:Then 1000000 R:134.029 T:27755 C:36.64G:0.0079 I:Goto 0:IfE nd:LbI 0 -2程序名：S2（线路2高程竖曲线要素子程序）If Z w 183.007:Then 1365 R:20.475 T:162.532 C:46.1 G:0. 003 l:Goto 0:IfE nd:If Z w 321.264:Then

30、-1200 R:38.732 T:282.532 C:50.175 G:0.033 I:Goto 0:IfE nd:Lbl 0程序字母说明：C-竖曲线交点桩号；G-交点桩号高程（未竖曲线调整的）；T-竖曲线切线长（标段结尾或开头没有竖曲线的输 0） ； R- 竖曲线半径（分正负：凹曲线为正，凸曲线为负）； I竖曲线前纵 坡 -1程序名：I1 （线路1高程超高参数子程序）1.5 K:2 W:If D<0:Then Goto L:Else Goto R:IfE nd:LbI L:If Z w 26615.555:Then 0 S:- 0.02 M:Goto 0:IfE nd:If Z w 2

31、6735.555:Then 120 S:26615.555 C:-0.02 M:0.02 N:Goto 0:IfE nd:If Z w 26795.555:Then 60 S:26735.555 C:0.02 M:0.04 N:Go to 0:IfE ndLbI R: If Z w 26735.555:Then 0 S:- 0.02 M: Goto 0:IfE ndIf Z w 26795.555:Then 60 S:26735.555 C:-0.02 M:-0.04 N:Goto 0:IfE ndIf Z w 27436.951:Then 0 S:-0.04 M: Goto 0:IfEndL

32、bI 0 -2程序名：I2 （线路2高程超高参数子程序）0.5 K:1 W:If D<0:Then Goto L:Else Goto R:lfE nd:Lbl L:If Z w 100:The n 0 S:-0.015 M:Goto 0:IfE nd:If Z w 110:Then 10 S:100 C:-0.015 M:-0.02 N:Goto 0:IfEnd:lf Z w 343.665:Then 0 S: -0.02 M: Goto 0:IfE ndLbI R: If Z w 100:The n 0 S:- 0.015 M: Goto 0:IfE ndIf Z w 110:Then

33、 10 S:100 C:-0.015 M:-0.02 N:Goto 0:IfEndIf Z w 375.665:Then 0 S:-0.02 M: Goto 0:IfEndLbI 0字程序中字母表示说明：K中央分隔带半幅宽（中桩标高至中桩中线距离，无分隔带则为0）; W超高方式参数（W=1为一般直线方式超高， W=2为三次抛物 线方式超高）；S 超高渐变段距离（不是渐变段则输入 0）; C-超 高渐变段起点桩号（不是渐变段，无需输入）；M-超高段起点横坡， N-超高渐变段终点横坡（不是渐变段，无需输入）。 -1程序名：G1（线路1路基标准半幅宽度参数子程序）If Z3=1:Then Goto

34、1:Else Prog“ G2 ：Goto 0: IfEndLbI 1:If D<0:Then Goto L:Else Goto R:IfE nd:LbI L:If Z w 28110.727:Then Z C:17.25 A:Goto 0:IfE nd:If Z w 28200.727:Then 28110.727 C:17.25 A:21.25 B:90 S:Goto 0:IfE ndLbI R: Z w 27927.478:Then Z C:17.25 A: Goto 0:IfEndIf Z w 28172:Then 27927.478 C:17.25 A:27.031 B:244

35、.522 S:Goto 0:IfE ndLbl 0 -2程序名：G2（线路2路基标准半幅宽度参数子程序）If D<0:Then Goto L:Else Goto R:IfE nd:LbI L:If Z w 69.998:Then Z C:28.25 A:Goto 0:IfE nd:If Z w 82.402:Then 69.998 C:28.25 A:25.545 B:12.404 S:G oto 0:IfE ndLbI R: Z w 69.998:Then Z C:17.45 A: Goto 0:IfEndIf Z w 80.367:Then 69.998 C:17.45 A:16.7

36、87 B:10.369 S:Goto 0:IfE nd丄 bI 0字程序中字母表示说明：C-宽度渐变段起点桩号（不是渐变段C=Z）； A-宽度渐变段起点宽度；B 宽度渐变段终点宽度（不是渐变段，无需输入）；S-宽度渐变段距离（不是渐变段，无需输入）。 -1程序名：SD1（线路1隧道参数子程序）If Z3=1:Then Goto 1: Else Prog“SD2 :Goto 0:IfEnd:LbI 1:8.75 Z4:-1.1 Z5 :4.77 Z6:1.47 Z7: -0.25 Z9: 51。28' 57.1 ” Z10:LbI 0 -2程序名：SD2（线路2隧道参数子程序）5.43

37、Z4:1.634 Z5:7.93 Z6 :1.634 Z7: 0 Z9: 90 f Z10字程序中字母表示说明：Z4隧道上拱半径；Z5隧道上拱圆心至设计面高度；Z6-隧道中腰部半径；Z7中腰圆心至设计面高度；Z9设计隧道 中线与设计路基中线偏移值， 左为负数，右为正数；Z10上部拱 跨隧道半幅角度； -1程序名：W1（线路1路基填挖边坡参数子程序）If Z3=1:Then Goto 1: Else Prog“W2 :Goto 0:IfEnd:Lbl 1:0.75 Z5:1 Z6:1.25 Z7:10 Z8:10 Z9:2.6Z10:2 Z11:2 Z12:1.5 Z13:1.75 Z14:8

38、Z15:2 Z16LbI:0 -2程序名：W2（线路2路基填挖边坡参数子程序）1Z5:1 Z6:1.25 Z7:10 Z8:10 Z9:2.6 Z10:1.5 Z11:1.5 Z12:1.5 Z13:1.75 Z14:8 Z15:2 Z16字程序中字母表示说明：Z5挖方第一阶边坡边率；Z6挖方第二阶边坡边率；Z7 挖方第三阶边坡边率；Z8挖方第一阶高度；Z9挖方第二阶高度；Z10挖方路基碎落台及水沟宽度；Z11挖方第二台阶平台宽度；Z12挖方第三台阶平台宽度；Z13填方第一阶边坡边率；Z14填方第二阶边坡边率；Z15 填方第一阶高度；Z16-填方第二台阶平台宽度。(注：本程序 只做出挖方三个台

39、阶，填方二个台阶，如需增加，先需在程序THB和4FBZ程序中增加变量。再如一标段有坡率及坡高不一样时，可以 照其它参数程序一样，用判别语句。)三、使用说明1、规定(1) “ KM为所求点桩号，反算时为输入大概桩号(2) 当所求点位于中线时，D =0；当位于中线左铡时，D取 负值；当位于中线中线右侧时，D取正值。(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。(在用交点法时，P子母代表偏角)(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接， 其曲率半径均等于圆弧的半径。(交点法为圆半径)(5) 当线元为完整缓和曲线时， 起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于 圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半 径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相 接时，曲率半径等于圆曲线的半径。(7) Q值是判别用采用线元法还是交点法。交点法值为2。线元法，根据线元段取值，直线段取0,缓和段和