SSF50

【機能】

    円または円弧と、コニック間の最短距離を求める（3D）

【使用形式】

    CALL  SSF50(PC,VZ,R,PS1,PE1,PO,VEC,ZCF,PS2,
                     PE2,ITYPE,NI,XYTB,ISE,ZDI,IR)

【引数説明】
    ［INPUT］
        PC(3), VZ(3)  : 円または円弧の中心座標、法線ベクトル
        R             : 円の半径（円弧の時、R=0）
        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 |円または円弧| コニック |
                        : +------------+----------+
                        : +------------+----------+
                        NI|____________|__________|

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

    ・円または円弧とコニック間の最短距離を求める。