diff options
| author | Steve Hay <SteveHay@planit.com> | 2009-01-14 18:12:18 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2009-01-14 18:12:18 +0000 |
| commit | 1e98a568fc7f77573643406492540266e2a7c858 (patch) | |
| tree | 5ff253913b5ff14e4207bfc2bce93b27008908c6 /lib/Math/Trig.pm | |
| parent | 7e4d713840adceb97ef79df9b2a4d5046a2a3c79 (diff) | |
| download | perl-1e98a568fc7f77573643406492540266e2a7c858.tar.gz | |
Upgrade to Math-Complex-1.55
Diffstat (limited to 'lib/Math/Trig.pm')
| -rw-r--r-- | lib/Math/Trig.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/Math/Trig.pm b/lib/Math/Trig.pm index 6d4d949796..30e8433d5e 100644 --- a/lib/Math/Trig.pm +++ b/lib/Math/Trig.pm @@ -10,14 +10,14 @@ package Math::Trig; use 5.005; use strict; -use Math::Complex 1.54; +use Math::Complex 1.55; use Math::Complex qw(:trig :pi); use vars qw($VERSION $PACKAGE @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); @ISA = qw(Exporter); -$VERSION = 1.18; +$VERSION = 1.19; my @angcnv = qw(rad2deg rad2grad deg2rad deg2grad @@ -166,7 +166,7 @@ sub great_circle_distance { sub great_circle_direction { my ( $theta0, $phi0, $theta1, $phi1 ) = @_; - my $distance = &great_circle_distance; + my $distance = great_circle_distance($theta0, $phi0, $theta1, $phi1); my $lat0 = pip2 - $phi0; my $lat1 = pip2 - $phi1; @@ -684,7 +684,7 @@ B<NOTE>: you B<cannot> get from A to B like this: and expect C to be B, because the bearing constantly changes when going from A to B (except in some special case like the meridians or the circles of latitudes) and in great_circle_destination() one gives -a constant bearing to follow. +a B<constant> bearing to follow. =head2 CAVEAT FOR GREAT CIRCLE FORMULAS |