FX5800計(jì)算器測(cè)量程序集2.0 版

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

新版本特點(diǎn)：1、優(yōu)化原所有主程序，所有參變量（如導(dǎo)線點(diǎn)置儀點(diǎn)坐標(biāo)、正反算選擇、偏角、線路選擇等），全部在程序頭次顯示一次，以后運(yùn)行不需輸入。運(yùn)行中也可以返回再次選擇線路、可以直接以矩陣形式調(diào)出線路參數(shù)。

2、坐標(biāo)計(jì)算考慮了線元法與交點(diǎn)法相結(jié)合，即是一條線路也可以一段用線元法，一段用交點(diǎn)法。參數(shù)置放矩陣中，輸入和可讀性極好。

3、新增隧道斷面欠超挖值放樣計(jì)算

4、高程程序中考慮了初次輸入線路選擇、計(jì)算面與設(shè)計(jì)面高差，輸出中加入顯示本樁號(hào)路基標(biāo)準(zhǔn)寬度。

二、源程序
1.主程序1：一般放樣正反算程序(①正算坐標(biāo)、放樣點(diǎn)至置儀點(diǎn)方位角及距離；②反算樁號(hào)及距中距離)

程序名:1ZD-XY
Lb1 Q: Norm 2:14→DimZ：1→F：Prog＂DX＂:

Lb1 X：Prog＂QX＂：90→B：＂PJ＂？B：B→Z[1]：

Lb1 0: Norm 2 ：“KM”?Z：If Z=-1:Then Goto X:Else If Z=-2: Then 2→F :Goto 0: Else If Z=-3: Then Goto 9:IfEnd: Prog＂KM＂：If F=1:Then ?D:Else “X0”?X:“Y0”?Y: IfEnd: Prog＂THB＂:If F=1: Then Goto 1: Else Goto 2：

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

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

Ｐrog＂6JS”:Goto 0:

Lb1 2:Fix 3:＂?。耍停剑ⅲ篖ocate 6,4,Ｚ◢

＂　　Ｄ＝＂：Locate 6,4,Ｄ◢

Ｇoto 0：

Lbl 9:Mat F◢

Ｇoto Q

２．主程序２：高程、橫坡、寬度程序(計(jì)算設(shè)計(jì)任意點(diǎn)高程、橫坡及路基設(shè)計(jì)標(biāo)準(zhǔn)寬度)

程序名：2GC

14→DimZ：LbI 0:Norm 2: Prog＂QX＂：0→B:”H-B:”?B:B→Z[9]:

LbI H: Norm 2: “KM”?Z:Z=-1=> Goto 0:?D:Prog”H”:

Fix 3:”H=”:Locate 6,4,H◢

“I=”: Locate 6,4,I◢

Prog＂GD＂：“SJLG=”: Locate 6,4,L◢

Goto H

3．主程序3：涵洞放樣程序（輸入置儀點(diǎn)坐標(biāo)。選擇線路、輸入路線右夾角、前進(jìn)方向偏角、由涵中心樁號(hào)計(jì)算出各涵角坐標(biāo)、計(jì)算放樣點(diǎn)至置儀點(diǎn)方位角及距離)

程序名：3JH-XY

14→DimZ：Prog＂DX＂:LbI X:Norm 2: Prog＂QX＂：90→B：＂PJ1＂？B：B→C: ＂PJ2＂？C: B→Z[1]：C→Z[8]：

LbI 0:Norm 2:1→F: “KM”?Z：If Z=-1:Then Goto X: ?D:Prog”THB”:0→L:“L0”?L:Z[2]+Z[1]-Z[8] →E:

X+Lcos(E) →X:Y+Lsin(E) →Y:

Fix 3:＂Ｘ=＂：Locate 6,4,Ｘ◢

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

Ｐrog＂6JS”:Goto 0:

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

程序名：4FBX

17→DimZ：LbI B:Norm 2: Prog＂QX＂：0.5→B:“TH-GD”?B:B→Z[17]:LbI 0:Norm 2: 2→F:90→Z[1]: “KM”?Z：If Z=-1:Then Goto B: “X0”?X:“Y0”?Y: 0→M:“M0”?M:M→Z[4]:Prog”THB”:D→P:Prog”GD”:If D<0:then 0.75-l→d:goto="" h:else="" l-0.75→d:goto="">

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="">

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:Fix 2:Abs(P)-S→K:”L0=”: Locate 6,4,K◢

