NAME
Astro::Coord::ECI::VSOP87D::Mars - VSOP87D model of the position of Mars
SYNOPSIS
use Astro::Coord::ECI::VSOP87D::Mars;
use Astro::Coord::ECI::Utils qw{ deg2rad };
use POSIX qw{ strftime };
use Time::Local qw{ localtime };
my $station = Astro::Coord::ECI->new(
name => 'White House',
)->geodetic(
deg2rad( 38.899 ), # radians
deg2rad( -77.038 ), # radians
16.68/1000, # Kilometers
);
my $venus = Astro::Coord::ECI::VSOP87D::Mars->new(
station => $station,
);
my $today = timelocal( 0, 0, 0, ( localtime )[ 3 .. 5 ] );
foreach my $item ( $venus->almanac( $today, $today + 86400 ) ) {
local $\ = "\n";
print strftime( '%d-%b-%Y %H:%M:%S', localtime $item->[0] ),
$item->[3];
}DESCRIPTION
This Perl class computes the position of Mars using the VSOP87D model. It is a subclass of Astro::Coord::ECI::VSOP87D::_Superior.
METHODS
This class supports no additional public methods.
ATTRIBUTES
This class has no additional attributes.
SEE ALSO
SUPPORT
Support is by the author. Please file bug reports at https://rt.cpan.org/Public/Dist/Display.html?Name=Astro-Coord-ECI-VSOP87D, https://github.com/trwyant/perl-Astro-Coord-ECI-VSOP87D/issues, or in electronic mail to the author.
AUTHOR
Thomas R. Wyant, III wyant at cpan dot org
COPYRIGHT AND LICENSE
Copyright (C) 2018-2022, 2024 by Thomas R. Wyant, III
This program is free software; you can redistribute it and/or modify it under the same terms as Perl 5.10.0. For more details, see the full text of the licenses in the directory LICENSES.
This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose.