580万能隧道程序.docVIP

5800万能隧道程序 1,主程序 Lbl 0 ： 1.SZ = XY ： 2.XY = SZ ：？T ：？S ： Prog “ SUB0 ” ↙ 1 ÷ P → C: (P-R) ÷ (2HPR) → D:180 ÷∏→ E:T=1 = Goto1 ： Goto2 ：↙ Lbl 1: “LICHENG=”？K：“BANJNG=”？P：“PIANJIN=”？S： ： Abs(S-O) → W ： Prog SUB1 ↙ Prog GC：G+√ˉ(P 2－S 2)+1.66◢ XS= ： X ◢ YS= ： Y ◢ ZS= ： Z ◢ F-90 → F ：“ FS= ”： F ?DMS ◢ Goto 0 Lbl 2 ：Prog “ SUB2 ” ↙ Prog “YFS3 ” Goto 0↙ 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))