FX5800計(jì)算器公路測量常用程序集2.2 版

 一、程序功能
    主要功能：采用線元法與交點(diǎn)法相結(jié)合計(jì)算多條線路坐標(biāo)正反算，可算任意復(fù)雜線型及立交匝道，包括C型，S型、卵型、回頭曲線等；極坐標(biāo)放樣，全線路基邊坡開挖口及坡腳放樣計(jì)算、路基任意點(diǎn)設(shè)計(jì)高程、橫坡、設(shè)計(jì)半幅寬度.隧道欠超挖放樣計(jì)算。

新版本優(yōu)化：1、調(diào)整一次顯示結(jié)果；2、交點(diǎn)法中考慮了不對稱緩和曲線；3、修改原版本部分地方筆誤.(紅色為修改處)

二、源程序
1.總主程序（1、坐標(biāo)計(jì)算放樣程序2、坐標(biāo)反算程序；3、高程計(jì)算查閱程序；4、路基半幅標(biāo)準(zhǔn)寬度查閱程序；5、路基邊坡及開挖口放樣程序；6、路基標(biāo)準(zhǔn)距離放樣；7、橋梁錐坡計(jì)算放樣程序；8、極坐標(biāo)計(jì)算程序；9、隧道超欠挖計(jì)算程序）運(yùn)行后輸入1~9數(shù)子則選擇1至9的程序，返回時(shí)，在樁號輸入-1,返回選擇選擇計(jì)算類型。輸入-2,返回選擇線路。坐標(biāo)計(jì)算中輸入-3,則顯示本段曲線要素。

程序名：0ZCX
LbI 0: 17→DimZ：Norm 2:1→A：＂A:XY=1，ZD=2 ，GC=3，GD=4， BP=5，FM=6，ZP=7，JS=8，SD=9＂?A:

A=1=>Goto 1:A=2=>Goto 2:A=3=>Goto 3:A=4=>Goto 4:

A=5=>Goto 5:A=6=>Goto 6:A=7=>Goto 7:A=8=>Goto 8:

A=9=>Goto 9

LbI 1:Prog ＂DX＂:LbI A:Prog＂QX＂:90→B: ＂PJ1＂?B:B→C: ＂PJ2＂?C:B→Z[1]:C→Z[8]:LbI B:1→F: ＂KM＂?Z:Z= -1=>Goto 0:Z=-2=>Goto A:Z=-3=>Goto X:Prog＂KM＂:?D:Porg＂THB＂:O→L: ＂L0＂?L:Z[2]+Z[1]-Z[8] →E:X+L cos(E) →X:Y+Lsin(E) →Y:Prog＂XY＂:Prog＂JS＂:Goto B

LbI 2:2→F:90→Z[1]:Prog＂QX＂:LbI C: ＂KM＂?Z:

Z=-1=>Goto 0:Z=-2=>Goto 2:Z=-3=>Goto X:Prog＂KM＂: ＂XO＂?X: ＂Y0＂?Y:Prog＂THB＂:Porg＂ZD＂:Goto C:

LbI 3:Prog＂QX＂:0→B: ＂H-B＂?B:B→Z[9]:LbI D: ＂KM＂?Z:

Z=-1=>Goto 0:Z=-2=>Goto 3:?D:Porg＂H＂:Fix 3: ＂   H=＂:Lcoate 6,4,H-Z[9] ：

＂   I=＂:Locate 6,4,I： Goto D

LbI 4:Prog＂QX＂:LbI E: ＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto 4:?D:Prog＂GD＂:Fix 3: ＂ SJGD=＂:Locate7,4,L： Goto E

LbI 5:Prog＂QX＂:0.5→B:＂TH-GD＂?B:B→Z[17]:LbI F:2→F:90→Z[1]:＂KM＂?Z:Z=-1 =>Goto 0:Z=-2 =>Goto 5:Prog＂KM＂: ＂X0＂?X: ＂Y0＂?Y:0→M:”M0”?M: M→Z[4]:Prog＂3FBX＂

Fix 2: P→D ：Abs（D）-S→O: ＂  L0=＂:Locate 6,4,O：

Prog＂ZD＂: Z[4]→T:＂  TW=＂:Lcoate 6,4,T◢ Goto F:

