放射状逆計算 Ver3.0
メモリーを増設　SHIFT  Defm  30 EXE	

打設点を連続に入力出来るように更新しました。

M"BS.X=":T"BS.Y=":O"KI.X=":P"XI.Y="EXE
Z[20]=O-M:Z[21]=P-T:Pol(Z[20],Z[21]):
Fixm：J：Fixm：I：J≧0⇒L=J:Goto 0:
≠⇒L=J+360:Lbl 0:L"BS-KIHO="▲
I"BS-KI.S="▲
Lbl A:｛S,K｝:S"PX=":K"PY=":
Z[20]=S-O:Z[21]=K-P:
Pol(Z[20],Z[21]):Fixm：J：Fixm：I：
J≧0⇒Z[22]=J:Goto 1:≠⇒Z[22]=J+360:
Lbl 1:Z[23]=I:Z[23]"P.S="▲
Z[22]"P.HO="▲Z[24]=(Z[22]+180)-L:
Z[24]"P.KYO="▲
Goto A


BS.X=?     447.866     後視点X座標入力
BS.Y=?     186.874     後視点Y座標入力
KI.X=?     464.205     器械設置X座標
XI.X=?     177.441　　 器械設置Y座標


B-KIHO=   330.0008575    330°00′03.09″ 後視点より器械点への入射角
B-KI.S=    18.86648907    　　　　　　　　後視点より器械点への距離


PX=?       498.846     打設点X座標入力
PY=?       157.441     打設点Y座標入力
P.S=       39.99998601　　　　　　　　　　 器械点から打設点までの距離
P.HO=     329.9999884    329°59′59.96″  器械点から打設点への方向角
P.KYO=    179.9991309    179°59′56.87″  器械点から打設点への夾角

PX=?       524.281     打設点X座標入力
PY=?       142.756     打設点Y座標入力
P.S=        69.36984216　　　　　　　　　  器械点から打設点までの距離
P.HO=     329.9999247    329°59′59.73″  器械点から打設点への方向角
P.KYO=    179.9990672    179°59′56.64″  器械点から打設点への夾角