#!/usr/bin/perl

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

###################### expt setup
#setup the SLF experiments
#use this for 2X SLF enhancement
#run this script in the /opt/../vd/ directory
# slf_inc and slf_dec is the VDLIST delays
############################# 

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

#$outfile2="slf_list";
$outfile3="slf_inc";
$outfile4="slf_dec";

$finish= 16;		#number of delays

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

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

$sat=0;
$p180 = 9.0/1e6;		#C180 in microseconds

open(OUTPUT3, "> $outfile3");
open(OUTPUT4, "> $outfile4");

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

$sat = ($sat_max) *(($i-1)/($finish-1)) ;
$time = $sat;
$dec = $sat_max - $sat;

printf OUTPUT3 "%3.7f ",$time;
printf OUTPUT4 "%3.7f ",$dec;

}

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

exit;