use 5.005;
use strict;
-use Math::Complex 1.36;
+use Math::Complex 1.43;
use Math::Complex qw(:trig :pi);
use vars qw($VERSION $PACKAGE @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
@ISA = qw(Exporter);
-$VERSION = 1.04;
+$VERSION = 1.08;
my @angcnv = qw(rad2deg rad2grad
deg2rad deg2grad
my @pi = qw(pi pi2 pi4 pip2 pip4);
-@EXPORT_OK = (@rdlcnv, @greatcircle, @pi);
+@EXPORT_OK = (@rdlcnv, @greatcircle, @pi, 'Inf');
# See e.g. the following pages:
# http://www.movable-type.co.uk/scripts/LatLong.html
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);
}
my @M = great_circle_midpoint(@L, @T);
-or about 68.11N 24.74E, in the Finnish Lapland.
+or about 68.93N 89.16E, in the frozen wastes of Siberia.
=head2 CAVEAT FOR GREAT CIRCLE FORMULAS
Jarkko Hietaniemi <F<jhi!at!iki.fi>> and
Raphael Manfredi <F<Raphael_Manfredi!at!pobox.com>>.
+=head1 LICENSE
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
=cut
# eof