#!/usr/bin/perl
#
# Create radial velocity data for plotting
#
# MWR 10/14/2016

$debug = 1;
$TWOPI = 2.0*3.14159;
$amp = 29.76;


$num = 50;
$duration = 2.5;
$stepsize = $duration / $num;

for ($i = 0; $i < $num; $i++) {

  $x = $i*$stepsize;
  $y = $amp*sin($TWOPI*$x/1.0);

  printf "%9.4f %9.4f \n", $x, $y;

}


exit 0;


