Fx5800計算器公路測量程序設計213版講課講稿

1、Good is good, but better carries it.精益求精，善益求善。Fx5800計算器公路測量程序設計213版-FX5800計算器公路測量常用程序集2.3版一、程序功能主要功能：采用交點法方式計算多條線路坐標正反算，可算任意復雜線型及立交匝道，包括C型，S型、卵型、回頭曲線等；極坐標放樣，全線路基邊坡開挖口及坡腳放樣計算、路基任意點設計高程、橫坡、設計半幅寬度.隧道欠超挖放樣計算。新版本優(yōu)化：1、優(yōu)化程序語句、2、取消原線元法計算，化線元法為交點法。3、高程計算修改,4、附計算坐標及高程參數(shù)設計要素輸入實例二、源程序（綠色為程序名；藍色為輸入計算器內容）紅色為網(wǎng)友調試后

2、修改筆誤。0.總主程序（1、坐標計算放樣程序2、坐標反算程序；3、高程計算查閱程序；4、路基半幅標準寬度查閱程序；5、路基邊坡及開挖口放樣程序；6、路基標準距離放樣；7、橋梁錐坡計算放樣程序；8、極坐標計算程序；9、隧道超欠挖計算程序）運行后按19數(shù)子約半秒，則選擇1至9的程序，返回時，在樁號輸入-1,返回選擇計算類型。輸入-2,返回選擇線路。程序名：0（數(shù)子0）ClrMat:ClrVar:12DimZ：Norm2:Do:(XY=1，ZD=2，GC=3，GD=4，BP=5，F(xiàn)M=6，ZP=7，JS=8，SD=9)=QINGAN1-9：GetkeyZ3:WhileZ3=35:Prog1XY”:W

3、hileEnd:WhileZ3=36:Prog2ZD：WhileEnd:WhileZ3=37:Prog3GC：WhileEnd:WhileZ3=21:Prog4GD：WhileEnd:WhileZ3=22:Prog5BP：WhileEnd:WhileZ3=23:Prog6FM：WhileEnd:WhileZ3=31:Prog7ZP：WhileEnd:WhileZ3=32:Prog8JS：WhileEnd:WhileZ3=33:Prog9SD：WhileEnd:LpWhileZ325:”XIEXIESHIYONG”:1.主程序：一般坐標計算及放樣程序程序名:1XYProgDX:ProgQX:90