LbI 6:Prog＂DX＂:LbI G:Prog＂QX＂:LbI H:1→F:90→Z[1]: ＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto G:Prog＂KM＂:?D:Prog＂THB＂:Prog＂XY＂:Prog＂JS＂:Prog＂H＂:0→M: ＂M0＂?M:Fix 2:H-M→T: ＂  TW=＂:Locate 6,4,T◢ Goto H:

LbI 7:Prog＂DX＂:LbI I:Prog＂QX＂:0→D: ＂LD:Z-,Y+＂? D:Abs(D) →R: ＂LR＂?R: ＂Z0＂?Z: D→Z[6]:R→Z[7]:Z→Z[8]:LbI J:0→Y: ＂L0:SZ+,DZ-＂?Y:Y=-1=>Goto 0:Y=-2=>Goto I:Prog＂ZP＂:Goto J:

LbI 8:Prog＂DX＂:LbI K:?X:X=-1=>Goto 0:X=-2=>

Goto 8:?Y:Prog＂JS＂:Goto K:

LbI 9:Porg＂DX＂:LbI L:Prog”QX”:LbI M:2→F:90→Z[1]: ＂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[8]:A→Z[15]:Prog＂5SD＂： Goto M:

LbI X:Mat F◢ Goto 0

2、次程序:路基開挖邊線及填方坡腳線放樣程序（輸入填方放寬值、大概樁號及測量坐標(biāo)、地面標(biāo)高計(jì)算出偏移距離、樁號、距中距離、填挖高度）

程序名：3FBX

Prog”THB”:D→P:Prog”GD”:If D<0:Then 0.75-L→D:Goto H:Else L-0.75→D:Goto H:IfEnd

LbI H:Prog“H”:H-0.03-Z[4] →Z[4]: Prog “W1”:If Z[4]<0:Then –Z[4] →G:Goto W:Else Z[4] →G:Goto T:

LbI W:Z[8]+Z[9]→A: If G>A:Then Goto 1:Else If G>Z[8]:Then Goto 2:Else Goto 3:IfEnd:

LbI 1:L+Z[10]+Z[11]+Z[12]+(G-A)×Z[7]+Z[9]×Z[6]+Z[8]×Z[5] →S:Goto Z:

LbI 2:L+Z[10]+Z[11]+(G-Z[8])×Z[6]+Z[8]×Z[5] →S:Goto Z:

LbI 3:L+Z[10]+G×Z[5] →S:Goto Z:

LbI T:L+Z[17]→T:If G>Z[15]:Then (T+Z[16]+(G-Z[15])×Z[14]+Z[15]×Z[13])→S:Goto Z:Else (T+G×Z[13])→S:Goto Z:

LbI Z

3.次程序3.隧道超欠挖值計(jì)算放樣程序（輸入隧道線路，大概樁號、輸入襯砌厚度、測量三維坐標(biāo)，計(jì)算準(zhǔn)確樁號及位置、計(jì)算欠超挖值）

程序名：5SD

Prog”KM”:Prog“THB”: D→Z[13]:0→D:Prog“H”:Cos(Z[10]) ×Z[4] →E: H+Z[5] →Z[5]: H+Z[7] →Z[7]: E+Z[5] →Z[10]:If Z[8]>Z[10]:Then Goto R:Else Goto S:IfEnd:
LbI R: √((Z[13]-Z[9]) ²+(Z[8]-Z[5]) ² )- Z[4]-Z[15] →L:Goto L:LbI S: Z[4]-Z[6] →S: √(S ²-(Z[7]-Z[5]) ² ) ×S÷Abs(S)→T:Abs(Z[13]-Z[9])-T→T:√(T ²+(Z[8]-Z[7]) ² )- Z[6]-Z[15] →L:Goto L:LbI L: Fix 2:”  L0=”: Locate 6,4,L：

Prog”ZD”:“    H0=”: Locate 6,4,Z[8]-H◢

4：極坐放樣計(jì)算程序(計(jì)算放樣點(diǎn)至置儀點(diǎn)方位角及距離)

程序名：JS

X：Y：Z[11]→K：Z[12]→L：Pol(X-K, Y-L):IF J<0:Then J+360→J:IFEnd:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J: Fix 4:” FWJ=”: Locate 6,4,J：

