SSG50

【機能】

    連立2元2次方程式より1元4次方程式の係数を求める


【使用形式】

    CALL  SSG50(ZAF1,ZAF2,IFG,ZA,ZB,ZC,ZD,ZE,IR)


【引数説明】

    ［INPUT］
        ZAF1(6) : 2元2次方程式の係数              
        ZAF2(6) : 2元2次方程式の係数              
        IFG     : X, Yのうちどちらについて整理するか
                    1 ; Xについて                  
                    2 ; Yについて                  

    ［OUTPUT］                      
        ZA〜ZE     : 1元4次方程式の係数
        IR         : リターンフラグ      
                      0 ; 正常終了       
                     -1 ; 入力エラー     

【機能説明】

    ・A1x**2+B1xy+C1y**2+D1x+E1y+F1=0 ････(1)
    ・A2x**2+B2xy+C2y**2+D2x+E2y+F2=0 ････(2)
      yの係数を求める場合、(1)をxについて解くと

       x={-(B1y+D1)±SQRT((B1y+D1)**2-4A1(C1y**2+E1y+F1))}/2A1

      これを(2)に代入し、yについて整理して係数を求める。