FX5800計算器測量程序集2.0 版

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

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

2、坐標計算考慮了線元法與交點法相結合，即是一條線路也可以一段用線元法，一段用交點法。參數置放矩陣中，輸入和可讀性極好。

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

4、高程程序中考慮了初次輸入線路選擇、計算面與設計面高差，輸出中加入顯示本樁號路基標準寬度。

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

程序名: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:＂　ＫＭ＝＂：Locate 6,4,Ｚ◢

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

Ｇoto 0：

Lbl 9:Mat F◢

Ｇoto Q

２．主程序２：高程、橫坡、寬度程序(計算設計任意點高程、橫坡及路基設計標準寬度)

程序名：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：涵洞放樣程序（輸入置儀點坐標。選擇線路、輸入路線右夾角、前進方向偏角、由涵中心樁號計算出各涵角坐標、計算放樣點至置儀點方位角及距離)

程序名：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:路基開挖邊線及填方坡腳線放樣程序（輸入填方放寬值、大概樁號及測量坐標、地面標高計算出偏移距離、樁號、距中距離、填挖高度）

程序名：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:＂?。耍停剑ⅲ篖ocate 6,4,Ｚ◢

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

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

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

Goto 0

5.主程序5.隧道超欠挖值計算放樣程序（輸入隧道線路，大概樁號、輸入測量三維坐標，計算準確樁號及位置、計算欠超挖值）

程序名：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：極坐放樣計算程序(計算放樣點至置儀點方位角及距離)

程序名：6JS

X：Y：

Z[11]→K(置儀點X坐標)

Z[12]→L（置儀點Y坐標）

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

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

7．路基寬度次程序6：路基標準半幅寬度計算程序(對于設計有加寬漸變的有用，如路基寬度無變化，則把此程序直接輸入半幅寬度值至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．坐標計算次程序（ＴＨＢ）

程序名：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. 交點法正算子程序(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. 交點法緩和段轉化子程序(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. 交點法反算子程序(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．高程計算子程序（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.高程超高計算程序（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．導線點子程序（DX）

程序名：DX

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

17．線路選擇子程序(線路選擇輸入0時。則手工輸入曲線參數（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．坐標計算參數轉化子程序（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．數據子程序(附后示例)

①-1程序名：X1（線路1坐標計算要素程序）

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坐標計算要素程序）

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

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

②-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-豎曲線交點樁號；G-交點樁號高程（未豎曲線調整的）；T-豎曲線切線長；R-豎曲線半徑（分正負：凹曲線為正，凸曲線為負）；I－豎曲線前縱坡

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

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高程超高參數子程序）

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

字程序中字母表示說明：

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

④-1程序名：G1(線路1路基標準半幅寬度參數子程序)

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路基標準半幅寬度參數子程序)

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

字程序中字母表示說明：

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

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

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隧道參數子程序)

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

字程序中字母表示說明：

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

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

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路基填挖邊坡參數子程序)

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]

字程序中字母表示說明：

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

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

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

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

(7) Q值是判別用采用線元法還是交點法。交點法值為2。線元法，根據線元段取值，直線段取0，緩和段和圓曲線段，根據左偏取-1,右偏取1.
(8) 為了區(qū)別字母O及數子0，特把字母0加粗。
2、輸入與顯示說明
輸入部分：

1．XZ？YZ？ 為置儀點坐標，第一次運行輸一次，以下運行不需再輸入，下次再運行此程序調上次輸值，如需改，則輸入，不需改，則按確認鍵。

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

3．PJ？路線中線與右邊線夾角,默認為90度。

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

X0 ？反算時所求點的X坐標（放樣程序中實測X坐標）
Y0 ？反算時所求點的Y坐標（放樣程序中實測Y坐標）
顯示部分：

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

M0?邊坡放樣程序中原地面標高輸入

H-B？計算面至路面高差（默認路面為0）

PJ1? PJ2? 涵洞計算中第一個夾角同PJ。第二夾角為邊線至路前進方向夾角。

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

輸出部分
X=***正算時，計算得出的所求點的X坐標
Y=***正算時，計算得出的所求點的Y坐標

FWJ=***正算時，計算得出的所求點的至置儀點方位角

S=***正算時，計算得出的所求點的至置儀點距離

ＫＭ=***反算時，計算得出的所求點的里程
Ｄ=***反算時，計算得出的所求點的邊距

H=***所求點位置設計路面頂標高

I=***所求點位置設計路面橫坡

SJLG=***所求點位置路基設計半幅標準寬度

L0=***邊樁放樣程序中實測點至設計邊坡點距離，正向內移，負向外移。(隧道程序中為超欠挖值，正為超挖，負為欠挖)

TW=***邊樁放樣程序中，實測放樣邊坡點至止樁號設計頂填挖高度值

H0=***隧道放樣程序中測量點至設計面高度