Fx5800計算器公路測量程序設(shè)計211版講解學(xué)習(xí)

1、Good is good, but better carries it.精益求精，善益求善。Fx5800計算器公路測量程序設(shè)計211版-FX5800計算器公路測量常用程序集2.1版一、程序功能主要功能：采用線元法與交點法相結(jié)合計算多條線路坐標(biāo)正反算，可算任意復(fù)雜線型及立交匝道，包括C型，S型、卵型、回頭曲線等；極坐標(biāo)放樣，全線路基邊坡開挖口及坡腳放樣計算、路基任意點設(shè)計高程、橫坡、設(shè)計半幅寬度.隧道欠超挖放樣計算。新版本特點：1、建主程序合并原所有計算類型，在主程序中可選擇操作類型。隧道欠超挖增加變量襯砌厚度，因有設(shè)計襯砌厚度根據(jù)石巖來定的。增加錐坡放樣計算。二、源程序1.總主程序（1、坐標(biāo)計

2、算放樣程序2、坐標(biāo)反算程序；3、高程計算查閱程序；4、路基半幅標(biāo)準(zhǔn)寬度查閱程序；5、路基邊坡及開挖口放樣程序；6、路基標(biāo)準(zhǔn)距離放樣；7、橋梁錐坡計算放樣程序；8、極坐標(biāo)計算程序；9、隧道超欠挖計算程序）運行后輸入19數(shù)子則選擇1至9的程序，返回時，在樁號輸入-1,返回選擇選擇計算類型。輸入-2,返回選擇線路。坐標(biāo)計算中輸入-3,則顯示本段曲線要素。程序名：0ZCXLbI0:17DimZ：Norm2:1A：A:XY=1，ZD=2，GC=3，GD=4，BP=5，F(xiàn)M=6，ZP=7，JS=8，SD=9?A:A=1=Goto1:A=2=Goto2:A=3=Goto3:A=4=Goto4:A=5=Got

3、o5:A=6=Goto6:A=7=Goto7:A=8=Goto8:A=9=Goto9LbI1:ProgDX:LbIA:ProgQX:90B:PJ1?B:BC:PJ2?C:BZ1:CZ8:LbIB:1F:KM?Z:Z=-1=Goto0:Z=-2=GotoA:Z=-3=GotoX:ProgKM:?D:PorgTHB:OL:L0?L:Z2+Z1-Z8E:X+Lcos(E)X:Y+Lsin(E)Y:ProgXY:ProgJS:GotoBLbI2:2F:90Z1:ProgQX:LbIC:KM?Z:Z=-1=Goto0:Z=-2=Goto2:Z=-3=GotoX:ProgKM:XO?X:Y0?Y:Prog

4、THB:PorgZD:GotoC:LbI3:ProgQX:0B:H-B?B:BZ9:LbID:KM?Z:Z=-1=Goto0:Z=-2=Goto3:?D:PorgH:Fix3:H=:Lcoate6,4,H-Z9：I=:Locate6,4,I：GotoDLbI4:ProgQX:LbIE:KM?Z:Z=-1=Goto0:Z=-2=Goto4:?D:ProgGD:Fix3:SJGD=:Locate7,4,L：GotoELbI5:ProgQX:0.5B:TH-GD?B:BZ17:LbIF:2F:90Z1:KM?Z:Z=-1=Goto0:Z=-2=Goto5:ProgKM:X0?X:Y0?Y:0M:”M

5、0”?M:MZ4:Prog3FBXFix2:PD:Abs（P）-SO:L0=:Locate6,4,O：ProgZD:Z4T:TW=:Lcoate6,4,TGotoF:LbI6:ProgDX:LbIG:ProgQX:LbIH:1F:90Z1:KM?Z:Z=-1=Goto0:Z=-2=GotoG:ProgKM:?D:ProgTHB:ProgXY:ProgJS:ProgH:0M:M0?M:Fix2:H-MT:TW=:Locate6,4,TGotoH:LbI7:ProgDX:LbII:ProgQX:0D:LD:Z-,Y+?D:Abs(D)R:LR?R:Z0?Z:DZ6:RZ7:ZZ8:LbIJ:0Y:

