OpenEuphoria

FIND THE TRUE TAN WITHIN A CIRCLE

• Posted by RodDamon at AOL.COM Mar 22, 1999
• 581 views

constant Pi=3.14159265359 --- Now in version 2.1

global function Sgn(atom x)
        if x>0 then
                return 1
        elseif x<0 then
                return -1
        else
                return 0
        end if
end function

global function arctan2(atom Y, atom X)
        return
))+(-Pi*2)*-(X<0))


WHERE X & Y ARE:

                                   +Y
                                     I
                                     I
                         -X -------------- +X
                                     I
                                     I
                                   -Y

Rod Damon
CAD-FAB ASSOCIATES
Montevallo, Al.