“XLZBJSCX” ◢ （ 第一個(gè)程序）
Lb1 0 ↙
Cls : Fix 4 : 30→Dimz ↙
“XHS="?G ( 后視點(diǎn) X) :"YHS="?L ( 后視點(diǎn) Y) :"XZJ="?M ( 置鏡點(diǎn) X) :"YZJ="?N ( 置鏡點(diǎn) Y) :Pol(G-M,L-N):"DH=":I ( 后視距 ) ◢ J<0=>J+360→J:"FH=":J►DMS ◢ ( 后視方位角 )
Lbl 1 ↙ ( If （如果的意思） And （和字的意思） Then （然后的意思） )
“K=”?K ◢ （計(jì)算里程） ( 下面有色的是數(shù)據(jù)庫(kù) )
If （如果） K< 51760.052 本曲線 緩直點(diǎn) 樁號(hào) And （ 和） K≥ 51048.785 上一個(gè)曲線 緩直點(diǎn) 樁號(hào) ： Then （然后） 本曲線 緩直點(diǎn) 樁號(hào) 51760.052 →Z[1] : 上一個(gè)曲線 緩直點(diǎn) 樁號(hào) 51048.785 →Z[2] ： 1 -1 →O （注： 左偏曲線輸 入 - 1→O, 右偏曲線輸入 1→O ） : 偏角 12 ’ 23 ’ 19.5 ’ →A ： 半徑 3289.486 →R : 第一緩和曲線 長(zhǎng)度 0 →Z[6] : 第二緩和曲線 長(zhǎng)度 0 →Z[7] : 交點(diǎn) X 坐標(biāo) →B : 交點(diǎn) Y 坐標(biāo) →C : 小里程向交點(diǎn) 方位角 →E : 交點(diǎn)向大里程 方位角 →F : Goto 2 : IfEnd ↙ ( 重蘭字是輸入的數(shù)字 )
………… （曲線段分段輸入）
補(bǔ)充直線段輸入如下
If （如果） K< 本段直線 終點(diǎn) 里程 And （ 和） K≥ 本段直線 起點(diǎn) 里程 :Then （然后） 1→O: 本段直線 終點(diǎn) 里程 →Z[3]: 終點(diǎn) 坐標(biāo) X→Z[16]: 終點(diǎn) 坐標(biāo) Y→Z[17]: 方位角 →E:Goto 4:IfEnd ↙
Lb1 2 ↙ （曲線要素計(jì)算）
Z[6] ÷ 2- Z[6]^ 3 ÷ (240R^2)+ Z[6]^ 5 ÷ (34560*R^4) →Z[8] ↙ （ M1 不輸）
Z[7 ] ÷ 2- Z[7]^ 3 ÷ (240R^2)+ Z[7]^ 5 ÷ (34560 R^4) →Z[9] ↙ （ M2 不輸）
Z[6]^ 2 ÷ (24R)- Z[6]^ 4 ÷ (2688R^3) →Z[10] ↙ （ P1 不輸）
Z[7]^ 2 ÷ (24R)- Z[7]^ 4 ÷ (2688R^3) →Z[11] ↙ （ P2 不輸）
(πAR ) ÷ 180+0. 5 × ( Z[6]+ Z[7])→S ↙ （曲線總長(zhǎng)）
90 × Z[6 ] ÷ ( R × π) →Z[14] ↙ （第一緩和曲線總偏角） ( ×÷以后自己改 )
9 0 × Z[7 ] ÷ ( R × π) →Z[15] ↙ （第二緩和曲線總偏角 , 可以省略）
Z[8] ＋（ R+Z[10])TAN(A/2)-(Z[10]-Z[11] )/SIN A→Z[12] ↙ ( 切線 T1)
Z[9] ＋（ R+Z[11])TAN(A/2)+(Z[10]-Z[11] )/SIN A→Z[13] ↙ ( 切線 T2)
B+ Z[12]*COS (E+180)→ Z[16] ↙ （ ZH 點(diǎn) X ）
C+ Z[12]*SIN(E+180)→ Z[17] ↙ （ ZH 點(diǎn) Y ）
Z[1]-S→Z[3] ↙ (ZH 點(diǎn)里程 )
Z[3]+ Z[6]→Z[4] ↙ (HY 點(diǎn)里程 )
Z[1]- Z[7]→Z[5] ↙ (YH 點(diǎn)里程 )
GOTO 3 ↙
LB1 3 ↙ ( 判斷里程點(diǎn)與曲線關(guān)系 )
If K≤Z[3] And K> Z[2] : Then Goto 4 : IfEnd ↙
If K≤Z[4] A nd K> Z[3] : T hen Goto 5 : IfEnd ↙
If K≤Z[5] A nd K> Z[4] : T hen Goto 6 : IfEnd ↙
If K≤Z[1] A nd K> Z[5] : T hen Goto 7 : IfEnd ↙
LB1 4 ↙ （里程小于直緩點(diǎn)直線獨(dú)立坐標(biāo)）
K- Z[3] →X : 0→Y : E→T : Prog“TYZBCX” ： Goto 1 ↙
Lb1 5 ↙ （第一緩和曲線獨(dú)立坐標(biāo)）
K- Z[3] →H ↙
H-H^5/(40*R^2* Z[6]^2)+H^9/(3456*R^4* Z[6]^4) →X ↙
H^3/(6*R* Z[6])-H^7/(336*R^3* Z[6]^3) →Y ↙
90*H^2/( R*π* Z[6]) →T ↙
IF O >0 ： Then T +E→T : Else E-T →T : T<0=>360+T→T : IfEnd ↙
PRrog“TYZBCX” ： Goto 1 ↙
Lb1 6 ↙ （圓曲線獨(dú)立坐標(biāo)）
K- Z[4] →H ↙
H*180/( R*π)+ Z[14]→T ↙
R*SIN( T)+ Z[8]→X ↙
R*(1-COS (T))+ Z[10]→Y ↙
IF O >0 ： Then T +E→T : Else E-T →T : T<0=>360+T→T : IfEnd ↙
Prog“TYZBCX” ： Goto 1 ↙
Lb1 7 ↙ （第二緩和曲線獨(dú)立坐標(biāo)）
Z[1] -K →H ↙
H-H^5/(40*R^2* Z[7]^2)+H^9/(3456*R^4* Z[7 ]^4) →U ↙
H^3/(6*R* Z[7])-H^7/(336*R^3* Z[7]^3) →V ↙
90*H^2/( R*π* Z[7]) →T ↙
Z[13]COS (A)+ Z[12]-U*COS( A)-V*SIN (A)→X ↙
Z[13]*SIN( A)-U*SIN( A)+V*COS (A)→Y ↙
IF O >0 ： Then F-T→T : T<0=>360+T→T : Else F+T →T : IfEnd ↙
Prog“TYZBCX” ： Goto 1 ↙
子程序：
“TYZBCX” ↙ （統(tǒng)一坐標(biāo)計(jì)算） （ 第 2 個(gè)程序）
IF O<0 : Then -Y→Y : IfEnd ↙
“QXJ=” :T ◢ （計(jì)算里程點(diǎn)切線方位角，可以不顯示）
Z[16]+X*COS (E)-Y*SIN( E)→Z[18] ↙
Z[17]+X*SIN (E ） +Y*COS (E ） →Z[19] ↙
“XI=” : Z[18] ◢ （ XI 中線 X ）
“ YI =” : Z[19] ◢ （ YI 中線 Y ）
Pol(Z[18]-M,Z[19]-N):"DI=":I ◢ （中樁放樣距） J<0=>J+360→J:"FI=": J ►DMS ◢ （ 中樁放樣方位角）
“ PJ =”?P ◢ ( 輸入邊樁與線路夾角 PJ ，左偏 – 90 右 +90 )
“ PD =”?D ◢ （輸入邊樁距 PD ）
Z[18]+D*COS(T+P) →Z[20] ↙
Z[19]+D*SIN(T+P) →Z[21] ↙
“XP=”: Z[20] ◢ （ XP 邊樁 X ）
“YP=”: Z[21] ◢ （ YP 邊樁 Y ）
Pol(Z[20]-M,Z[21]-N):"DP=":I ◢ （邊樁放樣距） J<0=>J+360→J:"FP=":J ► DMS ◢ （邊樁放樣方位角）
Return ↙ （以上都要輸進(jìn)計(jì)算器）注解不輸
K 里程
XI 中線 X
YI 中線 Y
PD 輸入邊樁距
XP 邊樁 X 坐標(biāo)
YP 邊樁 Y 坐標(biāo)
I 邊樁放樣距
PJ 輸入邊樁與線路夾角，左偏 – 90 右 +90 )
I 中樁放樣距
T 計(jì)算里程點(diǎn)切線方位角，可以不顯示
