fx-4850P：垂線計算

垂線計算 【ファイル名：P4】

　　 Fixm:Defm 10:K=0
Lbl 0:Cls
　　 {A,B,K,F}
　　 "<SUISEN>"
　　 A"AX_":B"AY_"
　　 Cls
　　 "ZAHYO___⇒0"
　　 K"HOKOKAKU⇒1_"
　　 K＝0⇒Goto 1△
　　 Cls
　　 F"HOKOKAKU_":Goto 2
Lbl 1:Cls:{C,D}
　　 C"BX_":D"BY_"
　　 T=A:U=B:V=C:W=D
　　 Prog "ZA.SUB"
　　 Z＝999⇒Goto 0△
　　 F=Y:F≧360⇒F=F-360△
　　 "KYORI=":X:Pause 0
　　 "HOKOKAKU=":F→DMS▲
Lbl 2:Cls:{G,H}
　　 G"CX_":H"CY_"
　　 L=F-90
　　 L＜0⇒L=L+360△
　　 F＝90⇒Goto 3△
　　 F＝270⇒Goto 3△
　　 L＝90⇒Goto 4△
　　 L＝270⇒Goto 4△
　　 Z[1]=tan F
　　 Z[2]=tan L
　　 M=(Z[2]×G−Z[1]×A＋B−H)÷(Z[2]−Z[1])
　　 N=Z[1]×(M−A)＋B
　　 Z[3]=M−G
　　 Z[4]=N−H
　　 Z[3]≠0⇒Goto 7△
　　 Z[4]≠0⇒Goto 7△
　　 O=0:Goto 9
Lbl 7:Deg:Pol(Z[4],Z[3])
　　 O=I
Lbl 9:Z[3]=M−A
　　 Z[4]=N−B
　　 Z[3]≠0⇒Goto 8△
　　 Z[4]≠0⇒Goto 8△
　　 P=O:Goto 5
Lbl 8:Pol(Z[4],Z[3])
　　 P=I:Goto 5
Lbl 3:M=A:N=H
　　 O=Abs (A-G)
　　 P=Abs (B-H)
　　 Goto 5
Lbl 4:M=G:N=B
　　 O=Abs (B-H)
　　 P=Abs (A-G)
Lbl 5:"PX=":M:Pause 0
　　 "PY=":N▲
　　 "LP=":P:Pause 0
　　 "LC=":O▲
Lbl 6:I=0:Cls
　　 {I}
　　 "CONTINUE__⇒0"
　　 I"TOP⇒2__END⇒9_"
　　 I＝0⇒Goto 2△
　　 I＝2⇒Goto 0△
　　 I≠9⇒Goto 6△

エラー表示サブルーチン 【ファイル名：ER.SUB】

　　 Z=999
　　 "DATA_ERROR"
　　 Pause 3
　　 Cls

座標変換サブルーチン 【ファイル名：ZA.SUB】

　　 Fixm:Z=0
　　 (T-V)≠0⇒Goto 1△
　　 (U-W)≠0⇒Goto 1△
　　 Prog "ER.SUB":Goto 2
Lbl 1:X=W-U:Y=V-T
　　 Deg:Pol(Y,X):J≦0⇒J=J+360△
　　 X=I:Y=J
Lbl 2