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

:EndFuncLibPub 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 :EndFuncLibPub ank$($z$)=$Func:Local a$,$b$,\backslash$theta :a:$=$real$($z$)$:b:$=$imag$($z$)$:$\backslash$theta :$=$tan$((($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