2円の交点計算 FILE 2EN−KOUTEN Lbl 0:A "1−X":B "1−Y":C "2−X":D "2−Y" EXE  E=C−A:F=D−B:I=√(E^2+F^2):K=Tan-1  (F÷E):L "1−R":M "2−R" EXE Z=L^2+I^2-M^2:T=Z÷(2×L×I):N=Cos-1 T:S  "R0−L1" EXE S=0⇒Goto 5:≠⇒Goto 4:Lbl 5:O=L×Cos  (K+N)+A: P=L×Sin(K+N)+B:O "RPX=" ▲P"RPY=" ▲ Goto 0:Lbl 4 :Q=L×Cos(K−N)+A:R=L×Sin(K−N)+B:Q  "LPX=" ▲R "LPY=" ▲Goto 0 2円の交点計算 1−X?     円の中心のX座標       例題  10.125   EXE 1−Y?     円の中心のY座標       例題  20.135   EXE 2−X?     円の中心のX座標       例題  12.356   EXE 2−Y?     円の中心のY座標       例題  25.321   EXE 1−R?     半径の入力           例題  5.000   EXE 2−R?     半径の入力           例題  5.000   EXE R.0−L.1?      右側の交点計算の場合 0入力  EXE             左側の交点計算の場合 1入力  EXE この例題は、1              EXE LPX=15.03156393            EXE LPY=21.09709687           EXE    AC/on Break 入力画面に戻る AC/on 2回押しで終了。