5800計(jì)算機(jī)測(cè)量程序
5800計(jì)算機(jī)測(cè)量程序
1:主程序（TYQXJS）
Lb1 4:”1.SZ=>XY”:”2.XY=>SZ”:?N:U:”X0”?U: V:”Y0”?V: O:”S0”?O :G:”F0”?G:
H:”LS”?H:P:”R0”?P:R:”RN”?R:Q:”Q”?Q:↘
(1÷P)→C:(P-R)÷(2HPR)→D:(180÷Π)→E:N=1=>Goto 1:Goto 2↘
Lb1 1:?S:?Z:Abs(S-O)→W:Prog”SUB1”: ↘
“XS=”:X◢
“YS=”:Y◢
F-90→F:”FS=”:F▲DMS◢
Goto 1↘
Lb1 2:?X:?Y:X→I:Y→J:Prog”SUB2”:O+W→S:”S=”S◢
“Z=”:Z◢
Goto 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））
