#!/usr/bin/perl
#

$A = 0.05;

$L = 0.70;
$start_x = 0.0;
$end_x = $L;
$d_x = 0.01;

for ($x = $start_x; $x <= $end_x; $x += $d_x) {

  # this wave makes half a wavelength in distance L
  $lambda = 2.0*$L;
  $k = 2.0*3.14159/$lambda;
  $y1 = $A*sin($k*$x);
  
  # this wave makes one fullwavelength in distance L
  $lambda = 1.0*$L;
  $k = 2.0*3.14159/$lambda;
  $y2 = $A*sin($k*$x);
  
  # this wave makes 1.5 full wavelengths in distance L
  $lambda = $L/1.5;
  $k = 2.0*3.14159/$lambda;
  $y3 = $A*sin($k*$x);
  
  printf " x %8.4f   y1 %8.4f  y2 %8.4f  y3 %8.4f \n",
        $x, $y1, $y2, $y3;


}


exit 0;