5800-更新版.docVIP

(一)、SUB 主程序 ( 5800万能综合 ) 100→DimZ :“1.SZ?=?XY” ：XY?=2.?SZ” ：：“S=”？S :“Z=”？Z ：Prog“SUBθ－Z” ：(P－C)÷(2PC（B－O）)→D ：Abs(S－O)→W ：Prog“SUB1” ：“XS=”：X→X ◢ “YS=”： Y→Y ◢ F－90→F: “F=” ：F ? DMS ◢ Goto?1( Lbl?2: “S=”？S : “X=”？X:“Y=”？Y:Prog“SUBθ－Z” ：(P－C)÷(2PC（B－O）)→D ：X→I:Y→J ：Prog?“SUB2”：O+W→S:“S=”:S→S ◢ “Z=” ：Z→Z ◢ Prog“SH－Z” : “H=” : H → H◢ Prog“SM－Z” ◢ Goto?2 ( (二)、SUB1 子程序(?正算)（注：E=180÷∏ ， F=1－L ，M= 1－K ）。0.1739274226 →Z[99]： 0.3260725774→Z[98]： 0.0694318442 →Z[97]： 0.3300094782→ L ：U+W(Z[99] cos(G+Q（180÷∏）Z[97]W(（1÷P）+ Z[97]WD)) + Z[98] cos(G+（180÷∏）Q LW(（1÷P）+LWD)) + Z[98] cos(G+（180÷∏）（1