#!/usr/bin/perl
#
# Make perfect data with a 1-D gaussian
#    Just one gaussian, at a given location

use POSIX;

$amp = 4.68;
$fwhm = 1.0;
$sigma = $fwhm / 2.35;
$x0 = 7.55;


$start_t = 0;
$end_t = 20.0;
$dt = 0.1;
for ($t = $start_t; $t < $end_t; $t += $dt) {

  $arg = 0.0 - ($t - $x0)*($t - $x0)/(2.0*$sigma*$sigma);
  $y = $amp*exp($arg);

  printf " %8.3f %8.3f \n", $t, $y;

}


exit 0;

