求卡西欧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：(线元起.