SSF59

【機能】

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


【使用形式】

    CALL  SSF59(N,XTB,YTB,ZTB,PO,VEC,ZCF,PS,PE,
                     ITYP,NI,XYTB,ISE,ZDI,IR)


【引数説明】

    ［INPUT］
        N                      : 折れ線の頂点数                
        XTB(N), YTB(N), ZTB(N) : 折れ線の頂点座標              
        PO(3)                  : コニックの原点                
        VEC(3, 3)              : コニックの要素座標系定義軸ベク
                                 トル                          
        ZCF(6)                 : コニックの係数配列            
        PS(2), PE(2)           : コニックの始終点座標          
        ITYP                   : コニックの種別                
                                   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要素間の点位置フラグ             
                          +--------+--------+             
                        1 |   I1   |   I2   |             
                        : +--------+--------+             
                        : +--------+--------+             
                        NI|________|________|             
                           折れ線   コニック                
        ZDI      : 最短距離                               
        IR       : リターンフラグ                         
                     0 ; 正常終了                         
                     1 ; 入力エラー                       
【機能説明】

    ・折れ線とコニックの最短距離を求める。
    ・ISE（1, *）（折れ線の点位置フラグ）が負の場合は、N辺目で
      最短距離が求まったことを示す。