6、L0:SZ+,DZ-?Y:Y=-1=Goto0:Y=-2=GotoI:ProgZP:GotoJ:LbI8:ProgDX:LbIK:?X:X=-1=Goto0:X=-2=Goto8:?Y:ProgJS:GotoK:LbI9:PorgDX:LbIL:Prog”QX”:LbIM:2F:90Z1:KM?Z:Z=-1=Goto0:Z=-2=GotoL:Z=-3=GotoX:ProgSD1:0.5A:“CQHD?A:“X0?X:Y0?Y:0M=M0?M:MZ8:AZ15:Prog5SD：GotoM:LbIX:MatFGoto02、次程序:路基開挖邊線及填方坡腳線放樣程序（輸入填方放寬值、大概樁號及測量坐標(biāo)

7、、地面標(biāo)高計算出偏移距離、樁號、距中距離、填挖高度）程序名：3FBXProg”THB”:DP:Prog”GD”:IfD0:Then0.75-LD:GotoH:ElseL-0.75D:GotoH:IfEndLbIH:Prog“H”:H-0.03-Z4Z4:Prog“W1”:IfZ4A:ThenGoto1:ElseIfGZ8:ThenGoto2:ElseGoto3:IfEnd:LbI1:L+Z10+Z11+Z12+(G-A)Z7+Z9Z6+Z8Z5S:GotoZ:LbI2:L+Z10+Z11+(G-Z8)Z6+Z8Z5S:GotoZ:LbI3:L+Z10+GZ5S:GotoZ:LbIT:L+Z17

