SSF47

【機能】

    直線とコニック間の最短距離を求める（3D）

【使用形式】

    CALL  SSF47(PS1,PE1,PO,VEC,ZCF,PS2,PE2,ITYPE,
                     NI,XYTB,ISE,ZDI,IR)

【引数説明】

    ［INPUT］
        PS1(3), PE1(3) : 直線始終点座標
        PO(3)          : コニック要素座標系原点
        VEC(3, 3)      : コニック要素座標系軸ベクトル
        ZCF(6)         : コニック係数
        PS2(2), PE2(2) : コニック始終点座標（完楕円の時、使用し
                         ない）
        ITYPE          : コニックタイプ
                           0 ; 完楕円
                           1 ; 楕円弧
                           2 ; 双曲線
                           3 ; 放物線

    ［OUTPUT］
        NI           : 交点数（交点以外の時、NI=1）
        XYTB(6, NI)  : 2要素の最短距離点座標
                        1    2    3    4    5    6
                      +----+----+----+----+----+----+
                    1 | X1 | Y1 | Z1 | X2 | Y2 | Z2 |
                    : +----+----+----+----+----+----+
                    : +----+----+----+----+----+----+
                    NI|____|____|____|____|____|____|
                       :............:  :...........:
                           直線          コニック
        ISE(2, NI)   : 2要素上の点位置フラグ
                         0 ; 始終点以外       1        2
                         1 ; 始点          +------+----------+
                         2 ; 終点        1 | 直線 | コニック |
                                         : +------:----------+
                                           +------+----------+
                                         NI|______|__________|

        ZDI          : 最短距離
        IR           : リターンフラグ 
                         0 ; 正常終了
                         1 ; 入力エラー
【機能説明】

    ・直線とコニック間の最短距離を求める。