#!/usr/bin/perl
#
# Creete some artificial data for illustrations
#
# MWR 2/26/2018


$debug = 1;

$k = 4.0;
$A = 0.10;

$start_time = 0.0;
$end_time = 5.0;
$d_time = 0.1;


for ($t = $start_time; $t <= $end_time; $t += $d_time) {

  $x = $A*sin($k*$t);
  $v = $k*$A*cos($k*$t);
  $a = -$k*$k*$A*sin($k*$t);


  printf " %8.3f  %8.3f  %8.3f  %8.3f \n", $t, $x, $v, $a;


}


exit 0;