积木法 001.docVIP

Z-JSMS （运算模式） Fix 3：55→Dimz “1-ZS,2-F1,3-FS”：”4-F2,5-ZQ,6-ZM”：Lbl 0：”MS”?Z：Z→Z[50] If Z≤2：Then Goto 1：Else If Z≤4： Then Goto2： Else Goto3：IfEnd：IfEnd Lbl 1：”P”?P：”BZ”?D：”BJ”?W：Prog”JP”：”X=”：Locate5,4,X▲ ”Y=”：Locate6,4,Y▲ If Z2：Then Goto1：Else Prog”JS”：Prog”JC”：”Z=”：H+G→H▲ Goto1：IfEnd Lbl 2：”X”?X：”Y”?Y：”BJ”?W：Prog”JF”：”P=”：Locate5,4,P▲ ”BZ=”：Locate6,4,D▲ If Z4：Then Goto2：Else “ZP”?Q：Prog”JC”:Prog”JB”:Goto2:IfEnd Lbl 3：”P”?P：Prog”JS”：”ZO=”：Locate5,4,H▲ If Z6：Then Goto3：Else “BZ”?D：Prog”JC” “U=”:M+N▲ “Z=”:H+G▲ Goto3:IfEnd ZS Fix 4：55→Dimz K-A→S:(Q-P)÷L→I U+∫(cos(W+X(2P+XI)×90÷π),0,S)→N V+∫(sin(W+X(2P+XI)×90÷π),0,S)→E W+S(2P+SI)×90÷π→F N+Tcos(F+B) →X E+Tsin(F+B) →Y Return ZF Fix 4：55→Dimz Lbl 0:Prog”ZA” Pol(X-N,Y-E):Icos(F-J)→S:K+S→K Abs(S)0.0001 =Goto 0 Isin(J-F)→T Return ZA Fix 4：55→Dimz 11830~A:5970.011~U:5346.101~V:313d18’50.6”~W:0~P:0~Q:0.484~L :If K≤A+L:Then Goto 1:Else 11830.484~A:5970.343~U:5345.749~V:313d18’50.6”~W:0~P:1/253~Q:114~L :If K≤A+L:Then Goto 1:Else 11944.484~A:6054.357~U:5269.074~V:326d13’21.3”~W:1/253~P:1/253~Q:472.184~L :If K≤A+L:Then Goto 1:Else 12188.668~A:6287.831~U:5244.008~V:21d31’18.7”~W:1/253~P:0~Q:114~L :If K≤A+L:Then Goto 1:Else 12302.668~A:6386.207~U:5301.102~V:34d25’49.4”~W:0~P:0~Q:461.997~L :If K≤A+L:Then Goto 1:Else 12764.665~A:6767.268~U:5562.317~V:34d25’49.4”~W:0~P:1/880~Q:90~L :If K≤A+L:Then Goto 1:Else 12854.665~A:6840.615~U:5614.455~V:37d21’37”~W:1/880~P:1/880~Q:354.079~L :If K≤A+L:Then Goto 1:Else 13028.744~A:6967.664~U:5733.044~V:48d41’39.7”~W:1/880~P:0~Q:90~L :If K≤A+L:Then Goto 1:Else Prog”Z-JSMS” Lbl 1:Prog”ZS” Renturn →÷× ▲ ≤ ≥ ÷ × π ÷ ∫