Fx-5800 計算機程序（在用）
QXJS 主程序
Lbl A:“1.ZH=>XY”:“2.XY=>ZH”:?Q:“ZH”?S:Prog“QXJS-SUB0”↙
Q=1 => Goto1:Q=2 => Goto2:↙
Lbl 1:“ZH-BJ”?Z:Prog“QXJS-SUB1”:“X=”:N◢:“Y=”:E◢:“F=”:F◢: Goto4↙
Lbl 2: “X=”:?B: “Y=”:?C:B→N: C→E:Prog“QXJS-SUB2”: “ZH=”:S◢: “ZH-BJ”:Z◢: GotoA↙
QXJS-SUB0 數(shù)據(jù)庫子程序
Goto1↙ Lbl 1
IF S<*** （線元終點里程） :Then***→A （線元起點方位角） :***→O （線元起點里程） :***→U （線元起點 X ） :***→V （線元起點 Y ） :***→P （線元起點曲率半徑） :***→R （線元終點曲率半徑） : ***→L （線元起點至終點長度） : Return:IfEnd↙
IF S<***:Then***→A:***→O:***→U:***→V:***→P:***→R: ***→L: Return:IfEnd↙
……………………….. 為了便于解讀，每增加一個線元增加一行語句，每增加一條曲線增加一個 Lbl ，每增加一個工程增加一個文件。
QXJS-SUB1 正算子程序
0.5 （ 1÷R-1÷P ） ÷L→D:S-O→X↙
U+∫(cos(A+(X÷P+DX²)×180÷π,0,X)→N↙
V+∫(sin(A+(X÷P+DX²)×180÷π,0,X)→E↙
A+(X÷P+DX2)×180÷π→F↙
N+Zcos(F+90) →N:E+Zsin(F+90) →E
QXJS-SUB2 反算子程序
Lbl 1:0→Z ： 1→Q ： Prog“QXJS-SUB0”: Prog“QXJS-SUB1”↙
Pol(N-B+10^(-46), E-C+10^(-46)):Isin(F-90-J) →W:S+W→S↙
Abs(W)>0.0001 => Goto1↙
Lbl 2: 0→Z ： Prog“QXJS-SUB1”:(C-E) ÷sin(F+90) →Z
三、使用說明
1 、規(guī)定
(1) 以道路中線的前進方向（即里程增大的方向）區(qū)分左右；當曲線半徑在左時， P 、 R 取負值，當曲線半徑在右時， P 、 R 取正值，當曲線半徑為無窮大（即直線）時， P 、 R 以 10 的 45 次代替。
(2) 當所求點位于中線時， Z=0 ；當位于中線左鍘時， Z 取負值；當位于中線中線右
側(cè)時， Z 取正值。
(3) 當線元為圓曲線時，無論其起點、止點與什么線元相接，其曲率半徑均等于圓
弧的半徑。
(5) 當線元為完整緩和曲線時，起點與直線相接時，曲率半徑為無窮大，以 10 的 45 次方代替；與圓曲線相接時，曲率半徑等于圓曲線的半徑。止點與直線相接時，曲率半徑為無窮大，以 10 的 45 次代替；與圓曲線相接時，曲率半徑等于圓曲線的半徑。
(6) 當線元為非完整緩和曲線時，起點與直線相接時，曲率半徑等于設計規(guī)定的
值；與圓曲線相接時，曲率半徑等于圓曲線的半徑。止點與直線相接時，曲率半徑等
于設計規(guī)定的值；與圓曲線相接時，曲率半徑等于圓曲線的半徑。
2 、輸入與顯示說明
輸入部分：
1. ZH=>XY
2. XY=>ZH”
Q ? 選擇計算方式，輸入 1 表示進行由里程、邊距計算坐標 ；輸入 2 表示由坐標反算里程和邊距。