SSA40

【機能】

    1点を通り円に接する直線の円との接点を求める（2D）


【使用形式】

    CALL  SSA40(X,Y,XC,YC,R,XYT,IR)


【引数説明】

    ［INPUT］
        X, Y      : 点の座標
        XC, YC    : 円の中心座標
        R         : 円の半径

    ［OUTPUT］
        XYT(2, 2) : 接点座標テーブル
　　　　　　　　　　　┼──┼──┼
　　　　　　　　　　　│Ｘ１│Ｙ１│ 接点1
　　　　　　　　　　　│Ｘ２│Ｙ２│ 接点2
　　　　　　　　　　　┼──┼──┼
        IR        : リターンフラグ
                      0 ; 接線が定義できない
                      1 ; 点が円周上に存在する
                      2 ; 接線の数
                     -1 ; 入力エラー


【機能説明】

  ・R≦0の時のみIR=-1を出力する。
 

【使用ルーチン】

    SSA04