【機能】 直線の通過点を与えて円との交点を求める(2D) 【使用形式】 CALL SSA01(XS,YS,XE,YE,XC,YC,R,XYP,IR) 【引数説明】 [INPUT] XS,YS,XE,YE : 直線の通過点の座標 XC,YC : 円の中心座標 R : 円の半径(R>0) [OUTPUT] XYP(2, 2) : 交点座標テーブル ┼─────┼─────┼ │(1,1)│(2,1)│ 交点1(X1, Y1) │(1,2)│(2,2)│ 交点2(X2, Y2) ┼─────┼─────┼ IR : リターンフラグ 0 ; 交点なし 1 ; 交点が1点存在する(接する) 2 ; 2交点が存在する -1 ; 入力エラー 【機能説明】 ・(XS, YS)=(XE, YE)またはR≦0の時のみ、IR=-1を出力する。 【使用ルーチン】 SSG40, SSA011