Fix 3:”   S=”:Locate 6,4,I◢

5．路基寬度子程序6：路基標(biāo)準(zhǔn)半幅寬度計(jì)算程序(對于設(shè)計(jì)有加寬漸變的有用，如路基寬度無變化，則把此程序直接輸入半幅寬度值至L)

程序名： GD

1→S: Prog “G1”:Z-C→E:(B-A)*E/S+A→L:

6．坐標(biāo)計(jì)算次程序（ＴＨＢ）

程序名：THB

If Q>1:Then Goto J: Else 1÷P→Ｃ：(P-R)÷(2HPR) →Ｓ：180÷Π→E：If F=1:Then Abs(Ｚ－0) →W：Prog "Ａ"：Ｇoto 2:Else Ｘ→I：Ｙ→J：Prog ＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto 2: IfEnd:

LbI J: If F=1:Then  Prog "Z"：Ｇoto 1:Else Prog ＂ZX＂：Ｇoto 2: IfEnd:

LbI 1:I+D×COS(Z[2]+Z[1]) →X: J+D×Sin(Z[2]+Z[1]) →Y: LbI 2

 7. 線元法正算子程序(Ａ)

程序名：A
0.1184634425→A： 0.2393143352→B：0.2844444444→N：0.046910077→K： 0.2307653449→L：0.5→M： 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Ｓ))) →Y：

G+QEW(C+WＳ)→Ｚ［２］：X+Ｄcos（Ｚ［２］+ Z[1]）→Ｘ： Y+Ｄsin（Ｚ［２］+ Z[1]）→Ｙ
8. 線元法反算子程序(Ｂ)

程序名：B
G-90→Ｔ： Abs((Y-V)cos(T)-(X-U)sin(T)) →Ｗ： 0→Ｄ：Lbl 0：Prog "Ａ"： T+QEW(C+WＳ) →Ｌ： (J-Y)cos(L)-(I-X)sin(L)→Ｄ：IF Abs(Ｄ)<0.01:Then Goto 1：Else W+Ｄ→W:Goto 0: IfEnd:←┘
Lbl 1:0→D：Prog "Ａ"：(J-Y)÷sin(Ｚ［２］+90) →D

9. 交點(diǎn)法正算子程序(Z)

程序名：Z

H²÷R÷24-H^∧(4) ÷2688÷R^∧(3)→A:H÷2-H^∧(3) ÷240÷R²→B:（（H²-N²）÷24÷R）÷Sin(Abs(P))-((H^∧(4)-N^∧(4))/2688/R^∧(3)) ÷Sin(Abs(P))→E:(R+A)tan(Abs(P) ÷2)+B-E→T:P÷Abs(P) →W:0→M:H→C:

If Z≤O-T:Then Z-O→S:G→Z[2]:Goto 2: IfEnd:

If Z≤O-T+H:Then Z-O+T→S:Prog “HX”:G+WK→Z[2]:Goto 4:IfEnd:

If Z≤O-T+ΠR×Abs(P) ÷180+H÷2-N÷2: Then 180(Z-O+T-0.5H) ÷R÷Π→S : A+R(1-Cos(S))→B H÷2-H^∧(3) ÷240÷R²+Rsin(S)→A:R→M:G+WS→Z[2]:Goto 4: IfEnd:

O-T+ΠR×Abs(P)÷180+H÷2+N÷2-Z→S:(R+N²÷R÷24-N^∧(4)÷2688÷R^∧(3))tan(Abs(P) ÷2)+N÷2-N^∧(3) ÷240÷R²+E→T :N→H:Prog “HX”:G+P→S:S-WK→Z[2]:U+(T-A)Cos(S)-WBSin(S)→I:V+(T-A)Sin(S)+WBcos(S)→J:Goto 3:

LbI 4:U+(A-T)cos(G)-WBsin(G)→I:V+(A-T)Sin(G)+WBcos(G) →J: Goto 3:

LbI 2:U+Scos(Z[2])→I:V+Ssin(Z[2]) →J: LbI 3:C→H

10. 交點(diǎn)法緩和段轉(zhuǎn)化子程序(HX)

