交点計算(直線−直線)

交点計算(直線−直線) 【ファイル名：P6】（696バイト）

　　　Fixm:M=0:N=0
Lbl 0:"<KOUTEN_S-S>"
Lbl 1:{ABCDMK}
　　　A"A1X_":B"A1Y_"
　　　"A-LINE_INPUT"
　　　"__ZAHYO___⇒0"
　　　M"__HOKOKAKU⇒1_"
　　　M≠0⇒K"A-HOKO_"
　　　T=K:Prog "60.SUB"
　　　L=W:Goto 2△
　　　C"A2X_":D"A2Y_"
　　　T=A:U=B:V=C:W=D
　　　Prog "ZA.SUB"
　　　Z＝999⇒Goto 1△
　　　L=Y
　　　X"A-KYORI="▲
　　　T=L:Prog "60.SUB"
　　　K=V
　　　K"A-HOKO="▲
Lbl 2:{EFGHNP}
　　　E"B1X_":F"B1Y_"
　　　"B-LINE_INPUT"
　　　"__ZAHYO___⇒0"
　　　N"__HOKOKAKU⇒1_"
　　　N≠0⇒P"B-HOKO_"
　　　T=P:Prog "60.SUB"
　　　Q=W:Goto 3△
　　　G"B2X_":H"B2Y_"
　　　T=E:U=F:V=G:W=H
　　　Prog "ZA.SUB"
　　　Z＝999⇒Goto 2△
　　　Q=Y
　　　X"B-KYORI="▲
　　　T=Q:Prog "60.SUB"
　　　P=V
　　　P"B-HOKO="▲
Lbl 3:(K−P)＝0⇒Prog "ER.SUB":Goto 1△
　　　Abs (K-P)＝180⇒Prog "ER.SUB":Goto 1△
　　　T=A:U=B:V=E:W=F
　　　Prog "ZA.SUB"
　　　Z＝999⇒Goto 1△
　　　L＝90⇒Goto 4△
　　　L＝270⇒Goto 4△
　　　Q＝90⇒Goto 5△
　　　Q＝270⇒Goto 5△
　　　I=tan L
　　　J=tan Q
　　　R=(J×E−I×A＋B−F)÷(J−I)
　　　S=I×(R−A)＋B
　　　Goto 6
Lbl 4:R=A
　　　S=tan Q×(R−E)＋F
　　　Goto 6
Lbl 5:R=E
　　　S=tan L×(R−A)＋B
Lbl 6:R"PX="▲
　　　S"PY="▲
　　　Goto 2

QUICK RUN に書き加える条件文 （14バイト）

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

　　　Z=999
　　　"DATA_ERROR"
　　　Pause 1

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

　　　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

角度変換サブルーチン 【ファイル名：60.SUB】（153バイト）

　　　Fixm:V=T:W=T
　　　T＝0⇒Goto 1△
　　　X=T÷Abs T
　　　T=Abs T
　　　V=Int T:W=V
　　　Y=(T-V)×60
　　　I=Int Y
　　　J=(Y-I)×60
　　　V=(V+(J÷100+I)÷100)×X
　　　Y=Frac T×100
　　　I=Int Y
　　　J=(Y-I)×100
　　　W=(W+(I+J÷60)÷60)×X
Lbl 1

ご注意下さい

• プログラムを入力する前に、fx-4800Pの取扱説明書をよくお読みください。
• プログラムをご使用になる前に、「内容説明書」「操作手順書」「例題集」を良くお読みになり、操作方法を練習してください。

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