计算器5800
计算器5800
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.→K： 0.33→L： 1-L→F： 1-K→MU+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
编程
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.→K： 0.33→L： 1-L→F： 1-K→MU+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