最新5800計算器程序匯總

1、5800 計 算 器 程 序精品資料5800計算器程序一、程序功能主要功能：采用交點法方式計算多條線路坐標(biāo)正反算，可算任意復(fù)雜線 型及立交匝道，包括C型，S型、卵型、回頭曲線等；極坐標(biāo)放樣，全線路基 邊坡開挖口及坡腳放樣計算、路基任意點設(shè)計高程、橫坡、設(shè)計半幅寬度.隧道欠超挖放樣計算。新版本優(yōu)化：1、優(yōu)化程序語句、2、取消原線元法計算，化線元法為交點法3、高程計算修改，4、附計算坐標(biāo)及高程參數(shù)設(shè)計要素輸入實例二、源程序（綠色為程序名；藍(lán)色為輸入計算器內(nèi)容）紅色為網(wǎng)友調(diào)試后修改 筆誤。0.總主程序（1、坐標(biāo)計算放樣程序2、坐標(biāo)反算程序；3、高程計算查閱程 序；4、路基半幅標(biāo)準(zhǔn)寬度查閱程序；5、路

2、基邊坡及開挖口放樣程序；6、路基 標(biāo)準(zhǔn)距離放樣；7、橋梁錐坡計算放樣程序；8、極坐標(biāo)計算程序；9、隧道超欠 挖計算程序）運行后按19數(shù)子約半秒，則選擇1至9的程序，返回時，在樁 號輸入-1,返回選擇計算類型。輸入-2,返回選擇線路。程序名：0 （數(shù)子0）1 .主程序：一般坐標(biāo)計算及放樣程序程序名：1XYProg " D» :Prog u QX :90A: " PJ1" ?A:A一B:"PJ2H ?B:A-Z1:B-Z9: Do: " KM ?Z:Z=-1=>Stop:Z=-2=>Break: Prog "K&qu

