#!/usr/bin/perl
# 
# Compute a nice sine wave between x = -3.75 and x = +3.75
#
# MWR 4/13/2020

$debug = 1;

$mypi = 3.14159;

$xmin = -7.50;
$xmax = 7.50;
$dx = 0.05;

for ($x = $xmin; $x <= $xmax; $x += $dx) {

  $y = 1.0 * cos( 3*$mypi*$x / 15.0);

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


}

exit 0;
