_ _ ,_ /^\/^\-/ @D~(________/ PERL.LT |L |L L L
Gražina Y/X arktangentą, nuo -PI iki PI ribose.
Tangento operacijai, galima naudoti Math::Trig::tan funkciją, arba panašų ryšį:
Math::Trig::tan
sub tan { sin($_[0]) / cos($_[0]) }