Astro-Coord-ECI-VSOP87D

 view release on metacpan or  search on metacpan

t/planet_jupiter.t  view on Meta::CPAN

my $time = timegm( 0, 0, 0, 1, 0, 2018 );

$jupiter->universal( $time );

note <<'EOD';

Conjunctions and elongations

Times from Guy Ottewell's Astronomical Calendar 2018
http://www.universalworkshop.com/astronomical-calendar-2018/
He gives them to the nearest hour, so that is the accuracy of
my check.
EOD

( $time, my $quarter, my $desc ) = $jupiter->next_quarter();

note 'West quadrature';
is $quarter, 1, 'Event is west quadrature';
is strftime_h( $time ), '2018-02-10 23', 'Time of west quadrature';
# Ottewell JD 2458160.471

t/planet_mars.t  view on Meta::CPAN

my $time = timegm( 0, 0, 0, 1, 0, 2017 );

$mars->universal( $time );

note <<'EOD';

Conjunctions and elongations

Times from Guy Ottewell's Astronomical Calendar 2017 and 2018
http://www.universalworkshop.com/astronomical-calendar-2017/
http://www.universalworkshop.com/astronomical-calendar-2018/
He gives them to the nearest hour, so that is the accuracy of
my check.
EOD

( $time, my $quarter, my $desc ) = $mars->next_quarter();

note 'Conjunction';
is $quarter, 0, 'Event is conjunction';
is strftime_h( $time ), '2017-07-27 01', 'Time of conjunction';

t/planet_mercury.t  view on Meta::CPAN

$mercury->universal( $time );

( $time, my $quarter, my $desc ) = $mercury->next_quarter();

note <<'EOD';

Conjunctions and elongations

Times from Guy Ottewell's Astronomical Calendar 2018
http://www.universalworkshop.com/astronomical-calendar-2018/
He gives them to the nearest hour, so that is the accuracy of
my check.
EOD

note 'Elongation west';
is $quarter, 3, 'Event is elongation west';
is strftime_h( $time ), '2018-01-01 20', 'Timm of elongation west';
is sprintf( '%.1f', rad2deg( $mercury->__angle_subtended_from_earth() )
    ), '-22.7', 'Angle of elongation west';
# TODO Ottewell has 22.6

t/planet_neptune.t  view on Meta::CPAN

my $time = timegm( 0, 0, 0, 1, 0, 2018 );

$uranus->universal( $time );

note <<'EOD';

Conjunctions and elongations

Times from Guy Ottewell's Astronomical Calendar 2018
http://www.universalworkshop.com/astronomical-calendar-2018/
He gives them to the nearest hour, so that is the accuracy of
my check.
EOD

( $time, my $quarter, my $desc ) = $uranus->next_quarter();

note 'Conjunction';
is $quarter, 0, 'Event is conjunction';
is strftime_h( $time ), '2018-03-04 14', 'Time of conjunction';
# Ottewell JD 2458182.081

t/planet_saturn.t  view on Meta::CPAN

my $time = timegm( 0, 0, 0, 1, 0, 2018 );

$saturn->universal( $time );

note <<'EOD';

Conjunctions and elongations

Times from Guy Ottewell's Astronomical Calendar 2018
http://www.universalworkshop.com/astronomical-calendar-2018/
He gives them to the nearest hour, so that is the accuracy of
my check.
EOD

( $time, my $quarter, my $desc ) = $saturn->next_quarter();

note 'West quadrature';
is $quarter, 1, 'Event is west quadrature';
is strftime_h( $time ), '2018-03-29 14', 'Time of west quadrature';
# Ottewell JD 2458207.091

t/planet_uranus.t  view on Meta::CPAN

my $time = timegm( 0, 0, 0, 1, 0, 2018 );

$uranus->universal( $time );

note <<'EOD';

Conjunctions and elongations

Times from Guy Ottewell's Astronomical Calendar 2018
http://www.universalworkshop.com/astronomical-calendar-2018/
He gives them to the nearest hour, so that is the accuracy of
my check.
EOD

( $time, my $quarter, my $desc ) = $uranus->next_quarter();

note 'East quadrature';
is $quarter, 3, 'Event is east quadrature';
is strftime_h( $time ), '2018-01-14 21', 'Timm of east quadrature';
# Taken on faith -- not reported by Ottewell

t/planet_venus.t  view on Meta::CPAN

my $time = timegm( 0, 0, 0, 1, 0, 2017 );

$venus->universal( $time );

note <<'EOD';

Conjunctions and elongations

Times from Guy Ottewell's Astronomical Calendar 2017 and 2018
http://www.universalworkshop.com/astronomical-calendar-2017/
http://www.universalworkshop.com/astronomical-calendar-2018/
He gives them to the nearest hour, so that is the accuracy of
my check.
EOD

( $time, my $quarter, my $desc ) = $venus->next_quarter();

note 'Elongation east';
is $quarter, 1, 'Event is elongation east';
is strftime_h( $time ), '2017-01-12 13', 'Time of elongation east';
is sprintf( '%.1f', rad2deg( $venus->__angle_subtended_from_earth() )