垂線計算

垂線計算 【ファイル名：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

ご注意下さい

• 上記プログラムソースは見やすいようにインデントされていますが、fx-4850Pに入力する際には、インデントを無視してください。
• ファイル名は変更可能ですが、ソフト起動プログラム（QUICK RUN）を利用する場合には変更しないでください。
• サブルーチンは他のプログラムと共用しますのでファイル名を変更しないでください。
• プログラムの入力やファイル名の変更は、fx-4850Pの取扱説明書をよくお読みになってから行ってください。
• アルファベットの「O」と数字の「0」を区別するため、アルファベットの「 O 」にアンダーラインを入れて表示しています。
• fx-4850Pのプログラムには通常のテキストでは忠実に表現できないものがあります。本プログラムリストでは下表の通り表現していますのでご注意ください。