#!/usr/bin/perl
#
# Calculate and print out a sine wave over a small region
#   of space.
#
# MWR 4/29/2021

$debug = 1;
$mypi = 3.1415926;


$lambda = 0.50;
$k = (2.0*$mypi)/$lambda;
$start_x = 0.0;
$end_x = $lambda*3.0;
$amplitude = 1.0;
$d_x = 0.001;


for ($x = $start_x; $x <= $end_x; $x += $d_x) {
  
  $y = $amplitude*sin($k*$x);
  printf " %8.4f %8.4f \n", $x, $y;


}


exit 0;