Write a code in tibasic to basic that allows me to get the correct angle regardless of quadrant it's in$.$ Think sort of like atan$2$d Matlab function code in tibasic. test it first please! should display one correct angle at the endt

this is how far I was able to get, use this as a base or don't if you wish, up to you!

Define LibPub ank$($z$)=$

Func

:Local a$,$b$,\backslash$theta

:a:$=$real$($z$)$

:b:$=$imag$($z$)$

:$\backslash$theta :$=$arctan$((($b$)/($a$)))$

:If a$<0$ and b$>0$ Then

: $\backslash$theta :$=$angle$($z$)-180*2$

:ElseIf a$<0$ and b$!=0$ Then

: $\backslash$theta :$=180-\backslash$theta

:Else

: $\backslash$theta :$=$angle$($z$)$

:EndIf

:Return $\backslash$theta

:EndFunc

Should work for ank$(1+1$i$),$ ank$(1-1$i$),$ ank$(-1-1$i$),$ ank$(-1+1$i$),$ and ank$(1/(($i$*10)^3+7*($i$*10)^2+14*$i$*10+7))$