文件名 “TYQXJS”
“1.KD=>XY”:“2.XY=>KD”:”N”?N:”XA”?U:”YA”?V:”DKA”?O:”CA”?G:”LS”?H:”RA”?P:”RB”?R:”Q”?Q:1/P->C:(P-R)/(2HPR)->D:180/ ∏->E:IF N=1:THEN GOTO 1:ELSE GOTO 2:IFEND
Lbl 1:”DKI”?S:”D”?Z:ABS (S-O)->W:PROG “SUB1”:”XS”:X ◢
“YS”:Y◢
GOTO 1
Lbl 2:”X”?X:”Y”?Y:X->I:Y->J:PROG “SUB2”:O+W->S
“S”:S◢
“Z”:Z◢
GOTO 2
子程序 “SUB1”
0.1739274226->A:0.3260725774->B:0.0694318442->K:0.3300094782->L:1-L->F:1-K->M:U+W(ACOS(G+QEKW(C+KWD))+BCOS(G+QELW(C+LWD))+BCOS(G+QEFW(C+FWD))+ACOS(G+QEMW(C+MWD)))->X:V+W(ASIN(G+QEKW(C+KWD))+BSIN(G+QELW(C+LWD))+BSIN(G+QEFW(C+FWD))+ASIN(G+QEMW(C+MWD)))->Y:G+QEW(C+WD)+90->F:X+ZCOS(F)->X:Y+ZSIN(F)->Y
“SUB2”
G-90->T:ABS((Y-V)COS(T)-(X-U)SIN(T))->W:0->Z:Lbl0:PROG “SUB1”:T+QEW(C+WD)->L:(J-Y)COS(L)-(I-X)SIN(L)->Z:IF ABS(Z)<1*10^(-6):THEN GOTO 1:ELSE W+Z->W:GOTO 0:IFEND
Lbl 1: 0->Z:PROG”SUB1” ： (J-Y)/SIN(F)->Z
說明：輸入與顯示
輸入部分：
1. SZ => XY
2. XY = > SZ
N ? 選擇計算方式，輸入 1 表示進行由里程、邊距計算坐標 ；輸入 2
表示由坐標反算里程和邊距。
XA ？線元起點的 X 坐標
YA ？線元起點的 Y 坐標
DKA ？線元起點里程
CA ？線元起點切線方位角
LS ？線元長度
RA ？線元起點曲率半徑
RB ？線元止點曲率半徑
Q ？ 線 元左右偏標志 ( 左偏 Q=-1 ，右偏 Q=1 ，直線段 Q=0)
DKI ？ 正算時所求點的里程
D ？正算時所求點距中線的邊距 ( 左側取負，值右側取正值，
在中線上取零 )
X ？反算時所求點的 X 坐標
Y ？反算時所求點的 Y 坐標
顯示部分：
XS= ××× 正算時，計算得出的所求點的 X 坐標
YS= ××× 正算時，計算得出的所求點的 Y 坐標
S= ××× 反算時，計算得出的所求點的里程
Z= ××× 反算時，計算得出的所求點的邊距
規(guī)定
(1) 以道路中線的前進方向（即里程增大的方向）區(qū)分左右；
當線元往左偏時，
Q=-1 ；當線元往右偏時， Q=1 ；當線元為直線時， Q=0 。
(2) 當所求點位于中線時， Z=0 ；當位于中線左鍘時， Z 取負值；當位于中線中線右側時， Z 取正值。
(3) 當線元為直線時，其起點、止點的曲率半徑為無窮大，以10 的 45 次代替。
(4) 當線元為圓曲線時，無論其起點、止點與什么線元相接，其曲率半徑均等于圓弧的半徑。
(5) 當線元為完整緩和曲線時，起點與直線相接時，曲率半徑為無窮大，以 10 的 45 次代替；與圓曲線相接時，曲率半徑等于圓曲線的半徑。止點與直線相接時，曲率半徑為無窮大，以 10 的 45 次代替；與圓曲線相接時，曲率半徑等于圓曲線的半徑。
(6) 當線元為非完整緩和曲線時，起點與直線相接時，曲率半徑等于設計規(guī)定的值；與圓曲線相 接時，曲率半徑等于圓曲線的半徑。止點與直線相接時，曲率半徑等于設計規(guī)定的值；與圓曲線相接時，曲率半徑等于圓曲線的半徑。
