SSF57

【機能】

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


【使用形式】

    CALL  SSF57(N1,XTB1,YTB1,ZTB1,N2,XTB2,YTB2,
                     ZTB2,NI,XYTB,ISE,ZDI,IR)


【引数説明】

    ［INPUT］
        N1                           : 折れ線1の頂点数   
        XTB1(N1), YTB1(N1), ZTB1(N1) : 折れ線1の頂点座標 
        N2                           : 折れ線2の頂点数   
        XTB2(N2), YTB2(N2), ZTB2(N2) : 折れ線2の頂点座標 
                                                          
    ［OUTPUT］                                    
        NI           : 交点数（交点がない場合、、NI=1）   
        XYTB(6, NI)  : 2要素間の最短距離点座標           
                       1    2    3    4    5    6         
                     +----+----+----+----+----+----+      
                   1 | X1 | Y1 | Z1 | X2 | Y2 | Z2 |      
                   : |----:----:----:----:----:----|      
                   : +----+----+----+----+----+----+      
                   NI|____|____|____|____|____|____|      
                      :............:  :...........:       
                         折れ線1        折れ線2           
        ISE(2, NI)   : 2要素上の最短点位置フラグ         
                         ＜0 ; N辺目で最短距離が求まった  
                         ＞0 ; N頂点目で最短距離が求まった
                          +--------+--------+             
                        1 |        |        |             
                        : +--------+--------+             
                        : +--------+--------+             
                        NI|________|________|             
                           折れ線1  折れ線2             
        ZDI      : 最短距離                               
        IR       : リターンフラグ                         
                     0 ; 正常終了                         
                     1 ; 入力エラー                       
【機能説明】

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