SSB40

【機能】

    点と直線間の最短距離を求める（2D）


【使用形式】

    CALL  SSB40(P,PS,PE,XYTB,ISE,ZDI,IR)


【引数説明】

    ［INPUT］
        P(2)      : 点の座標
       PS(2)     : 直線の始点座標
       PE(2)     : 直線の終点座標

    ［OUTPUT］
        XYTB(2)  : 直線上の最短距離のための点座標
       ISE      : 直線上の点の位置フラグ
                     0 ; 始終点以外
                     1 ; 始点
                     2 ; 終点
        ZDI      : 最短距離
        IR       : リターンコード
                    0 ; 正常
                    1 ; 入力エラー

【機能説明】

    ・点と直線間の最短距離を求める。
    ・直線上に点がある場合、最短距離はゼロとなる。