XProfan

proc atan4

    parameters x!,y!
    var w!=0

    si x!>0

        si y!>0

            si x!>y!:w!=arctan(y!/x!)

                d'autre :w!=1.57079632679489662-arctan(x!/y!)

            endif

        elseif y!<0

            si x!<-y!:w!=4.7123889803846899+arctan(x!/-y!)

                d'autre :w!=6.28318530717958648-arctan(-y!/x!)

            endif

            d'autre:w!=0'y=0

        endif

    elseif x!<0

        si y!>0

            si x!>-y!:w!=1.57079632679489662+arctan(-x!/y!)

                d'autre :w!=3.1415926535897932-arctan(y!/-x!)

            endif

        elseif y!<0

            si x!<y!:w!=3.1415926535897932+arctan(-y!/-x!)

                d'autre :w!=4.7123889803846899-arctan(-x!/-y!)

            endif

            d'autre:w!=3.1415926535897932

        endif

    d'autre'si x=0

        si y!>0:w!=1.57079632679489662

        elseif y!<0:w!=4.7123889803846899

            d'autre:w!=0

        endif

    endif

    return w!

endproc