#!/usr/bin/perl
# compute times of primary minima for star W UMa
#

$epoch = 2453412.3257;
$period = 0.3340;

for ($i = 1300; $i < 1420; $i++) {

  $min_jd = $epoch + $i*$period;

  printf " %6d  %12.5f  \n", $i, $min_jd;

}

exit 0;

