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

Astro::Coord::ECI

Astro::Coord::ECI::VSOP87D

SUPPORT

Support is by the author. Please file bug reports at 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-2021 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.