#!/usr/bin/perl
#


$dt = 0.1;
$g = 9.8;

for ($t = 0; $t < 10; $t += $dt) {

  $blue_x = 100.0 - 0.5*$g*($t*$t);
  $green_x = 60.0 - 0.5*$g*($t*$t);

  if ($blue_x < 0.0) {
     $blue_x = -1e6;
  }
  if ($green_x < 0.0) {
     $green_x = -1e6;
  }

  printf " %7.2f  %7.2f  %7.2f \n", $t, $blue_x, $green_x;

}

exit 0;