程序名：HX

S-S^∧(5) ÷40÷R²÷H²+S^∧(9) ÷3456÷R^∧(4) ÷H^∧(4)→A:S^∧(3) ÷6÷R÷H-S^∧(7) ÷336÷R^∧(3) ÷H^∧(3)+S^∧(11) ÷42240÷R^∧(5) ÷H^∧(5)→B:90S²÷Π÷R÷H→K:RH÷S→M

11. 交點(diǎn)法反算子程序(ZX)

程序名：ZX

Z:0→D:LbI 0:Prog “Z”:Pol(X-I,Y-J):J-Z[2] →J:Isin(J) →S:Icos(J) →I:If Abs(I)<0.1:Then Z+I→Z:S→D:Goto 2:Else Goto 1: LbI 1:If M=0:Then Z+I→Z:Goto 0:Eles Pol(M-WS,I):(JMΠ)/180→I:Z+I→Z:Goto 0:IfEnd

LbI 2

12．高程計(jì)算子程序（H）

程序名：H

Prog “S1”:C-T→F:Z-F→S:C+T→E:G-TI→Q:If T=O:Then Q+SI→H:Goto 0:Else If Z<F:Then Q+SI→H:Goto 0:Else If Z≤E:Then Q+SI+S²÷2÷R→H:Goto 0:

LbI 0:H:If D=0:Then Goto I:Else Prog “I”:H+V→H:Goto I:LbI I

 13.高程超高計(jì)算程序（I）

程序名：I

If Z[3]=1:Then Prog “I1”:Goto 1:Else Prog “I2”:Goto1: IfEnd:

LbI 1: If W=1:Then Goto Z:Else Goto X: IfEnd

LbI Z:If S=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷S+M)→V:Goto 2:IfEnd:

LbI X:If S=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×(((3((Z-C)÷S)²-2((Z-C)÷S)^∧(3))×(N-M))+M)→V:Goto 2:IfEnd:

LbI 2:Abs(D)→E:V÷E→I:I(E-K)→V

14．導(dǎo)線點(diǎn)子程序（DX）

程序名：DX

Z[11] →K:Z[12] →L:“XZ”?K:”YZ”?L:K→Z[11]:L→Z[12]

15．線路選擇子程序(線路選擇輸0時(shí)。則輸曲線參數(shù)（QX）

程序名：QX

1→A:”QX:X1=1,X2=2”?A:A→Z[3]:

If A=0:Then Goto 1:Else Goto 2: IfEnd:

LbI 1:”JDO”?O:”XO”?U:”YO”?V:”FW”?G:”LS”?H:?P:?R:”J=2,3;X=(0,1,-1)”?Q:If Q=2:Then H→N:Goto 2:Else If Q=3:Then “LS”?N:LbI 2

16．線路中線元段判別子程序（KM）

程序名：KM

If Z[3]=0:Then Goto 0:Else If Z[3]=1:Then  Prog “X1”:Goto 0:Else Prog “X2”:Goto 0: IfEnd: LbI 0

17．坐標(biāo)計(jì)算參數(shù)轉(zhuǎn)化子程序（F）

程序名：F

Mat F[1,1]→O: Mat F[1,2]→U: Mat F[1,3]→V: Mat F[1,4]→G: Mat F[1,5]→H: Mat F[1,6]→P: Mat F[1,7]→R: Mat F[1,8]→Q：Q=3=>Mat F[1,9]→N

18.橋梁錐坡放樣子程序（ZP）

程序名：ZP

√(Z[6]²（1-Y²/Z[7]²）) →X：Z[8] →Z:Prog”GD”:If D<0:Then L+X→D:Else –L-X→D:IfEnd:Z[8]+Y→Z:D:1→F:90→Z[1]:Prog”KM”:Prog”THB”:Prog”XY”:Prog”JS”

19．顯示子程序（XY）

程序名：XY

Ｆix 3:＂   Ｘ=＂：Locate 6,4,Ｘ：

＂   Ｙ＝＂：Locate 6,4,Ｙ：

程序名：ZD

Fix 3:＂?。耍停剑ⅲ?span lang=EN-US>Locate 6,4,Ｚ：

＂　?。模剑ⅲ?span lang=EN-US>Locate 6,4,Ｄ：

20．?dāng)?shù)據(jù)子程序(附后示例)