Fix 3:＂　ＫＭ＝＂：Locate 6,4,Ｚ◢

＂　?。模剑ⅲ篖ocate 6,4,P◢

Z[4]>0=>Z[4]+I(T-L) →Z[4]:

“TW=”: Locate 6,4,Z[4]◢

Goto 0

5.主程序5.隧道超欠挖值計(jì)算放樣程序（輸入隧道線路，大概樁號(hào)、輸入測(cè)量三維坐標(biāo)，計(jì)算準(zhǔn)確樁號(hào)及位置、計(jì)算欠超挖值）

程序名：5SD

15→DimZ：LbI B:Norm 2: Prog＂QX＂:LbI 0:Norm 2: 2→F:90→Z[1]: “KM”?Z：If Z=-1:Then Goto B: Prog“XD1”:” X0”?X:“Y0”?Y: 0→M:“M0”?M:M→Z[8]:Prog“THB”: D→Z[10]: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: √((D-Z[9]) ²+(Z[8]-Z[5]) ² )- Z[4] →L:Goto L:

LbI S: Z[4]-Z[6] →S: √(S ²-(Z[7]-Z[5]) ² ) →T:Abs(D-Z[9])-T→T:√(T ²+(Z[8]-Z[7]) ² )- Z[6] →L:Goto L:

LbI L: Fix 2:”L0=”: Locate 6,4,L◢

Fix 3:＂?。耍停剑ⅲ篖ocate 6,4,Ｚ◢

＂　?。模剑ⅲ篖ocate 6,4,Ｄ◢

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

Goto 0

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

程序名：6JS

X：Y：

Z[11]→K(置儀點(diǎn)X坐標(biāo))

Z[12]→L（置儀點(diǎn)Y坐標(biāo)）

Pol(X-K, Y-L):IF J<0:then j+360→j:int(j)+0.01int(60frac(j))+0.006frac(60frac(j))="" →j:(不習(xí)慣小數(shù)點(diǎn)后四位為角度顯示的，也可以用命令j◢dms◢來(lái)直接顯示)="" fix="" 4:”="" fwj="”:" locate="">

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

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

程序名： GD

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

LbI 1:Z-C→E:(B-A)*E/S+A→L:

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

程序名：THB

If Q=2:Then Goto J: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:

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

程序名：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]）→Ｙ
10. 線元法反算子程序(Ｂ)

程序名：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:="">
Lbl 1:0→D：Prog 'Ａ'：(J-Y)÷sin(Ｚ［２］+90) →D:

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

程序名：Z

H²/R/24-H^∧(4)/2688/R^∧(3)→A:H/2-H^∧(3)/240/R²→B:(R+A)tan(Abs(P)/2)+B→T:O-T→C:C+H→L:L+ΠR*Abs(P)/180→N:N-H→E:P/Abs(P) →W:0→M:

If ZO→S:G→Z[2]:Goto 2: IfEnd: If Z≥N:Then Z-N+T→S:G+P→Z[2]:Goto 2: IfEnd: If Z≥E:Then N-Z→S: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: IfEnd:

If Z>L:Then 180(Z-L+0.5H)/R/Π→S :H/2-H^∧(3)/240/R²+Rsin(S)→A:H²/R/24-H^∧(4)/2688/R^∧(3)+R(1-Cos(S))→B:R→M:G+WS→Z[2]:Goto 4: IfEnd:

Z-C→S:Prog “HX”:G+WK→Z[2]:

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:

