SSG40

【機能】

    2点与えて、直線の方程式を求める（2D）


【使用形式】

    CALL  SSG40(XS,YS,XE,YE,WA,WB,WC,IR)


【引数説明】

    ［INPUT］
        XS, YS, XE, YE : 直線の通過点の座標
                        （XS, YS）≠（XE, YE）

    ［OUTPUT］                      
        WA, WB, WC : 直線方程式 WAx+WBy+WC=0の係数             
                     但し、WA**2+WB**2=1として正規化されている。
        IR       : リターンフラグ                             
                      0 ; 正常                                  
                     -1 ; 入力エラー                            

【機能説明】

    ・（XS, YS）=（XE, YE）のときのみ、IR=-1を出力する。