#!/usr/bin/perl
#
#

$amplitude = 0.35;
$period = 1.7027;
$start_t = 0.0;
$end_t = 20.0;

$sample = 0.01;


for ($t = $start_t; $t < $end_t; $t += $sample) {
  $omega = (2.0*3.14159/$period);

  $signal = $amplitude*cos($omega*$t);

  printf " %9.4f  %6.3f \n", $t, $signal;


}


exit 0;
