#!/usr/bin/perl

use POSIX;
use File::Copy qw(copy);

###################### expt setup
#setup the T1 experiments
#run this script in the /opt/../vc/ directory
############################# 

$outfile="satrec";	#output file name

$finish= 10 ;		#number of delays
$sat_max = 5.00; 	#maximum T1 delay in SECONDS 
$tp=0.001;		#1st T1 delay point in SECONDS       

############################# 
#NOTHING TO EDIT BELOW HERE
############################# 

$sat=0;
open(OUTPUT, "> $outfile");

for($i = 1; $i <= $finish; $i = $i + 1){

#$sat = $sat_max*(($i-1)/($finish-1));
$sat = $tp + ($sat_max-$tp)*(($i-1)/($finish-1));
$time = $sat;

printf OUTPUT "%3.6f\n",$time;
}

close (OUTPUT);

exit;