#!/usr/bin/perl
#
# Compute transformed x' and t' for Jane
#
# MWR 10/3/2017

use POSIX;
$debug = 1;

$v = 0.3;
$gamma = 1.0483;

while (<STDIN>) {
  @words = split(/\s+/, $_);

  $x = $words[1];
  $t = $words[2];

  $new_x = $gamma * ($x + $v*$t);
  $new_t = $gamma * ($t + $v*$x);

  printf "    %6.3f %6.3f       %6.3f %6.3f \n",
        $x, $t, $new_x, $new_t;
}

exit 0;
