SSA80

【機能】

    3点を通る円の情報を得る（2D）


【使用形式】

    CALL  SSA80(X1,Y1,X2,Y2,X3,Y3,XYC,IR)


【引数説明】

    ［INPUT］
        X1, Y1    : 点1の座標
       X2, Y2    : 点2の座標
       X3, Y3    : 点3の座標

    ［OUTPUT］
        XYC(3)  : 接円情報テーブル
                   +---+---+---+
                   | X | Y | RT|
                   +---+---+---+
                 接円の中心  半径

        IR      : リターンフラグ
                    0 ; 正常終了
                   -1 ; 入力エラー
                   -2 ; 3点が1直線上にある

【機能説明】

    ・3点を通る円の中心座標、半径を出力する。
    ・(X1, Y1)=(X2, Y2)または(X2, Y2)=(X3, Y3)または(X1, Y1)=
      (X3, Y3)の場合のみIR=-1を出力する。


【使用ルーチン】

    SSG40, SSA001