Lines Matching defs:atan2
88 'atan2' => \&atan2,
253 sub pi () { 4 * CORE::atan2(1, 1) }
342 CORE::atan2($y, $x)];
935 return CORE::atan2(CORE::sqrt(1-$z*$z), $z)
947 my $u = CORE::atan2(CORE::sqrt(1-$beta*$beta), $beta);
960 return CORE::atan2($z, CORE::sqrt(1-$z*$z))
972 my $u = CORE::atan2($beta, CORE::sqrt(1-$beta*$beta));
985 return CORE::atan2($z, 1) unless ref $z;
1031 return ($z >= 0) ? CORE::atan2(1, $z) : CORE::atan2(-1, -$z)
1162 return cplx(0, CORE::atan2(CORE::sqrt(1 - $re*$re), $re))
1266 # (atan2)
1270 sub atan2 {
1281 return CORE::atan2($re1, $re2) if $im1 == 0;
1662 atan2(z1, z2) = atan(z1/z2)