SSF55

【機能】

    線分と折れ線の最短距離を求める（3D）


【使用形式】

    CALL  SSF55(PS,PE,N,XTB,YTB,ZTB,NI,XYTB,ISE,
                     ZDI,IR)

【引数説明】

    ［INPUT］
        PS(3), PE(3)           : 線分の始終点    
        N                      : 折れ線の頂点数  
        XTB(N), YTB(N), ZTB(N) : 折れ線の頂点座標

    ［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 ; N辺目で最短距離が求まった  
                         ＞0 ; N頂点目で最短距離が求まった
                          =1 ; 始点                       
                          =2 ; 終点                       
                          =0 ; 始終点以外（線分の場合）   
                          +--------+--------+             
                        1 |    |     |             
                        : +--------+--------+             
                        : +--------+--------+             
                        NI|________|________|             
                            線分     折れ線               
        ZDI      : 最短距離                               
        IR       : リターンフラグ                         
                     0 ; 正常終了                         
                     1 ; 入力エラー                       
【機能説明】

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