学生计算器工程上怎样算坐标
求卡西欧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”:...全部
求卡西欧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:(线元起。收起