SSE60

【機能】

    2点に接する（通過する）円を求める（3D）


【使用形式】

    CALL  SSE60(P1,P2,VZ,RD,PVC,ZCIR,IR)


【引数説明】

    ［INPUT］
        P1(3)       : 点1の座標
        P2(3)       : 点2の座標
        VZ(3)       : 接円の法線ベクトル
        RD          : 接円の半径
        PVC(3, 2)   : 接円の中心点の近傍点の座標と指示方向ベク
                      トル

    ［OUTPUT］                      
        ZCIR(3, 4) : 接円の中心座標、法線ベクトル、2接点の座標
        IR         : リターンフラグ     
                       0 ; 正常終了
                       1 ; 平面チェックエラー
                       2 ; 円が定義できない

【機能説明】

    ・2点に接する（通過する）円を求める。2点は入力された法線
      ベクトルを持つ同一平面になければならない。
    ・接円が複数ある場合、入力参照データ（PVC）により最適の接円
      を出力する。
    ・ZCIR(3, 4)
       +-----+-----+-----+
      1| XC  | YC  | ZC  |  中心
      2| Zi  | Zj  | Zk  |  法線ベクトル
      3| XT1 | YT1 | ZT1 |  点1上の接点
      4| XT2 | YT2 | ZT2 |  点2上の接点
       +-----+-----+-----+
    ・PVC(3, 2)
       +----+----+----+
      1| XN | YN | ZN |  近傍点
      2| Vi | Vj | Vk |  方向ベクトル
       +----+----+----+

【使用ルーチン】

    SSH16, SSH20, SSA60, SSH00, SSH31, SSH20, SSH21