①-1程序名：X1（線路1坐標(biāo)計(jì)算要素程序）

If  Z≤26615.555:Then [[25900,11587.421,1847.983, 101^。09’23.1”,715.555,1×10⁴⁵, 1×10⁴⁵, 0]]→Mat F:Goto 0: IfEnd:

If Z≤26915.555:Then [[26615.555,11448.97,2550.016,101^。09’23.1”,300,1×10⁴⁵,1800,1]]→Mat F:Goto 0:IfEnd:

LbI 0: Prog”F”

①-2程序名：X2（線路2坐標(biāo)計(jì)算要素程序）

If  Z≤122269.856:Then [[121656.952, 2603848.019, 508351.147, 98°53′22.6″,660, 41°47′44.1″, 1415.097，3，300]]→Mat F:Goto 0: IfEnd:

If Z≤125115.9:Then [[123984.982, 2601974.464, 509885.441, 140°41′06.8″,700, －39°31′43.7″,2800，3，400]]→Mat F:Goto 0:IfEnd:

LbI 0: Prog”F”

說明：1、交點(diǎn)法：If Z≤交點(diǎn)HZ點(diǎn)樁號：Then[[交點(diǎn)樁號，交點(diǎn)X坐標(biāo)，交點(diǎn)Y坐標(biāo)，前交點(diǎn)至止交點(diǎn)方位角，交點(diǎn)前段緩和曲線長度，交點(diǎn)總偏角，圓半徑，3，交點(diǎn)后段緩和曲線長度，]] →Mat F:Goto 0: IfEnd:（如對稱緩和曲線，圓半徑后輸，2后不用輸后段緩和長，總偏角分正負(fù)，左偏為負(fù)，右偏為正）

2、線元法：If Z≤本段線元終點(diǎn)樁號:Then [[本段線元起點(diǎn)樁號,線元起點(diǎn)X坐標(biāo), 線元起點(diǎn)Y坐標(biāo),線元起點(diǎn)切線方位角,線元長度，線元起點(diǎn)半徑,線元終點(diǎn)半徑, 線元判別]]→Mat F:Goto 0:IfEnd:

(線元判別及線元半徑見后說明)
②-1程序名：S1(線路1高程豎曲線要素子程序)

If Z[3]=1:Then Goto 1: Else Prog “S2”:Goto 0: IfEnd:

LbI 1:If Z≤26157.8:Then -200000→R:157.8→T:26000→C:37.1→G:0.01222→I:Goto 0:IfEnd:

If Z≤27421.915:Then 300000→R:171.915→T:27250→C:32.65→G:-0.00356→I:Goto 0:IfEnd:

If Z≤27889.029:Then 1000000→R:134.029→T:27755→C:36.64→G:0.0079→I:Goto 0:IfEnd:

LbI 0

②-2程序名：S2(線路2高程豎曲線要素子程序)

If Z≤183.007:Then 1365→R:20.475→T:162.532→C:46.1→G:0.003→I:Goto 0:IfEnd:

If Z≤321.264:Then -1200→R:38.732→T:282.532→C:50.175→G:0.033→I:Goto 0:IfEnd:

LbI 0

程序字母說明：C-豎曲線交點(diǎn)樁號；G-交點(diǎn)樁號高程（未豎曲線調(diào)整的）；T-豎曲線切線長(標(biāo)段結(jié)尾或開頭沒有豎曲線的輸0)；R-豎曲線半徑（分正負(fù)：凹曲線為正，凸曲線為負(fù)）；I－豎曲線前縱坡

③-1程序名：I1（線路1高程超高參數(shù)子程序）

1.5→K:2→W:If D<0:Then Goto L:Else Goto R:IfEnd:

LbI L:If Z≤26615.555:Then 0→S:-0.02→M:Goto 0:IfEnd:

If Z≤26735.555:Then 120→S:26615.555→C:-0.02→M:0.02→N:Goto 0:IfEnd:

If Z≤26795.555:Then 60→S:26735.555→C:0.02→M:0.04→N:Goto 0:IfEnd