12. 交點(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:

13. 交點(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="">

LbI 2:

14．高程計(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²÷2÷R→H:Goto 0:

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

15.高程超高計(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:

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

程序名：DX

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

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

程序名：QX

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

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

LbI 1:”ZO”?O:”XO”?U:”YO”?V:”FW”?G:”LS”?H:?P:?R:”J=2,X=(0,1,-1)”?Q:Goto 2:

LbI 2:

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

程序名：KM

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

LbI 0:

19．坐標(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:

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ì)算要素程序）

IfZ≤616.951:Then [[316.951,11230.669,3213.086, 118^。42’28.42”,300,1800⁴⁵, 1×10⁴⁵, 1]]→Mat F:Goto 0: IfEnd:

If Z≤4050:Then[[3089.766,9708.017,5530.185,123^。28’57.1”,300,-44^。39’38”,2200,2]]→Mat F:Goto 0:IfEnd:

……

LbI 0:Prog”F”:

程序字母說(shuō)明：O-線元起點(diǎn)樁號(hào)(交點(diǎn)樁號(hào))；U-起點(diǎn)X坐標(biāo)（交點(diǎn)X）；V-起點(diǎn)Y坐標(biāo)（交點(diǎn)Y）；G-線元起點(diǎn)樁號(hào)切線方位角（交點(diǎn)前一交點(diǎn)至現(xiàn)交點(diǎn)方位角）; Ｈ－線元長(zhǎng)度（緩和曲線長(zhǎng)度），Ｐ－線元起點(diǎn)曲率半徑（偏角為正負(fù)，左偏為負(fù)，右偏為正），Ｒ－線元終點(diǎn)曲率半徑（圓半徑）,Q－線元判別(以道路中線的前進(jìn)方向（即里程增大的方向）區(qū)分左右；當(dāng)線元往左偏時(shí)，Q=-1；當(dāng)線元往右偏時(shí)，Q=1；當(dāng)線元為直線時(shí)，Q=0)（交點(diǎn)法取值2）說(shuō)明括內(nèi)為交點(diǎn)法子母代表意思。。

②-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:

程序字母說(shuō)明：C-豎曲線交點(diǎn)樁號(hào)；G-交點(diǎn)樁號(hào)高程（未豎曲線調(diào)整的）；T-豎曲線切線長(zhǎng)；R-豎曲線半徑（分正負(fù)：凹曲線為正，凸曲線為負(fù)）；I－豎曲線前縱坡

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

1.5→K:2→W:If D<0:then goto="" l:else="" goto="">

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="">

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:IfEnd

If Z≤375.665:Then 0→S:-0.02→M: Goto 0:IfEnd

……

LbI 0

字程序中字母表示說(shuō)明：

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

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

If D<0:then goto="" l:else="" goto="">

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="">

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

字程序中字母表示說(shuō)明：

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

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

If Z[3]=1:Then Goto 1: Else Prog “XD2”: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程序名：XD2(線路2隧道參數(shù)子程序)

8.5→Z[4]:-1.15→Z[5]:4.5→Z[6]:1.52→Z[7]: 0.25→Z[9]: 55^。20’51.6”→Z[10]:

字程序中字母表示說(shuō)明：

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[6]: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]

字程序中字母表示說(shuō)明：

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

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

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

(2) 當(dāng)所求點(diǎn)位于中線時(shí)，Ｄ=0；當(dāng)位于中線左鍘時(shí)，Ｄ取負(fù)值；當(dāng)位于中線中線右側(cè)時(shí)，Ｄ取正值。
(3) 當(dāng)線元為直線時(shí)，其起點(diǎn)、止點(diǎn)的曲率半徑為無(wú)窮大，以10的45次代替。（在用交點(diǎn)法時(shí)，此字母代表偏角）
(4) 當(dāng)線元為圓曲線時(shí)，無(wú)論其起點(diǎn)、止點(diǎn)與什么線元相接，其曲率半徑均等于圓弧的半徑。（交點(diǎn)法為圓半徑）
(5) 當(dāng)線元為完整緩和曲線時(shí)，起點(diǎn)與直線相接時(shí)，曲率半徑為無(wú)窮大，以10的45次代替；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。止點(diǎn)與直線相接時(shí)，曲率半徑為無(wú)窮大，以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。線元法，根據(jù)線元段取值，直線段取0，緩和段和圓曲線段，根據(jù)左偏取-1,右偏取1.
(8) 為了區(qū)別字母O及數(shù)子0，特把字母0加粗。
2、輸入與顯示說(shuō)明
輸入部分：

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

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

3．PJ？路線中線與右邊線夾角,默認(rèn)為90度。

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

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

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

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

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

PJ1? PJ2? 涵洞計(jì)算中第一個(gè)夾角同PJ。第二夾角為邊線至路前進(jìn)方向夾角。

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

輸出部分
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ì)路面橫坡

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

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

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

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