4、A:PJ1?A:AB:PJ2?B:AZ1:BZ9:Do:KM?Z:Z=-1=Stop:Z=-2=Break:ProgK:?D:0L:L0?L:LZ10:PorgA:Z2+Z1A:A-Z9E:I+Dcos(A)+Z10cos(EX:J+Dsin(A)+Z10sin(EY:ProgXY:ProgJS:LpWhileZ-12.主程序：由大概樁號及坐標反算樁號及距離程序名:2ZDProgQX:Do:KM?Z:Z=-1=Stop:Z=-2=Break:ProgK:XO?X:Y0?Y:PorgB:ProgZD:LpWhileZ-13.主程序：任意點高程計算及橫坡程序名:3GCProgQX:0B:H-B?B

5、:BZ9:Do:KM?Z:Z=-1=Stop:Z=-2=Break:?D:ProgH:Fix3:H=:Locate6,4,H-Z9：I=:Locate6,4,I：LpWhileZ-14.主程序:任意樁號位置的標準路基寬度計算程序名:4GDProgQX:Do:KM?Z:Z=-1=Stop:Z=-2=Break:-1D:ProgC:LP：1D:ProgC:Fix3:LGD=:Locate6,4,P：RGD=:Locate6,4,L：LpWhileZ-15、主程序:路基開挖邊線及填方坡腳線放樣程序程序名：5BPProgDX:ProgQX:0.5B:TH-GD?B:BZ7:Do:KM?Z:Z=-1=S

6、top:Z=-2=Break:ProgK:“X0?X:Y0?Y:Z8M：M0?M:MZ8:PorgB:DP:ProgC:IfD0:ThenGotoT:IfEnd:-GH:IfHE+F:ThenL+M+N+U+C(H-E-F)+BF+AES:Goto0:IfEnd:IfHE:ThenL+M+N+B(H-E)+AES:Goto0:IfEnd:IfHW：ThenL+Z7+V+J(G-W)+IWS:ElseL+Z7+GIS:IfEnd:LbI0:Fix2:PD：Abs（D）-ST:LX=:Locate6,4,T：ProgZD:TW=:Locate6,4,GLpWhileZ-16、主程序：定值放樣路基樁

7、計算填挖值程序名：6FMProgDX:ProgQX:Do:KM?Z:Z=-1=Stop:Z=-2=Break:ProgK:?D:PorgA:Z2+90A:I+Dcos(AX:J+Dsin(AY:ProgXY:ProgJS:Z8M:”M0”?M:MZ8:Prog“H”:”TW=”:Locate6,4,H-Z8:LpWhileZ-17、主程序：橋梁錐坡計算放樣程序名：7ZPProgDX:ProgQX:Z0?Z:LD:Z-,Y+?D:Abs(D)R:LR?R:DZ7:RZ10:ZZ9:Prog”C”:LZ10:Prog”K”:Do:Z10Y:L0:SZ+,DZ-?Y:Y=-1=Stop:Y=-2=B

8、reak:(Z72（1-Y2/Z102）)X：Z9+YZ:Prog”C”:IfD0:ThenL+XD:ElseL-XD:IfEnd:Prog”A”:Z2+90A:I+Dcos(AX:J+Dsin(AY:ProgXY:ProgJS:LpWhileY-18、主程序：由坐標計算方位角及距離程序名：8JSProgDX:Do:?X:X=-1=Stop:X=-2=Break:?Y:Prog”JS”:LpWhileX-19、主程序：隧道超欠挖放樣計算程序名：9SDProgDX:0.65A:”CQHD”?A:AZ7:Do:KM?Z:Z=-1=Stop:Z=-2=Break:ProgK:“X0?X:Y0?Y:Z

9、8M：M0?M:MZ8:PorgB:DZ9:0D:Prog”H”:Prog”SD1”:Z9D:Z8M:Z7X:Rcos(PC:H+AA:H+BB:C+AE:IfMGoto1:(S2-(B-A)2)SAbs(ST:Abs(D-Q)-TT:(T2+(M-B)2)-V-XL:Goto0:IfEnd:LbI1:(D-Q)2+(M-A)2)-R-XL:LbI0:Fix2:”LX=”:Locate6,4,L:Prog”ZD”:“H0=”:Locate6,4,M-HLpWhileZ-110.交點法正算子程序()程序名：APAbs(PW:O-T+RAbs(P)180+H2-N2Q:HC:0M:IfZO-T:T

10、henZ-OS:GZ2:Goto1:IfEnd:IfZO-T+H:ThenZ-O+TS:Prog“HX”:G+WKZ2:A-TA:GE:Goto2:IfEnd:IfZQ:Then180(Z-O+T-0.5H)RS:Prog”AB”:A+R(1-Cos(SE：B+Rsin(SA:EB:RM:G+WSZ2:A-TA:GE:Goto2:IfEnd:IfZQ+N:ThenQ+N-ZS:NH:Prog“HX”:G+PE:E-WKZ2:F-AA:CH:Goto2:IfEnd:Z-Q-N+FS:G+PZ2:LbI1:U+Scos(Z2I:V+Ssin(Z2J:Return:LbI2:U+Acos(E)-WB

11、sin(EI:V+Asin(E)+WBcos(EJ11.交點法反算子程序()程序名：B0D:Do:Z+DZ:Prog”A”:Pol(X-I,Y-J+10-9:J-Z2J:Isin(JS:Icos(JD:IfM0:ThenPol(M-WS,D:JM180D:IfEnd:LpWhileAbs(D).001:Z+DZ:SD12.緩和曲線段直角坐標計算子程序(B)程序名：ABH2R24-H(4)2688R(3)+H(6)506880R(5)-H(8)154828800R(7)A:H2-H(3)240R2+H(5)34560R(4)-H(7)8386560R(6)+H(9)3158507520R(8)B

12、13.計算緩和曲線段坐標增量及偏角子程序(HX)程序名：HXS-S(5)40R2H2+S(9)3456R(4)H(4)-S(13)599040R(6)H(6)+S(17)175472640R(8)H(8)A:S(3)6RH-S(7)336R(3)H(3)+S(11)42240R(5)H(5)-S(15)9676800R(7)H(7)+S(19)3530097000R(9)H(9)B:90S2RHK:IfS=0:Then0M:ElseRHSM:IfEnd14高程計算子程序（H）程序名：HProg“S1”:N-IA:AAbs(AW:RAbs(A2T:IfZC-T:ThenG+I(Z-CH:Goto

13、0:IfEnd:IfZC+T:ThenG-TI+(I+(Z-C+T)W2R)(Z-C+TH:Goto0:IfEnd:NI:G+I(Z-CH:LbI0:IfD=0:ThenHH:Return:ElseProg“I”:H+I(Abs(D)-KH:IfEnd15.高程超高計算橫坡子程序（I）程序名：IProg“I1”：IfS=0:ThenMI:Return:ElseIfW=1:Then(N-M)(Z-C)S+MI:Return:Else(3(Z-C)S)2-2(Z-C)S)(3)(N-M)+MI:IfEnd:16路基寬度子程序程序名：C1S:Prog“G1”:Z-CE:(B-A)ES+AL17：極坐

14、放樣計算程序(計算放樣點至置儀點方位角及距離)程序名：JSZ5K：Z6L:Pol(X-K,Y-L:IFJ0:ThenJ+360J:IFEnd:Int(J)+0.01Int(60Frac(J)+0.006Frac(60Frac(JJ:Fix4:”FWJ=”:Locate6,4,J：Fix3:”S=”:Locate6,4,I18導線點子程序（DX）程序名：DXZ5K:Z6L:“XZ”?K:”YZ”?L:KZ5:LZ619線路選擇子程序(線路選擇輸0時。則輸曲線參數(shù)（QX）程序名：QX1A:”QX:X1=1,X2=2”?A:AZ4:IfA=0:Then”JDKM”?O:”JDX”?U:”JDY”?V

15、:”FWJ”?G:”ZJ”?P:”LS1”?H:”LS2”?N:”T1”?T:”T2”?F:?R:IFEnd20線路中線元段判別子程序（K）程序名：KIfZ4=0:ThenReturn:IfEnd:IfZ4=1:ThenProg“X1”:Return:IfEnd：IfZ4=2:ThenProg“X2”:Return:IfEnd21坐標參數(shù)矩陣調用程序（F）程序名：FMatF1,1O:MatF1,2U:MatF1,3V:MatF1,4G:MatF1,5P:MatF1,6H:MatF1,7N:MatF1,8T:MatF1,9F:MatF1,10R22顯示子程序程序名：XYix3:=：Locate6

16、,4,：Locate6,4,：程序名：ZDFix3:：Locate6,4,：Locate6,4,23數(shù)據(jù)子程序(附后示例)匝道線元轉交點數(shù)據(jù)程序（T）程序名：TNorm2:“QKM”？Z：“XQ”？U：“YQ”？V：“LS1”？M：“LS2”？O：“A1”？A：“A2”？B：“FWJ“？G：”ZJ“？P：？R：PAbs(PQ:A2RH:HMH:H-MS:B2RN:N-OC:ON=ON:H=0=10-9H:HX:90S2(RHK:G-QKG:N=0=10-9N:90C2(RND:P+QK+QDP:Prog”AB”:(H2-N2)24Rsin(Abs(P)-(H(4)-N(4)2688R(3)si

17、n(Abs(P)+(H(6)-N(6)506880R(5)sin(Abs(P)-(H(8)-N(8)154828800R(7)sin(Abs(PE:(R+A)tan(Abs(P)2)+B-ET:NH:Prog”AB”:(R+A)tan(Abs(P)2)+B+EF:XH:Z-S+TO:Prog”HX”:U-(A-T)cos(G)+QBsin(GU:V-(A-T)sin(G)-QBcos(GV:Fix3:”JDKM=”:Locate6,4,O:”JDX=”:Locate6,4,U:”JDY=”:Locate6,4,V”FWJ=”:GDMS”ZJ=”：PDMS”LS1=”:Locate6,4,H:”

18、LS2=”:Locate6,4,N:”T1=”:Locate6,4,T:”T2=”:Locate6,4,F”R=”:R說明：運行后“QKM”？輸入起點樁號；“XQ”？“YQ”？輸入起點X、Y坐標；“LS1”？“LS2”？輸入前段緩和曲線長度，后段緩和曲線長度；“A1”？“A2”？輸入前段緩和曲線參數(shù)，后段緩和曲線參數(shù)；“FWJ“？輸入起點切線方位角；”ZJ“？輸入轉角（終點方位角減起點方位角之差，左轉為負，右轉為正）；計算結果要素同QX子程序中要素字母。-1程序名：X1（線路1坐標計算要素程序）IfZ241.086:Then-336.478，2600441.639，514392.519，280

19、。2028.78”，203。0828.32”，106.667，81.667，-270.668，-283.056，60MatF:Prog”F”:IfEnd-2程序名：X2（線路2坐標計算要素程序）IfZ273.006:Then171.674，2600784.547，514635.863，58。4917.2”，68。0926.91”，93.889，125，171.674，184.771，180MatF:Prog”F”:Return:IfEndIfZ466.227:Then341.96，2600664.76，514799.865，123。4325.9”，15。5849.5”,0，138.211，68

20、.954，125.273，445MatF:Prog”F”:Return:IfEnd說明：1、交點法：IfZ計算交點段終點樁號：Then交點樁號，交點X坐標，交點Y坐標，起點至交點方位角，交點轉角，交點前段緩和曲線長度，交點后段緩和曲線長度，交點前段切線長度，交點后段切線長度，圓半徑MatF:Prog”F”:Return:IfEnd（轉角則為交點段終點方位角減起點方位角，分正負，左偏為負，右偏為正）如整條線無曲線，全為直線段，則交點為終點樁號，XY為終點坐標，方位角為起點方位角，轉角和圓半徑為1，其它全為0。-1程序名：S1(線路1高程豎曲線要素子程序)IfZ4=1:ThenGoto1:Else

21、Prog“S2”:Return:IfEnd:LbI1:IfZ241.09:Then95.356C:40.742G:2000R:-.03155I:.00812N:IfEnd:-2程序名：S2(線路2高程豎曲線要素子程序)IfZ133.601:Then106C:45.12G:1525R:-.0064I:.0298N:Return:IfEnd:IfZ466.23:Then298C:50.841G:1945R:.0298I:-.01968N:Return:IfEnd:程序字母說明：C-豎曲線交點樁號；G-交點樁號高程（未豎曲線調整的）；R-豎曲線半徑；I豎曲線前縱坡;N豎曲線后縱坡-1程序名：I1（線

22、路1高程超高參數(shù)子程序）0K:1W:IfZ4=1:ThenGoto1:ElseProg“I2”:Return:IfEnd:LbI1:IfD0:ThenGotoL:ElseGotoR:IfEnd:LbIL:IfZ159.419:Then0S:.06M:Return:IfEnd:IfZ187.987:Then28.568S:159.419C:.06M:.02N:Return:IfEnd:IfZ241.086:Then0S:.02M:Return:IfEnd:LbIR:IfZ159.419:Then0S:-.06M:Return:IfEnd:IfZ187.987:Then28.568S:159.41

23、9C:-.06M:-.02N:Return:IfEnd:IfZ241.086:Then0S:.-02M:Return:IfEnd-2程序名：I2（線路2高程超高參數(shù)子程序）IfD0:ThenGotoL:ElseGotoR:IfEnd:LbIL:IfZ77.872:Then0S:.02M:Return:IfEnd:IfZ93.889:Then16.017S:77.872C:.02M:.05N:Return:IfEnd:IfZ198.567:Then0S:.05M:Return:IfEnd:IfZ273.006:Then74.439S:198.567C:.05M:.02N:Return:IfEnd

24、:IfZ335:Then0S:.02M:Return:IfEnd:Z346.235:Then11.235S:335C:.02M:.015N:Return:IfEnd:LbIR:IfZ77.872:Then0S:-.02M:Return:IfEnd:IfZ93.889:Then16.017S:77.872C:-.02M:-.05N:Return:IfEnd:IfZ198.567:Then0S:-.05M:Return:IfEnd:IfZ273.006:Then74.439S:198.567C:-.05M:-.02N:Return:IfEnd:IfZ335:Then0S:-.02M:Return:

25、IfEnd:Z346.235:Then11.235S:335C:-.02M:-.015N:Return:IfEnd:子程序中字母表示說明：K中央分隔帶半幅寬（中樁標高至中樁中線距離，無分隔帶則為0）；W超高方式參數(shù)（W=1為一般直線方式超高，W=2為三次拋物線方式超高）;S超高漸變段距離（不是漸變段則輸入0）；C-超高漸變段起點樁號（不是漸變段，無需輸入）；M超高段起點橫坡，N-超高漸變段終點橫坡（不是漸變段，無需輸入）。-1程序名：G1(線路1路基標準半幅寬度參數(shù)子程序)IfZ4=1:ThenGoto1:ElseProg“G2”:Return:IfEndLbI1:IfD0:ThenGotoL

26、:ElseGotoR:IfEnd:LbIL:IfZ241.086:ThenZC:3.5A:Return:IfEnd:LbIR:IfZ40.857:Then0C:5A:5.25B:40.857S:Return:IfEnd:IfZ159.419:ThenZC:5.25A:Return:IfEnd:IfZ187.987:Then159.419C:5.25A:5.5B:28.568S:Return:IfEnd:IfZ241.086:ThenZC:5.5A:Return:IfEnd-2程序名：G2(線路2路基標準半幅寬度參數(shù)子程序)IfD0:ThenGotoL:ElseGotoR:IfEnd:LbIL:

27、IfZ466.227:ThenZC:3.5A:Return:IfEnd:LbIR:IfZ321.611:ThenZC:5A:Return:IfEnd:IfZ346.235:Then321.611C:5A:5.75B:24.624S:Return:IfEnd:IfZ466.227:ThenZC:5.75A:Return:IfEnd子程序中字母表示說明：C寬度漸變段起點樁號（不是漸變段C=Z）；A寬度漸變段起點寬度;B寬度漸變段終點寬度（不是漸變段，無需輸入）；S-寬度漸變段距離（不是漸變段，無需輸入）。-1程序名：SD1(隧道參數(shù)子程序)IfZ4=1:Then5.1R:1.8A:1.4V:0.5

28、9B:0Q:109。0130”P:Return:IfEnd:IfZ4=2:Then8.75R:-1.1A:4.77V:1.47B:-.25Q:51。2857.1”P:Return:IfEnd:子程序中字母表示說明：R隧道上拱半徑；A隧道上拱圓心至設計面高度；V隧道中腰部半徑；B中腰圓心至設計面高度；Q設計隧道中線與設計路基中線偏移值，左為負數(shù)，右為正數(shù)；P上部拱跨隧道半幅角度；-1程序名：W1(線路1路基填挖邊坡參數(shù)子程序)IfZ4=1:ThenGoto1:ElseProg“W2”:Return:IfEnd:LbI1:10E:10F:2.6M:2N:2S:1.5I:1.75J:8W:2V:If

29、D0:ThenGotoL:ElseGotoR:IfEnd:LbIL:1A:1.25B:1.25C:Return:LbIR:IfZ110:Then1.25A:1.25B:1.5C:Return:ElseGotoL:IfEnd-2程序名：W2(線路2路基填挖邊坡參數(shù)子程序)10E:10F:2.6M:2N:2S:1.5I:1.75J:8W:2V:IfD0:ThenGotoL:ElseGotoR:IfEnd:LbIL:0.75A:0.75B:0.75C:Return:LbIR:IfZ445:ThenGotoL:ElseIfZ506.9:Then0.25(Z-445)21.2Q:.75+QA:AB:AC

30、:Return:IfEnd子程序中字母表示說明：A挖方第一階邊坡邊率；B挖方第二階邊坡邊率；C挖方第三階邊坡邊率；E挖方第一階高度；F挖方第二階高度；M挖方路基碎落臺及水溝寬度；N挖方第二臺階平臺寬度；S挖方第三臺階平臺寬度；I填方第一階邊坡邊率；J填方第二階邊坡邊率;W填方第一階高度；V-填方第二臺階平臺寬度。（注：本程序只做出挖方三個臺階，填方二個臺階，如需增加，先需在程序5BP程序相應增加。再如一標段有坡率及坡高不一樣時，可以照其它參數(shù)程序一樣，用判別語句。）三、使用說明1、規(guī)定(1)坐標計算以交點方式計算，一般情況下一個交點計算一段線是：直線+緩和曲線+圓曲線+緩和曲線+直線。在匝道中

31、先根據(jù)實際線來調整，可以單獨計算一段不完整的緩和曲線+圓曲線。也可以單獨計算一段緩和曲線或一段圓曲線，需先運行T程序整理成交點數(shù)據(jù)。無緩和曲線時，緩和長度輸0。(2)程序中：10-9為10的負9次方即0.000000001;為圓周率即3.1415926;為根號；=：X前有空格二個，為了顯示效果(3)為了區(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?按對應數(shù)子鍵約半秒:1、坐標計算放樣程序2、坐標反算程序；3、高程計算查閱程序；4、路基半幅標準寬度查閱程序；5、路基邊坡及開挖口放樣

32、程序；6、路基標準距離放樣；7、橋梁錐坡計算放樣程序；8、極坐標計算程序；9、隧道超欠挖計算程序XZ？YZ？為置儀點坐標，第一次運行輸一次，以下運行不需再輸入，下次再運行此程序調上次輸值，如需改，則輸入，不需改，則按確認鍵。(后附有導線點坐標存儲子程序,有興趣的可加上)“QX:X1=1,X2=2”?選擇經(jīng)路，坐標計算中輸入0值，變?yōu)檩斎刖€元段曲線要素。輸1為第一條線路。輸2為第二條線路，本程序暫設計實例為2條線路。？正算時所求點的里程（反算輸入大概樁號）輸入-1，返回輸入選擇計算類型，輸入-2,返回選擇線路。？正算時所求點距中線的邊距(左側取負值,右側取正值，在中線上取零)X0？反算時所求點的

33、X坐標（放樣程序中實測X坐標）Y0？反算時所求點的Y坐標（放樣程序中實測Y坐標）顯示部分：L0?涵洞放樣程序中涵距中心樁號前后距離,前為正,后為負.(即涵洞半幅寬度)M0?放樣程序中原地面標高輸入H-B？計算面至路面高差（默認路面為0）PJ1?PJ2?PJ1為路線中線與邊線的右夾角。第二夾角為邊線至路前進方向夾角,默認值均為90度.TH-GH？邊坡放樣中填方超放寬值，默認值為0.5m.LD:Z-,Y+?橋梁錐坡向左右方向邊長，左為負數(shù)，右為正數(shù)。(即為錐坡高程減地面高程后乘以填方坡比)LR?錐坡向路線前進或向后退方向邊長。Z0?錐坡頂邊樁號L0:SZ+,DZ-?錐坡放樣中，橢圓上分段放樣距離，

34、小樁號錐坡輸正數(shù)，大樁號錐坡輸負數(shù)?！癈QHD”?隧道超欠挖程序中襯砌厚度,默認值為0.65m.QX子程序中和T程序結果中：“JDKM”？輸入交點樁號；“JDX”？“JDY”？輸入交點X、Y坐標；“FWJ“？輸入起點至交點方位角”ZJ“？輸入轉角（終點方位角-起點方位角之差，左轉為負，右轉為正）;“LS1”？“LS2”？輸入交點前段緩和曲線長度，交點后段緩和曲線長度；“T1”？“T2”？輸入交點前段切線長度，交點后段切線長度；”R”?圓半徑輸出部分X=*正算時，計算得出的所求點的X坐標Y=*正算時，計算得出的所求點的Y坐標FWJ=*正算時，計算得出的所求點的至置儀點方位角S=*正算時，計算得出的所求點的至置儀點距離=*反算時，計算得出的所求點的里程=*反算時，計算得出的所求點的邊距H=*所求點位置設計計算面頂標高I=*所求點位置設計路面橫坡（D輸0時為，本段路基縱坡）LGD=*所求點位置設計路面頂左半幅標準寬度LGD=*