LbI R: If Z≤26735.555:Then 0→S:-0.02→M: Goto 0:IfEnd

If Z≤26795.555:Then 60→S:26735.555→C:-0.02→M:-0.04→N:Goto 0:IfEnd

If Z≤27436.951:Then 0→S:-0.04→M: Goto 0:IfEnd

LbI 0

③-2程序名：I2（線路2高程超高參數(shù)子程序）

0.5→K:1→W:If D<0:Then Goto L:Else Goto R:IfEnd:

LbI L:If Z≤100:Then 0→S:-0.015→M:Goto 0:IfEnd:

If Z≤110:Then 10→S:100→C:-0.015→M:-0.02→N:Goto 0:IfEnd:If Z≤343.665:Then 0→S: -0.02→M: Goto 0:IfEnd

LbI R: If Z≤100:Then 0→S:-0.015→M: Goto 0:IfEnd

If Z≤110:Then 10→S:100→C:-0.015→M:-0.02→N:Goto 0:IfEndIf Z≤375.665:Then 0→S:-0.02→M: Goto 0:IfEnd

LbI 0

字程序中字母表示說明：

K－中央分隔帶半幅寬（中樁標(biāo)高至中樁中線距離，無分隔帶則為0）；W－超高方式參數(shù)（W=1為一般直線方式超高，W=2為三次拋物線方式超高）;S－超高漸變段距離（不是漸變段則輸入0）；C-超高漸變段起點(diǎn)樁號（不是漸變段，無需輸入）；M－超高段起點(diǎn)橫坡，N-超高漸變段終點(diǎn)橫坡（不是漸變段，無需輸入）。

④-1程序名：G1(線路1路基標(biāo)準(zhǔn)半幅寬度參數(shù)子程序)

If Z[3]=1:Then Goto 1:Else Prog “G2”:Goto 0: IfEnd

LbI 1:If D<0:Then Goto L:Else Goto R:IfEnd:

LbI L:If Z≤28110.727:Then Z→C:17.25→A:Goto 0:IfEnd:

If Z≤28200.727:Then 28110.727→C:17.25→A:21.25→B:90→S:Goto 0:IfEnd

LbI R: Z≤27927.478:Then Z→C:17.25→A: Goto 0:IfEnd

If Z≤28172:Then 27927.478→C:17.25→A:27.031→B:244.522→S:Goto 0:IfEnd

LbI 0

④-2程序名：G2(線路2路基標(biāo)準(zhǔn)半幅寬度參數(shù)子程序)

If D<0:Then Goto L:Else Goto R:IfEnd:

LbI L:If Z≤69.998:Then Z→C:28.25→A:Goto 0:IfEnd:

If Z≤82.402:Then 69.998→C:28.25→A:25.545→B:12.404→S:Goto 0:IfEnd

LbI R: Z≤69.998:Then Z→C:17.45→A: Goto 0:IfEnd

If Z≤80.367:Then 69.998→C:17.45→A:16.787→B:10.369→S:Goto 0:IfEnd:LbI 0

字程序中字母表示說明：

C－寬度漸變段起點(diǎn)樁號（不是漸變段C=Z）；A－寬度漸變段起點(diǎn)寬度; B－寬度漸變段終點(diǎn)寬度（不是漸變段，無需輸入）；S-寬度漸變段距離（不是漸變段，無需輸入）。

⑤-1程序名：SD1(線路1隧道參數(shù)子程序)

If Z[3]=1:Then Goto 1: Else Prog “SD2”:Goto 0:IfEnd:

LbI 1:8.75→Z[4]:-1.1→Z[5]:4.77→Z[6]:1.47→Z[7]:-0.25→Z[9]: 51^。28’57.1”→Z[10]:

LbI 0

⑤-2程序名：SD2(線路2隧道參數(shù)子程序)

5.43→Z[4]:1.634→Z[5]:7.93→Z[6]:1.634→Z[7]: 0→Z[9]: 90→Z[10]

字程序中字母表示說明：

Z[4]－隧道上拱半徑；Z[5]－隧道上拱圓心至設(shè)計(jì)面高度；Z[6]－隧道中腰部半徑；Z[7]－中腰圓心至設(shè)計(jì)面高度；Z[9]－設(shè)計(jì)隧道中線與設(shè)計(jì)路基中線偏移值，左為負(fù)數(shù)，右為正數(shù)；Z[10]－上部拱跨隧道半幅角度；

