SSF44

【機能】

    2直線間の最短距離を求める（3D）


【使用形式】

    CALL  SSF44(PS1,PE1,PS2,PE2,XYTB,ISE,ZDI,IR)


【引数説明】

    ［INPUT］
        PS1(3)   : 直線1始点座標
        PS1(3)   : 直線1終点座標
        PS2(3)   : 直線2始点座標
        PS2(3)   : 直線2終点座標

    ［OUTPUT］
        XYTB(6)   : 2直線の最短距離点座標
                      +----+----+----+----+----+----+
                      | X1 | Y1 | Z1 | X2 | Y2 | Z2 |
                      +----+----+----+----+----+----+
                       :............:  :...........:
                           直線1          直線2
        ISE(2)    : 2直線上の点位置フラグ
                      0 ; 始終点以外
                      1 ; 始点
                      2 ; 終点
        ZDI       : 最短距離
        IR        : リターンフラグ
                      0 ; 正常終了
                      1 ; 入力エラー

【機能説明】

    ・2直線間の最短距離を求める。
    ・2直線が平行の場合、最短距離座標は直線1の始終点の何れか
      と、その点を直線2に投影した点がセットされる。