++ed by:
1 non-PAUSE user
Author image Sergey Krushinsky
and 1 contributors

NAME

Astro::Montenbruck::Ephemeris::Planet::Sun - Sun.

SYNOPSIS

  use Astro::Montenbruck::Ephemeris::Planet::Sun;
  Astro::Montenbruck::NutEqu qw/mean2true/;

  my $sun = Astro::Montenbruck::Ephemeris::Planet::Sun->new();
  my ($l, $b, $r) = $sun->sunpos($t); # true geocentric ecliptical coordinates

  my $nut_func = mean2true($t);
  # apparent geocentric ecliptical coordinates
  my ($lambda, $beta, $delta) = $sun->apparent($t, [$l, $b, $r], $nut_func); 

DESCRIPTION

Child class of Astro::Montenbruck::Ephemeris::Planet, responsible for calculating Sun position.

METHODS

Astro::Montenbruck::Ephemeris::Planet::Sun->new

Constructor.

$self->sunpos($t)

Ecliptic coordinates L, B, R (in deg and AU) of the Sun referred to the mean equinox of date.

Arguments

$t — time in Julian centuries since J2000: (JD-2451545.0)/36525.0

Returns

Array of geocentric ecliptical coordinates.

  • x — geocentric longitude, arc-degrees

  • y — geocentric latitude, arc-degrees

  • z — distance from Earth, AU

AUTHOR

Sergey Krushinsky, <krushi at cpan.org>

COPYRIGHT AND LICENSE

Copyright (C) 2009-2021 by Sergey Krushinsky

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.