⑥-1程序名：W1(線路1路基填挖邊坡參數(shù)子程序)

If Z[3]=1:Then Goto 1: Else Prog “W2”:Goto 0:IfEnd:

LbI 1:0.75→Z[5]:1→Z[6]:1.25→Z[7]:10→Z[8]:10→Z[9]:2.6→Z[10]:2→Z[11]:2→Z[12]:1.5→Z[13]:1.75→Z[14]:8→Z[15]:2→Z[16]：LbI 0

⑥-2程序名：W2(線路2路基填挖邊坡參數(shù)子程序)

1→Z[5]:1→Z[6]:1.25→Z[7]:10→Z[8]:10→Z[9]:2.6→Z[10]:1.5→Z[11]:1.5→Z[12]:1.5→Z[13]:1.75→Z[14]:8→Z[15]:2→Z[16]

字程序中字母表示說明：

Z[5]－挖方第一階邊坡邊率；Z[6]－挖方第二階邊坡邊率；Z[7]－挖方第三階邊坡邊率；Z[8]－挖方第一階高度；Z[9]－挖方第二階高度；Z[10]－挖方路基碎落臺及水溝寬度；Z[11]－挖方第二臺階平臺寬度；Z[12]－挖方第三臺階平臺寬度；

Z[13]－填方第一階邊坡邊率；Z[14]－填方第二階邊坡邊率; Z[15]－填方第一階高度；Z[16]-填方第二臺階平臺寬度。（注：本程序只做出挖方三個(gè)臺階，填方二個(gè)臺階，如需增加，先需在程序THB和4FBZ程序中增加變量。再如一標(biāo)段有坡率及坡高不一樣時(shí)，可以照其它參數(shù)程序一樣，用判別語句。）

三、使用說明
1、規(guī)定
       (1) “KM”為所求點(diǎn)樁號，反算時(shí)為輸入大概樁號 

       (2) 當(dāng)所求點(diǎn)位于中線時(shí)，Ｄ=0；當(dāng)位于中線左鍘時(shí)，Ｄ取負(fù)值；當(dāng)位于中線中線右側(cè)時(shí)，Ｄ取正值。
       (3) 當(dāng)線元為直線時(shí)，其起點(diǎn)、止點(diǎn)的曲率半徑為無窮大，以10的45次代替。（在用交點(diǎn)法時(shí)，P子母代表偏角）
       (4) 當(dāng)線元為圓曲線時(shí)，無論其起點(diǎn)、止點(diǎn)與什么線元相接，其曲率半徑均等于圓弧的半徑。（交點(diǎn)法為圓半徑）
       (5) 當(dāng)線元為完整緩和曲線時(shí)，起點(diǎn)與直線相接時(shí)，曲率半徑為無窮大，以10的45次代替；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。止點(diǎn)與直線相接時(shí)，曲率半徑為無窮大，以10的45次代替；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。
    (6) 當(dāng)線元為非完整緩和曲線時(shí)，起點(diǎn)與直線相接時(shí)，曲率半徑等于設(shè)計(jì)規(guī)定的值；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。止點(diǎn)與直線相接時(shí)，曲率半徑等于設(shè)計(jì)規(guī)定的值；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。

(7) Q值是判別用采用線元法還是交點(diǎn)法。交點(diǎn)法值為2或3，2為對稱緩和曲線段交點(diǎn)法，3為不對稱緩和段交點(diǎn)法。線元法，根據(jù)線元段取值，直線段取0，緩和段和圓曲線段，根據(jù)左偏取-1,右偏取1.
    (8) 為了區(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＂?   輸入:1、坐標(biāo)計(jì)算放樣程序2、坐標(biāo)反算程序；3、高程計(jì)算查閱程序；4、路基半幅標(biāo)準(zhǔn)寬度查閱程序；5、路基邊坡及開挖口放樣程序；6、路基標(biāo)準(zhǔn)距離放樣；7、橋梁錐坡計(jì)算放樣程序；8、極坐標(biāo)計(jì)算程序；9、隧道超欠挖計(jì)算程序

XZ？YZ？ 為置儀點(diǎn)坐標(biāo)，第一次運(yùn)行輸一次，以下運(yùn)行不需再輸入，下次再運(yùn)行此程序調(diào)上次輸值，如需改，則輸入，不需改，則按確認(rèn)鍵。

“QX:X1=1,X2=2”?選擇經(jīng)路，坐標(biāo)計(jì)算中輸入0值，變?yōu)檩斎刖€元段曲線要素。輸1為第一條線路。輸2為第二條線路，本程序暫設(shè)計(jì)實(shí)例為2條線路。

