SSG46

【機能】

    4次方程式の解を求める


【使用形式】

    CALL  SSG46(ZA,ZB,ZC,ZD,ZE,X,IR)


【引数説明】

    ［INPUT］
        ZA〜ZE : 4次方程式の係数（ZA≠0）

    ［OUTPUT］                 X       
        X(4)       : 実根   +----+   
                            | X1 |   
                            +----+   
                            | X2 |   
                            +----+   
                            | X3 |   
                            +----+   
                            | X4 |   
                            +----+   
        IR       : リターンフラグ  
                      0 ; 実根なし   
                   1〜4 ; 実根の数   
                     -1 ; 入力エラー 

【機能説明】

    ・4次方程式ax**4+bx**3+cx**2+dx+e=0（a≠0）の実根を求める。
    ・ZA=0の時、IR=-1を出力する。