求卡西欧5800计算器圆曲线坐标正反算，道路中边桩放样程...

求卡西欧5800计算器圆曲线坐标正反算，道路中边桩放样程...
USSLE坐标正反算fx－5800程序
1.正算主程序 （GSZS）
？K：Prog “DAT-M-DZD”: ((P-R)÷(2(H-O(字母))PR))→D : “L(-Z Y)” ?L:
“ANG”?M : (Abs(K-O(字母))) →J：Prog"SUB1"：If (F-M) 0: Then (F-M 360) →F: Else(F-M) →F: IfEnd
“FWJ=”:F ●DMS(显示度分秒)◢
“X=”:X◢
”Y=”:Y◢
2. 反算主程序 (GSFS)
？K：Prog “DAT-M-DZD”: ?X：?Y：X→Z[2]：Y→Z[3]： ( (P-R)÷(2(H-O(字母))PR)) →D: （Abs((Y-S)cos(G-90)－(X-I)sin(G-90)) ) →J： 0→L：90→M: Lbl 0：Prog "SUB1"：((Z[3]-Y)cos(G-90 QJ(1÷P JD)×180÷π)) →Z[20]:((Z[2]-X)sin(G-90 QJ(1÷P JD) ×180÷π)) →Z[21]:( Z[20]- Z[21]) →L：If Abs(L)10∧(-6)： Then Goto1：Else (J L)→J：Goto 0: IfEnd
Lbl 1：0→L：Prog "SUB1"：((Z[3]-Y)÷sin(F))→L: (O J)→K:“LC=”:K◢
L→L :“PJ（-Z Y）=”:L◢
3. 反算，正算子程序(SUB1)
0.1184634425→A:0.2393143352→B: 0.2844444444→Z[4]:0.0469100770→C: 0.2307653449→E: 0.5→Z[1]:
((P-R)÷(2(H-O(字母))PR))→D : (Acos(G QCJ(1÷P CJD)×180÷π))
→Z[5]: ( Bcos(G QEJ(1÷P EJD)×180÷π)) →Z[6]: (Z[4]cos(G QZ[1]J(1÷P Z[1]JD)×180÷π)) →Z[7]:( Bcos(G Q(1-E)J(1÷P (1-E)JD)×180÷π)) →Z[8]:(Acos(G Q (1-C)J(1÷P (1-C)JD) ×180÷π)) →Z[9]: (Z[5] Z[6] Z[7] Z[8] Z[9])→Z[10]: (J×Z[10]) →Z[11]:(I Z[11]) →X: (Asin(G QCJ(1÷P CJD)×180÷π)) →Z[12]:(Bsin(G QEJ(1÷P EJD)×180÷π)) →Z[13]:(Z[4]sin(G QZ[1]J(1÷P Z[1]JD)×180÷π)) →Z[14]:(Bsin(G Q(1-E)J(1÷P (1-E)JD)×180÷π)) →Z[15]:(Asin(G Q (1-C)J(1÷P (1-C)JD) ×180÷π)) →Z[16]:( Z[12] Z[13] Z[14] Z[15] Z[16])→Z[17] : (J×Z[17]) →Z[18]:(S Z[18]) →Y: (G M) →Z[19]:(( Z[19] QJ(1÷P JD) ×180÷π)) →F： (X LcosF)→X：(Y LsinF) →Y
Return
4. 线元要素数据库：（DAT-M-DZD ）
If K≥(线元起点里程)And K＜(线元终点里程):Then (线元起点横坐标x) →I：(线元起......