Hello,
I try to get moonrise and moonset times, but it gives me false details
and about week in the future. Here is my script:
#!/usr/bin/perl -w
use Astro::Coord::ECI;
use Astro::Coord::ECI::Moon;
my $lat=54.58;
my $long=18.39;
my $alt=0;
my $moon = Astro::Coord::ECI::Moon->new ();
my $sta = Astro::Coord::ECI->universal(time() )->geodetic ($lat, $long,
$alt);
my ($time, $rise) = $sta->next_elevation ($moon);
print scalar localtime (time),"\n";
print "Moon @{[$rise ? 'rise' : 'set']} is ",scalar localtime
$time,"\n";
and here is result:
Fri Oct 17 01:56:01 2008
Moon rise is Wed Oct 29 15:32:24 2008
according to: http://aa.usno.navy.mil/data/docs/RS_OneYear.php
its not even proper time for 29th of Oct.
Is there an error in my script? I did like it was in excample at
http://search.cpan.org/~wyant/Astro-satpass-0.018/lib/Astro/Coord/ECI/
Moon.pm
... or is it a bug in Astro::Coord::ECI::Moon.
All the best, Michael Tocha