计算器5800隧道测量编程
1、1. 主程序(NTCJYOUX)
Lbl 4："1SZ => XY， 2XY => SZ"？N：？S：Prog“SUB3”↙
1÷P→C: (P-R)÷(2HPR) →D:180÷π→E:ifN=1:Then Goto1：Else Goto2：↙
Lbl 1:”DZ=”? Z： Abs(S-O) →W：Prog "SUB1"： "XS="：X◢↙
"YS="：Y◢↙
F-90→F： “FS=”：F◢↙
Goto4↙
Lbl 2：”X=”？X： “Y=”？Y：X→I：Y→J： Prog“SUB2”：O+W→S：“S=”：S◢“Z=”：Z◢↙
Goto4↙
2. 正算子程序(SUB1)
0.1739274226→A： 0.3260725774→B： 0.0694318442→K： 0.3300094782→L： 1-L→F： 1-K→M
U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+ Acos(G+QEMW(C+MWD)))→X:
V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+
Asin(G+QEMW(C+MWD)))→Y:
G+QEW(C+WD)+90→F:
X+Zcos(F)→X:
Y+Zsin(F)→Y
2、编程
3、1. 主程序(NTCJYOUX)
Lbl 4："1SZ => XY， 2XY => SZ"？N：？S：Prog“SUB3”↙
1÷P→C: (P-R)÷(2HPR) →D:180÷π→E:ifN=1:Then Goto1：Else Goto2：↙
Lbl 1:”DZ=”? Z： Abs(S-O) →W：Prog "SUB1"： "XS="：X◢↙
"YS="：Y◢↙
F-90→F： “FS=”：F◢↙
Goto4↙
Lbl 2：”X=”？X： “Y=”？Y：X→I：Y→J： Prog“SUB2”：O+W→S：“S=”：S◢“Z=”：Z◢↙
Goto4↙
2. 正算子程序(SUB1)
0.1739274226→A： 0.3260725774→B： 0.0694318442→K： 0.3300094782→L： 1-L→F： 1-K→M
U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+ Acos(G+QEMW(C+MWD)))→X:
V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+
Asin(G+QEMW(C+MWD)))→Y:
G+QEW(C+WD)+90→F:
X+Zcos(F)→X:
Y+Zsin(F)→Y