Returns the arctangent of Y/X in the range -PI to PI.
For the tangent operation, you may use the POSIX::tan() function, or use the familiar relation:
POSIX::tan()
sub tan { sin($_[0]) / cos($_[0]) }