Gražina Y/X arktangentą, nuo -PI iki PI ribose.

Tangento operacijai, galima naudoti Math::Trig::tan funkciją, arba panašų ryšį:

    sub tan { sin($_[0]) / cos($_[0])  }