ＫＭ？正算時(shí)所求點(diǎn)的里程（反算輸入大概樁號）輸入-1，返回輸入選擇計(jì)算類型，輸入-2,返回選擇線路，輸入-3，調(diào)出本段線元參數(shù)，以矩陣顯示，再運(yùn)行從頭開始。
     Ｄ ？正算時(shí)所求點(diǎn)距中線的邊距(左側(cè)取負(fù)，值右側(cè)取正值，在中線上取零)    

     X0 ？反算時(shí)所求點(diǎn)的X坐標(biāo)（放樣程序中實(shí)測X坐標(biāo)）
     Y0 ？反算時(shí)所求點(diǎn)的Y坐標(biāo)（放樣程序中實(shí)測Y坐標(biāo)）
顯示部分：

L?  涵洞放樣程序中涵距中心樁號前后距離,前為正,后為負(fù).

M0?  邊坡放樣程序中原地面標(biāo)高輸入

H-B？計(jì)算面至路面高差（默認(rèn)路面為0）

PJ1? PJ2? 涵洞計(jì)算中第一個(gè)夾角同PJ。第二夾角為邊線至路前進(jìn)方向夾角。(同理適合在橋梁中斜交橋,平行布置中,橋臺樁基坐標(biāo)計(jì)算)默認(rèn)值均為90度.

TH-GH？邊坡放樣中填方超放寬值，默認(rèn)值為0.5m.

＂LD:Z-,Y+＂? 橋梁錐坡向左右方向邊長，左為負(fù)數(shù)，右為正數(shù)。

＂LR＂? 錐坡向路線前進(jìn)或向后退方向邊長。

 ＂Z0＂? 錐坡頂邊樁號

輸出部分
    X=***    正算時(shí)，計(jì)算得出的所求點(diǎn)的X坐標(biāo)
    Y=***    正算時(shí)，計(jì)算得出的所求點(diǎn)的Y坐標(biāo)

FWJ=***   正算時(shí)，計(jì)算得出的所求點(diǎn)的至置儀點(diǎn)方位角

S=***   正算時(shí)，計(jì)算得出的所求點(diǎn)的至置儀點(diǎn)距離

ＫＭ=***    反算時(shí)，計(jì)算得出的所求點(diǎn)的里程
      Ｄ=***    反算時(shí)，計(jì)算得出的所求點(diǎn)的邊距

H=***      所求點(diǎn)位置設(shè)計(jì)路面頂標(biāo)高

I=***      所求點(diǎn)位置設(shè)計(jì)路面橫坡（D輸0時(shí)為，本段路基縱坡）

SJLG=***    所求點(diǎn)位置路基設(shè)計(jì)半幅標(biāo)準(zhǔn)寬度

L0=***     邊樁放樣程序中實(shí)測點(diǎn)至設(shè)計(jì)邊坡點(diǎn)距離，正向內(nèi)移，負(fù)向外移。(隧道程序中為超欠挖值，正為超挖，負(fù)為欠挖)

TW=***     邊樁放樣程序中，實(shí)測放樣邊坡點(diǎn)至止樁號設(shè)計(jì)頂填挖高度值

H0=***      隧道放樣程序中測量點(diǎn)至設(shè)計(jì)面高度

四、結(jié)束語

1、本套程序?qū)嵗€路給二條，如標(biāo)段像匝道有多條線時(shí)，同理增加。

2、由于本人沒做過隧道，隧道程序只是參照本項(xiàng)目另一個(gè)標(biāo)的圖紙所做，如有不同，可以調(diào)整參數(shù)。原理應(yīng)是一樣的。