diff options
| author | Steve Peters <steve@fisharerojo.org> | 2007-01-23 02:14:57 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2007-01-23 02:14:57 +0000 |
| commit | 618e05e99e34cbe2ae357d3095f9fe6df2a90941 (patch) | |
| tree | 0bde57821fa3287d07df32d5c8468f49d933f514 /lib/Math/Trig.pm | |
| parent | d15eb09c9a4874aa1cf7974412cffc4408f784bd (diff) | |
| download | perl-618e05e99e34cbe2ae357d3095f9fe6df2a90941.tar.gz | |
Upgrade to Math-Complex-1.37.
p4raw-id: //depot/perl@29932
Diffstat (limited to 'lib/Math/Trig.pm')
| -rw-r--r-- | lib/Math/Trig.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Math/Trig.pm b/lib/Math/Trig.pm index 37b3b755b6..0ae7233b3b 100644 --- a/lib/Math/Trig.pm +++ b/lib/Math/Trig.pm @@ -189,7 +189,7 @@ sub great_circle_waypoint { my $z = $A * sin($lat0) + $B * sin($lat1); my $theta = atan2($y, $x); - my $phi = atan2($z, sqrt($x*$x + $y*$y)); + my $phi = acos($z); return ($theta, $phi); } @@ -647,7 +647,7 @@ The midpoint between London and Tokyo being my @M = great_circle_midpoint(@L, @T); -or about 68.11N 24.74E, in the Finnish Lapland. +or about 89.16N 68.93E, practically at the North Pole. =head2 CAVEAT FOR GREAT CIRCLE FORMULAS |