in reply to Re^2: calculating planet conjunction with mojo front end
in thread calculating planet conjunction with mojo front end

Very nice. Notice that we got different results. When I took Stellar Evolution, we were doing well to get within an order of magnitude with many first order approximations./p> 

$ ./1.astro.pl 
Planet    Right Ascension        Declination
Jupiter    300.371015239225    -20.9886573993409
Saturn    301.438145819967    -20.6756490862067
$ cat 1.astro.pl 
#!/usr/bin/perl 

use strict;
use warnings;
use Time::Piece;
use Astro::Coords;

print qq/Planet\tRight Ascension\t\tDeclination\n/; 

for my $name (qw/Jupiter Saturn/) {

  my $planet = Astro::Coords->new(planet => $name);

  $planet->datetime(Time::Piece->new);

  my $ra  = $planet->ra(format => q/deg/); 
  my $dec = $planet->dec(format => q/deg/); 

  print qq/$name\t$ra\t$dec\n/
}


sleep 2;
__END__ 

$

[download]

We'll see where this folds into the ultimate product. Thanks for yor comments.

Replies are listed 'Best First'.
Re^4: calculating planet conjunction with mojo front end
by Anonymous Monk on Dec 12, 2020 at 08:22 UTC
    Notice that we got different results. When I took Stellar Evolution...

    Unlike the minuscule proper motion of stars, the planets constantly move relatively rapidly across the sky, so the coordinates will be different each time they are calculated. 

    #!/usr/bin/perl

use strict;
use warnings;
use Time::Piece;
use Astro::Coords;

while () {

  system 'clear';

  print qq/Planet\tRight Ascension\t\tDeclination\n/;

  for my $name (qw/Jupiter Saturn/) {

    my $planet = Astro::Coords->new(planet => $name);

    $planet->datetime(Time::Piece->new);

    my $ra  = sprintf('%.12f', $planet->ra(format => 'deg'));
    my $dec = sprintf('%.12f', $planet->dec(format => 'deg'));

    print qq/$name\t$ra\t$dec\n/;
  }
  sleep 1
}

    [download]
[reply]
[d/l]

      !!

[reply]

In Section Seekers of Perl Wisdom