#! /usr/bin/perl

while (<>) {  # read a line from a text file
	chomp;
	($t,$nf,$np,$op) = split(/\s+/);

	# calibrate the signals

	$cnf = -0.06825 + 0.4213*$nf;  # liters/second
	$cnp = (5.7 + 29.96*$np)/10;        # pascals/10 = mm H2O
	$cop = (10.49 + 74.85*$op)/10;      # pascals/10 = mm H2O

	printf ("%5.4f %5.4f %5.4f %5.4f ",$t,$nf,$np,$op);
	printf ("%5.4f %5.4f %5.4f\n",$cnf,$cnp,$cop);
}