#!/usr/bin/perl

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

###################### expt setup
#setup the SLF experiments
#run this script in the /opt/../vd/ directory
# makes file slf_list which is the VDLIST delays
############################# 

$cnst31 = 13333;	#spinrate in Hz
$p180 = 9.0;		#C180 in microseconds

$outfile2="slf_list";

$finish= 16;		#number of delays

$sat_max = 1/$cnst31; 	#maximum t2 delay in SECONDS 

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

$sat=0;
$p180 = $p180/1e6;

open(OUTPUT2, "> $outfile2");

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

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

printf OUTPUT2 "%3.9f\n",$time;

}

close (OUTPUT);close (OUTPUT2); close (OUTPUT3);

exit;