8、T:IfGZ15:Then(T+Z16+(G-Z15)Z14+Z15Z13)S:GotoZ:Else(T+GZ13)S:GotoZ:LbIZ3.次程序3.隧道超欠挖值計算放樣程序（輸入隧道線路，大概樁號、輸入襯砌厚度、測量三維坐標(biāo)，計算準(zhǔn)確樁號及位置、計算欠超挖值）程序名：5SDProg”KM”:Prog“THB”:DZ13:0D:Prog“H”:Cos(Z10)Z4E:H+Z5Z5:H+Z7Z7:E+Z5Z10:IfZ8Z10:ThenGotoR:ElseGotoS:IfEnd:LbIR:(Z13-Z9)2+(Z8-Z5)2)-Z4-Z15L:GotoL:LbIS:Z4-Z6S:(S2-(Z

9、7-Z5)2)SAbs(S)T:Abs(Z13-Z9)-TT:(T2+(Z8-Z7)2)-Z6-Z15L:GotoL:LbIL:Fix2:”L0=”:Locate6,4,L：Prog”ZD”:“H0=”:Locate6,4,Z8-H4：極坐放樣計算程序(計算放樣點至置儀點方位角及距離)程序名：JSX：Y：Z11K：Z12L：Pol(X-K,Y-L):IFJ0:ThenJ+360J:IFEnd:Int(J)+0.01Int(60Frac(J)+0.006Frac(60Frac(J)J:Fix4:”FWJ=”:Locate6,4,J：Fix3:”S=”:Locate6,4,I5路基寬度子程序6：路

10、基標(biāo)準(zhǔn)半幅寬度計算程序(對于設(shè)計有加寬漸變的有用，如路基寬度無變化，則把此程序直接輸入半幅寬度值至L)程序名：GD1S:Prog“G1”:Z-CE:(B-A)*E/S+AL:6坐標(biāo)計算次程序（）程序名：THBIfQ=2:ThenGotoJ:Else1P：(P-R)(2HPR)：180E：IfF=1:ThenAbs(0)W：Prog：oto2:ElseI：J：Prog：Z：oto2:IfEnd:LbIJ:IfF=1:ThenProgZ：oto1:ElseProgZX：oto2:IfEnd:LbI1:I+DCOS(Z2+Z1)X:J+DSin(Z2+Z1)Y:LbI27.線元法正算子程序()程序名

11、：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+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)

12、Y：G+QEW(C+W)：X+cos（+Z1）：Y+sin（+Z1）8.線元法反算子程序()程序名：BG-90：Abs(Y-V)cos(T)-(X-U)sin(T)：0：Lbl0：Prog：T+QEW(C+W)：(J-Y)cos(L)-(I-X)sin(L)：IFAbs()0.01:ThenGoto1：ElseW+W:Goto0:IfEnd:Lbl1:0D：Prog：(J-Y)sin(+90)D9.交點法正算子程序(Z)程序名：ZH2R24-H(4)2688R(3)A:H2-H(3)240R2B:(R+A)tan(Abs(P)2)+BT:O-TC:C+HL:L+RAbs(P)180N:N-HE

13、:PAbs(P)W:0M:IfZL:Then180(Z-L+0.5H)RS:H2-H(3)240R2+Rsin(S)A:H2R24-H(4)2688R(3)+R(1-Cos(S)B:RM:G+WSZ2:Goto4:IfEnd:Z-CS:Prog“HX”:G+WKZ2:LbI4:U+(A-T)cos(G)-WBsin(G)I:V+(A-T)Sin(G)+WBcos(G)J:Goto3:LbI2:U+Scos(Z2)I:V+Ssin(Z2)J:LbI310.交點法緩和段轉(zhuǎn)化子程序(HX)程序名：HXS-S(5)40R2H2+S(9)3456R(4)H(4)A:S(3)6RH-S(7)336R(3)

14、H(3)+S(11)42240R(5)H(5)B:90S2RHK:RHSM11.交點法反算子程序(ZX)程序名：ZXZ:0D:LbI0:Prog“Z”:Pol(X-I,Y-J):J-Z2J:Isin(J)S:Icos(J)I:IfAbs(I)0.1:ThenZ+IZ:SD:Goto2:ElseGoto1:LbI1:IfM=0:ThenZ+IZ:Goto0:ElesPol(M-WS,I):(JM)/180I:Z+IZ:Goto0:IfEndLbI212高程計算子程序（H）程序名：HProg“S1”:C-TF:Z-FS:C+TE:G-TIQ:IfT=O:ThenQ+SIH:Goto0:ElseIf

15、ZF:ThenQ+SIH:Goto0:ElseIfZE:ThenQ+SI+S22RH:Goto0:LbI0:H:IfD=0:ThenGotoI:ElseProg“I”:H+VH:GotoI:LbII13.高程超高計算程序（I）程序名：IIfZ3=1:ThenProg“I1”:Goto1:ElseProg“I2”:Goto1:IfEnd:LbI1:IfW=1:Then:GotoZ:Else:GotoX:IfEndLbIZ:IfS=0:ThenAbs(D)MV:Goto2:ElseAbs(D)(N-M)(Z-C)S+M)V:Goto2:IfEnd:LbIX:IfS=0:ThenAbs(D)MV:G

16、oto2:ElseAbs(D)(3(Z-C)S)2-2(Z-C)S)(3)(N-M)+M)V:Goto2:IfEnd:LbI2:Abs(D)E:VEI:I(E-K)V14導(dǎo)線點子程序（DX）程序名：DXZ11K:Z12L:“XZ”?K:”YZ”?L:KZ11:LZ1215線路選擇子程序(線路選擇輸0時。則輸曲線參數(shù)（QX）程序名：QX1A:”QX:X1=1,X2=2”?A:AZ3:IfA=0:ThenGoto1:ElseGoto2:IfEnd:LbI1:”JDO”?O:”XO”?U:”YO”?V:”FW”?G:”LS”?H:?P:?R:”J=2,X=(0,1,-1)”?Q:Goto2:LbI2

17、16線路中線元段判別子程序（KM）程序名：KMIfZ3=0:ThenGoto0:ElseIfZ3=1:ThenProg“X1”:Goto0:ElseProg“X2”:Goto0:IfEnd:LbI017坐標(biāo)計算參數(shù)轉(zhuǎn)化子程序（F）程序名：FMatF1,1O:MatF1,2U:MatF1,3V:MatF1,4G:MatF1,5H:MatF1,6P:MatF1,7R:MatF1,8Q18.橋梁錐坡放樣子程序（ZP）程序名：ZP(Z62（1-Y2/Z72）)X：Z8Z:Prog”GD”:IfD0:ThenL+XD:ElseL-XD:IfEnd:Z8+YZ:D:1F:90Z1:Prog”KM”:Pro

18、g”THB”:Prog”XY”:Prog”JS”19顯示子程序（XY）程序名：XYix3:=：Locate6,4,：Locate6,4,：程序名：ZDFix3:：Locate6,4,：Locate6,4,：20數(shù)據(jù)子程序(附后示例)-1程序名：X1（線路1坐標(biāo)計算要素程序）IfZ26615.555:Then25900,11587.421,1847.983,101。0923.1”,715.555,11045,11045,0MatF:Goto0:IfEnd:IfZ26915.555:Then26615.555,11448.97,2550.016,101。0923.1”,300,11045,1800

19、,1MatF:Goto0:IfEnd:LbI0:Prog”F”-2程序名：X2（線路2坐標(biāo)計算要素程序）IfZ616.951:Then316.951,11230.669,3213.086,118。4228.42”,300,1800,11045,1MatF:Goto0:IfEnd:IfZ4050:Then3089.766,9708.017,5530.185,123。2857.1”,300,-44。3938”,2200,2MatF:Goto0:IfEnd:LbI0:Prog”F”程序字母說明：O-線元起點樁號(交點樁號)；U-起點X坐標(biāo)（交點X）；V-起點Y坐標(biāo)（交點Y）；G-線元起點樁號切線方位

20、角（交點前一交點至現(xiàn)交點方位角）;線元長度（緩和曲線長度），線元起點曲率半徑（偏角：值為正負(fù)，左偏為負(fù)，右偏為正），線元終點曲率半徑（圓半徑）,Q線元判別(以道路中線的前進(jìn)方向（即里程增大的方向）區(qū)分左右；當(dāng)線元往左偏時，Q=-1；當(dāng)線元往右偏時，Q=1；當(dāng)線元為直線時，Q=0;交點法取值2）.說明括內(nèi)為交點法子母代表意思。-1程序名：S1(線路1高程豎曲線要素子程序)IfZ3=1:ThenGoto1:ElseProg“S2”:Goto0:IfEnd:LbI1:IfZ26157.8:Then-200000R:157.8T:26000C:37.1G:0.01222I:Goto0:IfEnd:If

21、Z27421.915:Then300000R:171.915T:27250C:32.65G:-0.00356I:Goto0:IfEnd:IfZ27889.029:Then1000000R:134.029T:27755C:36.64G:0.0079I:Goto0:IfEnd:LbI0-2程序名：S2(線路2高程豎曲線要素子程序)IfZ183.007:Then1365R:20.475T:162.532C:46.1G:0.003I:Goto0:IfEnd:IfZ321.264:Then-1200R:38.732T:282.532C:50.175G:0.033I:Goto0:IfEnd:LbI0程序字

22、母說明：C-豎曲線交點樁號；G-交點樁號高程（未豎曲線調(diào)整的）；T-豎曲線切線長(標(biāo)段結(jié)尾或開頭沒有豎曲線的輸0)；R-豎曲線半徑（分正負(fù)：凹曲線為正，凸曲線為負(fù)）；I豎曲線前縱坡-1程序名：I1（線路1高程超高參數(shù)子程序）1.5K:2W:IfD0:ThenGotoL:ElseGotoR:IfEnd:LbIL:IfZ26615.555:Then0S:-0.02M:Goto0:IfEnd:IfZ26735.555:Then120S:26615.555C:-0.02M:0.02N:Goto0:IfEnd:IfZ26795.555:Then60S:26735.555C:0.02M:0.04N:Got

23、o0:IfEndLbIR:IfZ26735.555:Then0S:-0.02M:Goto0:IfEndIfZ26795.555:Then60S:26735.555C:-0.02M:-0.04N:Goto0:IfEndIfZ27436.951:Then0S:-0.04M:Goto0:IfEndLbI0-2程序名：I2（線路2高程超高參數(shù)子程序）0.5K:1W:IfD0:ThenGotoL:ElseGotoR:IfEnd:LbIL:IfZ100:Then0S:-0.015M:Goto0:IfEnd:IfZ110:Then10S:100C:-0.015M:-0.02N:Goto0:IfEnd:IfZ

24、343.665:Then0S:-0.02M:Goto0:IfEndLbIR:IfZ100:Then0S:-0.015M:Goto0:IfEndIfZ110:Then10S:100C:-0.015M:-0.02N:Goto0:IfEndIfZ375.665:Then0S:-0.02M:Goto0:IfEndLbI0字程序中字母表示說明：K中央分隔帶半幅寬（中樁標(biāo)高至中樁中線距離，無分隔帶則為0）；W超高方式參數(shù)（W=1為一般直線方式超高，W=2為三次拋物線方式超高）;S超高漸變段距離（不是漸變段則輸入0）；C-超高漸變段起點樁號（不是漸變段，無需輸入）；M超高段起點橫坡，N-超高漸變段終點橫坡（

25、不是漸變段，無需輸入）。-1程序名：G1(線路1路基標(biāo)準(zhǔn)半幅寬度參數(shù)子程序)IfZ3=1:ThenGoto1:ElseProg“G2”:Goto0:IfEndLbI1:IfD0:ThenGotoL:ElseGotoR:IfEnd:LbIL:IfZ28110.727:ThenZC:17.25A:Goto0:IfEnd:IfZ28200.727:Then28110.727C:17.25A:21.25B:90S:Goto0:IfEndLbIR:Z27927.478:ThenZC:17.25A:Goto0:IfEndIfZ28172:Then27927.478C:17.25A:27.031B:244.

26、522S:Goto0:IfEndLbI0-2程序名：G2(線路2路基標(biāo)準(zhǔn)半幅寬度參數(shù)子程序)IfD0:ThenGotoL:ElseGotoR:IfEnd:LbIL:IfZ69.998:ThenZC:28.25A:Goto0:IfEnd:IfZ82.402:Then69.998C:28.25A:25.545B:12.404S:Goto0:IfEndLbIR:Z69.998:ThenZC:17.45A:Goto0:IfEndIfZ80.367:Then69.998C:17.45A:16.787B:10.369S:Goto0:IfEnd:LbI0字程序中字母表示說明：C寬度漸變段起點樁號（不是漸變段

27、C=Z）；A寬度漸變段起點寬度;B寬度漸變段終點寬度（不是漸變段，無需輸入）；S-寬度漸變段距離（不是漸變段，無需輸入）。-1程序名：SD1(線路1隧道參數(shù)子程序)IfZ3=1:ThenGoto1:ElseProg“SD2”:Goto0:IfEnd:LbI1:8.75Z4:-1.1Z5:4.77Z6:1.47Z7:-0.25Z9:51。2857.1”Z10:LbI0-2程序名：SD2(線路2隧道參數(shù)子程序)5.43Z4:1.634Z5:7.93Z6:1.634Z7:0Z9:90Z10字程序中字母表示說明：Z4隧道上拱半徑；Z5隧道上拱圓心至設(shè)計面高度；Z6隧道中腰部半徑；Z7中腰圓心至設(shè)計面高

28、度；Z9設(shè)計隧道中線與設(shè)計路基中線偏移值，左為負(fù)數(shù)，右為正數(shù)；Z10上部拱跨隧道半幅角度；-1程序名：W1(線路1路基填挖邊坡參數(shù)子程序)IfZ3=1:ThenGoto1:ElseProg“W2”:Goto0:IfEnd:LbI1:0.75Z5:1Z6:1.25Z7:10Z8:10Z9:2.6Z10:2Z11:2Z12:1.5Z13:1.75Z14:8Z15:2Z16LbI:0-2程序名：W2(線路2路基填挖邊坡參數(shù)子程序)1Z5:1Z6:1.25Z7:10Z8:10Z9:2.6Z10:1.5Z11:1.5Z12:1.5Z13:1.75Z14:8Z15:2Z16字程序中字母表示說明：Z5挖方第

29、一階邊坡邊率；Z6挖方第二階邊坡邊率；Z7挖方第三階邊坡邊率；Z8挖方第一階高度；Z9挖方第二階高度；Z10挖方路基碎落臺及水溝寬度；Z11挖方第二臺階平臺寬度；Z12挖方第三臺階平臺寬度；Z13填方第一階邊坡邊率；Z14填方第二階邊坡邊率;Z15填方第一階高度；Z16-填方第二臺階平臺寬度。（注：本程序只做出挖方三個臺階，填方二個臺階，如需增加，先需在程序THB和4FBZ程序中增加變量。再如一標(biāo)段有坡率及坡高不一樣時，可以照其它參數(shù)程序一樣，用判別語句。）三、使用說明1、規(guī)定(1)“KM”為所求點樁號，反算時為輸入大概樁號(2)當(dāng)所求點位于中線時，=0；當(dāng)位于中線左鍘時，取負(fù)值；當(dāng)位于中線中

30、線右側(cè)時，取正值。(3)當(dāng)線元為直線時，其起點、止點的曲率半徑為無窮大，以10的45次代替。（在用交點法時，P子母代表偏角）(4)當(dāng)線元為圓曲線時，無論其起點、止點與什么線元相接，其曲率半徑均等于圓弧的半徑。（交點法為圓半徑）(5)當(dāng)線元為完整緩和曲線時，起點與直線相接時，曲率半徑為無窮大，以10的45次代替；與圓曲線相接時，曲率半徑等于圓曲線的半徑。止點與直線相接時，曲率半徑為無窮大，以10的45次代替；與圓曲線相接時，曲率半徑等于圓曲線的半徑。(6)當(dāng)線元為非完整緩和曲線時，起點與直線相接時，曲率半徑等于設(shè)計規(guī)定的值；與圓曲線相接時，曲率半徑等于圓曲線的半徑。止點與直線相接時，曲率半徑等于設(shè)計規(guī)定的值；與圓曲線相接時，曲率半徑等于圓曲線的半徑。(7)Q值是判別用采用線元法還是交點法。交點法值為2。線元法，根據(jù)線元段取值，直線段取0，緩和段和圓曲線段，根據(jù)左偏取-1,右偏取1.(8)為了區(qū)別字母O及數(shù)子0，特把字母0加粗。2、輸入與顯示說明輸入部分：A:XY=1，ZD=2，GC=3，GD=4，BP=5，F(xiàn)M=6，ZP=7，JS=8，SD=9?輸入:1、坐標(biāo)計算放樣程序2、坐標(biāo)反算程序；3、高程計算查閱程序；4、路基半幅標(biāo)準(zhǔn)寬度查閱程序；5、路基邊坡及開挖口放樣程序；6、路基標(biāo)準(zhǔn)距離放樣；7、橋梁錐坡計算放樣程序；8、極坐標(biāo)計算程序；9、隧道超欠挖