卡西欧5800P计算器TYQXJSI坐标正反算
(经过修改)
1.主程序(TYQXJSI)
10→DimZ:"1.SZ → XY"："2.XY → SZ"：？N："XO"? U："YO"? V："SO"? O："FO"? G："LS"? H："RO"? P："RN"? R：? Q: 1÷P→C：(P-R)÷(2HPR) →D：180÷π→E：If N=1: Then Goto 1: Else Goto 2: IfEnd
Lbl 1："DK? +?"? S：?Z: Abs(S-O)→W：If W>H or S<O: Then Stop: IfEnd : Prog "SUB1": "XS=”:X◢
"YS=”: Y◢
"FS=”:(F-90) →F：F DMS◢Goto 1
Lbl 2:? X:? Y: "H"?A:X→I:Y→J:Prog "SUB2"：If W>H or S<O: Then Stop: IfEnd :"DK?+?=”:O+W→S◢"Z”:Z◢Prog”NGDM”:
Prog”OPRP1”:Goto 2
IF N=2: Then If S<157188: Then Prog”OPRP1-100”:
Else If S>157297: Then Prog”OPRP2-0”: Else
Prog”OPRP1-50” IfEnd: IfEnd
Else If N=3: Then Prog”OPRP4”: IfEnd :IfEnd
2. 正算子程序(SUB1)
0.1739274226 →Z[3]：0.3260725774→B：0.0694318442→K：
0.3300094782→L:(1-L) →F：(1-K)→M：
(U+W(Z[3]cos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW (C+FWD))+ Z[3]cos(G+QEMW(C+MWD)))) →X：
V+W(Z[3]sin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW( C+FWD))+ Z[3]sin(G+QEMW(C+MWD))) →Y：G+QEW(C+WD)+90→F：(X+Zcos(F))→X：(Y+Zsin(F))→Y
注：Z[3]替代源程序A。

3. 反算子程序(SUB2)
G-90 →Z[2]：Abs((Y-V)cos(Z[2])-(X-U)sin(Z[2])) →W：0→Z：Lbl 0：Prog "SUB1"：Z[2]+QEW(C+WD)→L：
(J-Y)cos(L)-(I-X)sin(L)→Z：If Abs(Z)<10^(-6):Then Goto1：Else W+Z→W：: IfEnd: Goto 0
Lbl 1:0→Z：Prog "SUB1"：(J-Y)÷sin(F)→Z
注：Z[2]替代源程序T。

]
4、隧道超欠挖计算（OPRP1）
"PZ"：Z-2.0→L◢
"OP"：A-(T+1.77)→C◢
If C-5.77>0:Then"RP":√(L2 +(C-1.59)2 )-4.85→Z[1] ◢
Else IF C>0:Then "RP":√((Abs(L)+0.6)2+(0.55-C)2)-6.03→Z[1] ◢ Else"RP":L-(5.41-Abs(C)×0.07666)-5.41 →Z[1]◢
"RP(y-g)": √(L2 +( Abs(C)+7.24)2 )-11.48→Z[6] ◢(仰拱)
"S G D"：A-( T-1.12) →Z[4] ◢
"PZ-4.05"：Z-2.0→L◢
"TCM"：A-( T-0.76- Abs (L)×0.02) →Z[7] ◢
"ABQ"：A-( T-0.30) →Z[5] ◢
"PZ="：Locate 4,1, L
"SGD-4.05="：Locate 10,2, Z[4]
"TCM="：Locate 5,3, Z[7]
"ABQ -4.45="：Locate 10,4, Z[5]
IfEnd：IfEnd
5、隧道内轨面(NGDM)
？S：If S >157800:Then"NGDM"：(754.695+( S-157800）×4÷1000)→T◢
Else If S >157300:Then"NGDM"：(753.43-(157570-S）×5.5÷1000)→T◢
Else"NGDM"：(751.95-(157300-S）×4.6÷1000)→T◢IfEnd :IfEnd 6、隧道内轨面及台车中心拱顶高度计算（BG）
Lbl 1:8→DimZ: ？S：Prog "NGDM"："H"？A：
"GD1-50":T+7.81-A→Z[6]◢
"GD1-100":T+7.88-A→Z[7]◢
"GD2-MD":T+8.45-A→Z[8]◢Goto 1
3、隧道综合洞室超欠挖计算（OPRP1-1）
7、小避车洞
"PZ"：S- 156923.5（里程）→L◢
"LS"：Abs（Z- 2.42）- 5.94→Z[1] ◢
"OP"：A- (T-0.3＋Z[1]×0.02) →C◢
IF C- 1.82>0:Then "RP":√(Abs(L) 2 +(T- 0.95)2 )- 1.67→Z[4] ◢Else"RP":Abs(L)- 1.42→Z[4]◢ IfEnd
8、大避车洞超欠挖计算（OPRP4）
"PZ"：S- 156923.5（里程）→L◢
"LS"：Abs（Z-2.42）- 5.94→Z[1] ◢
"OP"：A- (T-0.3＋Z[1]×0.02) →C◢
IF C- 1.93>0:Then "RP":√(Abs(L) 2 +(C- 0.3)2 )- 2.92→Z[4] ◢Else"RP":Abs(L)- 2.44→Z[4]◢ IfEnd
9、隧道水沟电缆槽计算（sg）
"SG-TOP":A-（T-0.35）→Z[4] ◢
"PZ"：Z-2.0→L◢
"DLC-UNDER":A-（T-0.65）→Z[5] ◢
"GB-TOP ":A-（T-0.30）→Z[6] ◢。