#!/usr/bin/perl

use POSIX;

###################### expt setup
#setup the 1D STD experiments
#run this script in the /opt/../mac/ directory
#and then run the 2 files below from the command line

$outfile1="set_std";
$outfile2="run_std";
$start = 30;	#1st expt number in topspin
$finish= 39;	#last expt number in topspin

$sat_max = 2;	#maximum saturation time

###################### 


$sat=0;
open(OUTPUT, "> $outfile1");
open(OUTPUT2, "> $outfile2");
for($i = $start; $i <= $finish; $i = $i + 1){

if(floor($i)%2 == 0){
$sat = $sat_max*(($i+1-$start)/($finish-$start));
}

printf OUTPUT "re %d\n",$i;
printf OUTPUT "std1d.txi\n";
printf OUTPUT "d20 %3.3fs\n",$sat;

#print even
if(floor($i)%2 == 1){printf OUTPUT "cnst10 -30000\n"};

#if($i<$finish){printf OUTPUT "wrpa %d\n",$i+1;}
print OUTPUT "\n";

printf OUTPUT2 "re %d\n",$i;
printf OUTPUT2 "setdef ackn no\n";
printf OUTPUT2 "ii\n";
printf OUTPUT2 "zg\n";
printf OUTPUT2 "\n";
$x=$inc+$x;
}

close (OUTPUT);close (OUTPUT2);

exit;