#/usr/local/perl
#

use POSIX;

  $rad = 1.52*1.498e11;
  $npoint = 1000;

  for ($i = 0; $i < $npoint; $i++) {
    $theta = ($i/$npoint)*(2*3.14159);
    $x = $rad*cos($theta);
    $y = $rad*sin($theta);
    printf "%11.5e %11.5e \n", $x, $y;
  }


exit 0;