3、ot; : ?D: 0 一L: u L0" ?L:LZ10: Porg " A :Z2+Z1A :A-Z9 一E:I+Dcos(A)+Z10cos(E -X:J+Dsin(A)+Z10sin(E-Y:ProgXYProg u JS" :LpWhile Z w-12 .主程序：由大概樁號及坐標(biāo)反算樁號及距離程序名:2ZDProg" Q» :Do: " KM' ?Z:Z=-1=>Stop:Z=-2=>Break: Prog " K :"XO' ?X: " Y0" ?Y:

4、Porg " B" : Prog " ZD' :LpWhile Z w-13 .主程序：任意點高程計算及橫坡程序名:3GC僅供學(xué)習(xí)與交流，如有侵權(quán)請聯(lián)系網(wǎng)站刪除謝謝#精品資料Prog" Q» :0 一B: " H-B" ?B: B-Z9: Do: " KM ?Z:Z=-1=>Stop:Z=-2=>Break:?D:Prog u HI" :Fix 3:" H=" :Lcoate 6,4,H-Z9 : " I= " :Locate 6,4,I: Lp

5、While Z w-14 .主程序:任意樁號位置的標(biāo)準(zhǔn)路基寬度計算程序名:4GDProg" Q» : Do: " KM ?Z:Z=-1=>Stop:Z=-2=>Break:- 1 一D:Prog© :L-P: 1 一D: Prog " C :Fix 3:"LGD=' :Lcoate6.4, P : u RGD= :Locate 6,4,L : LpWhile Z w-15、主程序:路基開挖邊線及填方坡腳線放樣程序程序名：4BPProg " D» :Prog u QX :0.5 一B:TH-GD

6、?B: BZ7: Do: " KM' ?Z:Z=- 1=>Stop:Z=-2=>Break: Prog " K" : "X。?X:" Y0" ?Y:Z8 一M "MO' ?M:MRZ8: Porg " B" :DP :Prog " © :If D<0:Then 0.75-L-D:ElseL-0.75一D: IfEnd: Prog"H' ：H-0.03- Z8 一G: Prog"Wf :If G>0:ThenGoto T

7、: IfEnd:-G-H:If H>E+F:Then L+M+N+U+C(HE- F)+BF+AE>S:Goto 0:IfEnd:If H>E:Then L+M+N+ B(HE)+A>S:Goto 0: IfEnd:If H<E:Then L+M+HA-S:Goto 0:IfEnd:LbI T:If G>W Then L+Z7+V+J(G- W)+IW> S:Else L+Z7+GI -S:IfEnd:LbI 0:Fix 2: P 一D : Abs ( D) -S- T: " LX=" :Locate 6,4,T : Prog&qu

8、ot;ZD' : " TW=' :Lcoate 6,4,G J LpWhile Z w-16、主程序：定值放樣路基樁計算填挖值程序名：6FMProg " DX' :Prog " QX : Do: " KM ?Z:Z=-1=>Stop:Z=-2=>Break: Prog "K" : ?D: Porg " A" :Z2+90 -A :I+Dcos(A -X:J+Dsin(A-Y:ProgXYi :Prog u JS" :Z8 一M:" M。？M:MRZ8:Prog

9、"H' ：” TW= :Locate6,4,H- Z8: LpWhile Z w-17、主程序：橋梁錐坡計算放樣程序名：7ZPProg" DX' :Prog " Q;X' : " Z0" ?Z:" LD:Z-,Y+ " ? D:Abs(D) 一R: " LR ?R: AZ7:R Z10:Z 一Z9:Prog ” C :LZ10:Prog " K' :Do:Z10 一Y:L0:SZ+,DZ-" ?Y: Y=-1=>Stop：Y=- 2=>Break:，(

10、Z72 (1-Y2/Z102 ) )X:Z9+Y-Z: Prog " C' : If D>0:Then L+X -D:Else L-XD:IfEnd:Prog " A' : Z2+90 -A :I+Dcos(A -X:J+Dsin(A-Y:ProgXYProg u JS" : LpWhile Y w-18、主程序：由坐標(biāo)計算方位角及距離程序名：8JSProg " D» :Do:?X: X=-1=>Stop:X=- 2=>Break:?Y:Prog " JS" ： LpWhile X *- 1

11、9、主程序：隧道超欠挖放樣計算程序名：9SDProg" DX0.65 一A:" CQHD ?A:A-Z7:Do: " KM ?Z:Z=-1=>Stop:Z=- 2=>Break: Prog " K :"X。?X:" Y0" ?Y:Z8 一M " MG ?M:MRZ8:Porg" B" :DZ9:0 一D:Prog" H' :Prog ” SDT :Z9一D:Z8 一M:Z一X:Rcos(P-C:H+KA:H+-B:C+AE:If M<E:Then R - AS

12、：S=0=>Goto 1： V(S2-(B- A)2)S+Abs(S-T:Abs(D-Q)-T- T: V(T2+(M- B)2)-V- XL:Goto 0:IfEnd:LbI 1: V(D -Q)2+(M-A)2)-R- XL:LbI 0:Fix2: "LX= : Locate 6,4,L:Prog " ZD' : " H0= : Locate 6,4,M -HU LpWhile Z *-110 .交點法正算子程序（A）程序名：AP+ Abs(P-W:O T+n RX Abs(P) + 180+Hk2 - N+ 2-Q:HHC:0一M:If Z &

13、lt;0-T:Then Z- Q->S:G->Z2:Goto 1: IfEnd:If Z <0-T+H:Then Z- Q+T>S:Prog “HX :G+WK>Z2:A -T一A:"E:Goto 2:IfEnd:If Z <Q: Then 180(Z -Q+T-0.5H) +R+H-S : Prog " AB' :A+R(1 - Cos(S一E:B+Rsin(S-A:EB:R一M:G+WSZ2:A -T一A:"E:Goto 2: IfEnd:If Z <Q+N:Then Q+NZ- S:N一H:Prog “HX

14、:G+AE:E-WK>Z2:F - Z A:C- H:Goto 2:IfEnd:Z-Q-N+已 S:G+F Z2: LbI 1:U+Scos(Z2 一 I:V+Ssin(Z2 一 J:Return:LbI 2:U+Acos(E)- WBsin(JI:V+Asin(E)+WBcos(E 一J11 .交點法反算子程序（B ）程序名：B0D:Do:Z+AD:Prog" A" ：Pol(X -I,Y- J+x 10-9:J-Z2一J:Isin(J -S:Icos(J -D:If M w0:Then Pol(M -WS,D:JM! + 18-D:IfEnd: LpWhile A

15、bs(D>.001:Z+D -Z:SD12 .緩和曲線段直角坐標(biāo)計算子程序(A B)程序名：ABH2+ R+ 24- HA (4) + 2688+ RA (3)+H A (6) + 506880+ RA (5) - HA (8) + 15482880g RA 一A:H+ 2 - HA (3) + 240+ R2+ HA (5) + 34560+ RA (4) - H A (7) + 8386560+ RA (6)+ HA (9) + 315850752g RA (8) - B13 .計算緩和曲線段坐標(biāo)增量及偏角子程序(HX)程序名：HXS- SA (5) +40+ R2+ H2+S (9

16、) + 3456+ RA (4) + HA (4)-SA (13) + 599040+ RA (6) + HA (6)+S A (17) + 17547264g RA (8) + HA (8) 一A :SA (3) +6+R+ H -SA (7) + 336+ RA (3) - HA (3)+S A (11) + 42240+ RA (5) + HA (5)-SA (15) + 9676800+ RA (7) + HA (7)+S A (19) + 353009700g RA (9) + HA (9)-B:90S2+ n - R-H-K:If S=0:Then 0 -M:Else RH + S

17、- M:IfEnd14 .高程計算子程序(H)程序名：HProg “S1” ：N-IA:A+Abs(A-W:R<Abs(A+2-T:If Z<C -T:Then G+I(Z-CH:Goto 0:IfEnd:If Z<C+T:Then G -TI+(I+(Z- C+T)W2+R) x (Z-C+RH:Goto 0: IfEnd:N 一I: G+I(Z - CH:ILbI 0:If D=0:ThenH-H:Return:Else Prog"I ” ：H+I(Abs(D) -QH:IfEnd15 .高程超高計算橫坡子程序(I )程序名：IProg “I1" ：

18、If S=0:Then M 一I: Return:Else If W=1:Then (N-M)x (Z-C) + S+M>I:Return:Else (3(Z- C) + S)2-2(Z- C) + S) A (3) 乂 (N -M)+MR I:IfEnd:16 .路基寬度子程序程序名：C1-S: Prog"G1' ：Z-CHE:(B-A)E+ S+A>L17:極坐放樣計算程序(計算放樣點至置儀點方位角及距離)程序名：JSZ5 K: Z6 一L:Pol(X -K, Y-L:IF J<0:ThenJ+36A J:IFEnd:Int(J)+0.01Int(60F

19、rac(J)+0.006Frac(60Frac(J-J: Fix4:" FWJ=' : Locate 6,4,J: Fix 3: "S=" ：Locate 6,4,I/18 .導(dǎo)線點子程序(DX程序名：DXZ5 一K:Z6 一L: "XZ' ？K:" YZ ?L:KZ5:L 一Z619 .線路選擇子程序(線路選擇輸0時。則輸曲線參數(shù)(QX程序名：QX1 一A:" QX:X1=1,X2=2 ?A:A一Z4:IfA=0:Then ” JDKlM ?O:" JDX ?U:" JDV ?V:" F

20、WJ ?G:" ZJ" ？P:“ LS1" ？H: " LS2' ?N:" T1" ？T:“ T2" ？F:?R:IFEnd20 .線路中線元段判別子程序(K)程序名：KIf Z3=0:Then Return: IfEnd:If Z3=1:ThenProg“X1” ：Ret urn:IfEnd : If Z3=2:Then Prog"X2' ：Return:IfEnd21 .坐標(biāo)參數(shù)矩陣調(diào)用程序(F)程序名：FMat F1,1 一O: Mat F1,2 一U: Mat F1,3 一V: Mat F1

21、,4一G: MatF1,5 一P: Mat F1,6一H: Mat F1,7 一N: Mat F1,8 一T:Mat F1,9 一F:Mat F1,10 一R22 .顯小子程序程序名：XYF ix 3: "X =" : Locate 6,4, X: " Y =": Locate 6,4, Y :程序名：ZD僅供學(xué)習(xí)與交流，如有侵權(quán)請聯(lián)系網(wǎng)站刪除 謝謝7精品資料Fix 3: " KM = u : Locate 6,4, Z :"D =" : Locate 6,4, D23 .數(shù)據(jù)子程序（附后示例）匝道線元轉(zhuǎn)交點數(shù)據(jù)程序（T）程

22、序名：TNorm 2:"QKM ? Z:"XG ? U:"YG ? V:"LSI” ?M "LS2'? O:“A1” ?A: "A2' ?B: "FWJ“？G ” ZJ "？P: ? R:P+ Abs(P-Q:A2+ RHH:H<M=>MH:H- MRS:B2+ RHN:N-O- C:O >N=>O> N:H=0=>X 10-9 一 H:HH X:90S2+ (RHU - K:G-QK> G:N=0=» 10- 9一N: 90C2 + (RNH -

23、 D:P+QK+QDP:Prog" AB' : (H2 -H2) + 24+ R+ sin(Abs(P) - (H A (4) - NA (4) + 2688+ RA (3) + sin(Abs(P)+(HA (6) - NA (6) + 506880+ RA (5) + sin(Abs(P) - (H A (8)-NA (8) -154828800 RA (7) +sin(Abs(P - E:(R+A)tan(Abs(P) +2)+B -JT:N-H:Prog" AB' : (R+A)tan(Abs(P) +2)+B+>F: X-H: Z -S+RO

24、:Prog” HX :U-(A-T)cos(G)+QBsin(G-U:V-(A-T)sin(G)-QBcos(0V:Fix 3: " JDKM= :Locate 6,4,O: " JDX= :Locate6,4,U: " JDY= :Locate 6,4,V: " FWJ= :G ?DM樣" ZJ=" P?DM樣" LS1=: Locate 6,4,H: " LS2= : Locate 6,4,N: " T1=" ： Locate 6,4,T: " T2=" ： Locat

25、e 6,4,FR= :RJ說明：運行后“ QKM ?輸入起點樁號；“ XG ?”YG ?輸入起點X、Y坐標(biāo)；“LS1” ？ “LS2" ?輸入前段緩和曲線長度，后段緩和曲線長度；“A1” ？ "A2' ?輸入前段緩和曲線參數(shù)，后段緩和曲線參數(shù)；" FWJ”？輸 入起點切線方位角；” ZJ “？輸入轉(zhuǎn)角（終點方位角減起點方位角之差，左轉(zhuǎn) 為負(fù)，右轉(zhuǎn)為正）；計算結(jié)果要素同 QX子程序中要素字母。-1程序名：X1 （線路1坐標(biāo)計算要素程序）If Z< 241.086:Then -336.478 , 2600441.639, 514392.519, 280。

26、20' 28.78"，203。08' 28.32"，106.667, 81.667, -270.668 , -283.056 ,60 一Mat F:Prog " F” : IfEndIfZ< 273.006:Then 171.67449' 17.2"，68。09' 26.91 ” F:Prog" F" ： Return: IfEn dIf 514799.865, 123。43' 25.9”， 125.273 , 445 一Mat F:Prog ”,2600784.547, 514635.8

27、63, 93.889, 125, 674.184, 771,Z< 466.227:Then 341.96 , 15。 58' 49.5"，0 , 138.211 , :Return: IfEnd58。180 fMat2600664.76,68.954 ,-2程序名：X2 (線路2坐標(biāo)計算要素程序)僅供學(xué)習(xí)與交流，如有侵權(quán)請聯(lián)系網(wǎng)站刪除謝謝9說明：1、交點法：If Z 0計算交點段終點樁號：Then交點樁號，交點X坐 標(biāo)，交點Y坐標(biāo)，起點至交點方位角，交點轉(zhuǎn)角，交點前段緩和曲線長度，交精品資料點后段緩和曲線長度，交點前段切線長度，交點后段切線長度，圓半徑 一Mat F:

28、Prog " F" ： Return: IfEnd（轉(zhuǎn)角則為交點段終點方位角減起點方位角，分正負(fù)，左偏為負(fù)，右偏為正）如整條線無曲線，全為直線段，則交點為 終點樁號，XY為終點坐標(biāo)，方位角為起點方位角，轉(zhuǎn)角和圓半徑為1,其它全為0。-1程序名：S1（線路1高程豎曲線要素子程序）If Z3=1:Then Goto 1: Else Prog"S2' ： Return: IfEnd:LbI 1:If Z <241.09:Then95.356-C:40.742fG:200gR:-.03155一I:.00812 -N:IfEnd:-2程序名：S2（線路2高程豎

29、曲線要素子程序）If Z <133.601:Then 106 -C:45.12 fG:152AR:-.0064一I:.0298 一N:Return:IfEnd:If Z <466.23:Then 298 -C:50.841 fG:194A R:.0298 - I: -.01968 fN: Return:IfEnd:程序字母說明：C-豎曲線交點樁號；G-交點樁號高程（未豎曲線調(diào)整的）；R- 豎曲線半徑；I 豎曲線前縱坡；N 豎曲線后縱坡-1程序名：I1 （線路1高程超高參數(shù)子程序）0一K:1 一W: If Z4=1:Then Goto 1:Else Prog “I2 ”：Return

30、: IfEnd:LbI1:If D<0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z <159.419:Then 0 -S:.06 -M: Return:IfEnd:If Z <187.987:Then 28.568 fS:159.419 fC:.06 fM:.02 N:Return:IfEnd:If Z <241.086:Then 0 -S:.02 一M: Return :IfEnd:LbI R:If Z <159.419:Then 0 -S: - .06 一M: Return:IfEnd:If Z <187.987:T

31、hen 28.568 fS:159.419 -C:-.06-M:-.02-N:Return:IfEnd:If Z <241.086:Then 0 -S:. -02-M: Return:IfEnd-2程序名：I2 （線路2高程超高參數(shù)子程序）If D<0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z <77.872:Then 0 -S:.02 一M:Return:IfEnd:If Z 093.889:Then 16.017 一S:77.872 一C:.02 一M:.05一N:Return:IfEnd:If Z< 198.567:Then

32、 0 -S: .05 一M:Return:IfEnd: If Z <273.006:Then 74.439fS:198.567fC:.05fM:.02-N:Return:IfEnd:If Z<335:Then0S: .02 一M:Return:IfEnd: Z <346.235:Then 11.235fS:335fC:.02 一M:.015一N:Return:IfEnd:Lbl R:If Z < 77.872:Then 0 -S: - .02 一M:Return:IfEnd:If Z <93.889:Then 16.017 一S:77.872 一C: - .02

33、一M:-.05 一N:Return:IfEnd:If Z < 198.567:Then 0 -S: - .05一M: Return:IfEnd: IfZ<273.006:Then 74.439 fS:198.567 -C: -.05-M:-.02-N: Return:IfEnd:IfZ< 335:Then 0 -S: -.02 -M: Return:IfEnd: Z <346.235:Then11.235fS:335-C:- .02 一M:-.015一N: Return:IfEnd:子程序中字母表示說明：K中央分隔帶半幅寬（中樁標(biāo)高至中樁中線距離，無分隔帶則為0） ;

34、M超高方式參數(shù)（W=1為一般直線方式超高，W二功三次拋物線方式超高）；S超高 漸變段距離（不是漸變段則輸入 0） ; C-超高漸變段起點樁號（不是漸變段， 無需輸入）；M-超高段起點橫坡，N-超高漸變段終點橫坡（不是漸變段，無需 輸入）。-1程序名：G1（線品& 1路基標(biāo)準(zhǔn)半幅寬度參數(shù)子程序）If Z4=1:Then Goto 1:Else Prog"G2' ：Return: IfEndLbI 1:If D<0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z <241.086:Then Z fC:3.5 一A:Return

35、:IfEnd:LbI R: Z <40.857:Then 0 -C:5-A:5.25 一B:40.857 一S:Return:IfEnd:IfZ< 159.419:Then Z fC:5.25 一 A:Return:IfEnd: Z< 187.987:Then<241.086:Then<346.235:Then<466.227:Then159.419fC:5.25 -A:5.5 fB:28.568 一S:Return:IfEnd:If ZZ一C:5.5 一A:Return:IfEnd-2程序名：G2（線品& 2路基標(biāo)準(zhǔn)半幅寬度參數(shù)子程序）If D&l

36、t;0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z <466.227:Then Z fC:3.5 一A:Return:IfEnd:LbI R: Z <321.611:Then Z 一C:5一A:Return:IfEnd:If Z 321.611 -C:5-A:5.75 一B:24.624 一S:Return:IfEnd:If ZZ一 C:5.75 一 A:Return:IfEnd子程序中字母表示說明:C寬度漸變段起點樁號（不是漸變段 C=2Z A A寬度漸變段起點寬度；B 寬 度漸變段終點寬度（不是漸變段，無需輸入）；S-寬度漸變段距離（不是漸

37、變段，無需輸入）。-1程序名：SD1（隧道參數(shù)子程序）If Z4=1:Then 5.1R:1.8 -A:1.4 -V:1.8 -B:0fQ: 109。01 30” 一 P:Return:IfEnd:If Z4=2:Then 8.75-R:-1.1 -A:4.77 -V:1.47 -B: - .25-Q: 51。28' 57.1 " 一P: Return:IfEnd:子程序中字母表示說明：R隧道上拱半徑；A-隧道上拱圓心至設(shè)計面高度；V隧道中腰部半徑；B- 中腰圓心至設(shè)計面高度；Q-設(shè)計隧道中線與設(shè)計路基中線偏移值，左為負(fù)數(shù)， 右為正數(shù)；P-上部拱跨隧道半幅角度；-1程序名：W

38、1線品& 1路基填挖邊坡參數(shù)子程序）If Z4=1:Then Goto 1: Else Prog"W2 : Return:IfEnd:LbI 1: 10 一E:10一F:2.6 一M:2一N:2-S:1.5 1:1.75 一J:8 一W:2V:IfD<0:Then Goto L:Else Goto R:IfEnd:LbI L:1 一A:1.25 一B:1.25 一C:Return:LbI R:If Z <110:Then 1.25 -A:1.25 -B:1.5 -C: Return:Else Goto L: IfEnd-2程序名：W2線品& 2路基填挖邊坡

39、參數(shù)子程序）10一E:10-F:2.6 一M:2一N:2-S:1.5 T:1.75 一J:8 一W:2V:If D<0:Then Goto L:Else Goto R:IfEnd:LbI L:0.75 -A:0.75 -B:0.75 一C:Return:LbI R:If Z <445:Then Goto L:Else If Z <506.9:Then 0.25 X（Z- 445）+21.2fQ:.75+Q-A:A 一 B:A 一 C:Return:IfEnd子程序中字母表示說明：A-挖方第一階邊坡邊率；B-挖方第二階邊坡邊率；C-挖方第三階邊坡邊率； E挖方第一階高度；F挖方

40、第二階高度；M-挖方路基碎落臺及水溝寬度；N 挖方第二臺階平臺寬度；S挖方第三臺階平臺寬度；I 填方第一階邊坡邊 率；J填方第二階邊坡邊率；W 填方第一階高度；V-填方第二臺階平臺寬僅供學(xué)習(xí)與交流，如有侵權(quán)請聯(lián)系網(wǎng)站刪除 謝謝11精品資料度。（注：本程序只做出挖方三個臺階，填方二個臺階，如需增加，先需在程序5BP程序相應(yīng)增加。再如一標(biāo)段有坡率及坡高不一樣時，可以照其它參數(shù)程 序一樣，用判別語句。）三、使用說明1、規(guī)定（1）坐標(biāo)計算以交點方式計算，一般情況下一個交點計算一段線是： 直線+緩和曲線+圓曲線+緩和曲線+直線。在匝道中先根據(jù)實際線來調(diào)整，可以 單獨計算一段不完整的緩和曲線+圓曲線。也可

41、以單獨計算一段緩和曲線或一段 圓曲線，需先運行T程序整理成交點數(shù)據(jù)。無緩和曲線時，緩和長度輸 00（2）程序中：X 10-9為10的負(fù)9次方即0.000000001; 口為圓周率即3.1415926;，為根號；uX=" : X前有空格二個，為了顯示效果（3）為了區(qū)別字母O及數(shù)子0,特把字母0加粗。2、輸入與顯示說明輸入提示部分："A:XY=1, ZD=2 , GC=3 GD=4, BP=5, FM=6, ZP=7, JS=8,SD=9 ?按對應(yīng)數(shù)子鍵約半秒：1、坐標(biāo)計算放樣程序2、坐標(biāo)反算程序；3、高程計算查閱程序；4、路基半幅標(biāo)準(zhǔn)寬度查閱程序；5、路基邊坡及開挖口 放樣程

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

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

44、。Z0" ?錐坡頂邊樁號"L0:SZ+,DZ-" ?錐坡放樣中，橢圓上分段放樣距離，小樁號錐坡輸正數(shù)，大樁 號錐坡輸負(fù)數(shù)?！癈QHD?隧道超欠挖程序中襯砌厚度，默認(rèn)值為0.5m.QX子程序中和T程序結(jié)果中：” " JDKM ?輸入交點樁號；“ JDX' ?“JDV ?輸入交點X、Y坐標(biāo)；“FWJ”？輸入起點至交點方位角” ZJ “？輸入 轉(zhuǎn)角（終點方位角-起點方位角之差，左轉(zhuǎn)為負(fù)，右轉(zhuǎn)為正）；“LS1” ？“LS2' ?輸入交點前段緩和曲線長度，交點后段緩和曲線長度；“ T1” ？ “T2” ？輸入交點前段切線長度，交點后段切線長度；"R' ?圓半徑輸出部分X=*正算時，計算得出的所求點的 X坐標(biāo)Y=*正算時，計算得出的所求點的 Y坐標(biāo)FWJ=*正算時，計算得出的所求點的至置儀點方位角S=* 正算時，計算得出的所求點的至