SSE65

【機能】

    2直線に接する円を求める（3D）


【使用形式】

    CALL  SSE65(PS1,PE1,PS2,PE2,RD,PV1,PV2,ZCIR,
                     IR)


【引数説明】

    ［INPUT］
        PS1(3), PE1(3) : 直線1上の2点の座標                    
        PS2(3), PE2(3) : 直線2上の2点の座標                    
        RD             : 接円の半径                              
        PV1(3, 2)      : 直線1上の接点の近傍点の座標と指示方向  
                         ベクトル                                
        PV2(3, 2)      : 直線2上の接点の近傍点の座標と指示方向  
                         ベクトル                                

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

【機能説明】
							
    ・2直線の接円を求める。2直線は同一平面上になければならな
      い。近傍点データにより、最適接円を出力する。
    ・ZCIR(3, 4)
       +-----+-----+-----+
      1| XC  | YC  | ZC  |  中心
      2| Zi  | Zj  | Zk  |  法線ベクトル
      3| XT1 | YT1 | ZT1 |  直線1上の接点
      4| XT2 | YT2 | ZT2 |  直線2上の接点
       +-----+-----+-----+
    ・PVn(3, 2)
       +----+----+----+
      1| XN | YN | ZN |  近傍点
      2| Vi | Vj | Vk |  方向ベクトル
       +----+----+----+

【使用ルーチン】

    SSH10, SSH20, SSA65, SSH00, SSH31, SSH21, SSH01