REM *********************************************************************** REM * * REM * INVRECBAPR - GMB 2000 * REM * * REM * Inversion recovery sequence for determination of 13C T1. The pulse * REM * sequence is: * REM * * REM * rd - 180 - delay - 90 - acquire * REM * * REM * The 180 inversion pulse is done with a 90x -180y - 90x composite * REM * pulse to correct pulse lenght imperfections. This one runs a single * REM * T1 experiment but uses block accumulation... * REM * * REM *********************************************************************** showwin cls print "INVBAPR for measuring 13C T1 with block accumulation." print print "The delay between experiments called the relaxation" print "delay should be set to about six times the expected T1." input "Enter the relaxation delay (s): ",d0 cls print "INVBAPR for measuring 13C T1 with block accumulation." print print "Enter the delay between the inversion (180) and the" print "read (90) pulses for this experiment. You should take" print "sufficient experiments so that the recovery can be" print "mapped and the zero-crossing determined accurately." input "Enter the delay beween the 180 and 90 degree pulses: ",d1 cls print "INVBAPR for measuring 13C T1 with block accumulation." print define p0 x90 pulses.txt if p0=0 then input "Enter the observe 90 degree pulse: ",p0 if p0>0 then print "The observe 90 degree pulse is: ",p0 p1=2*p0 print "The 180 degree pulsewidth chosen is: ",p1 SLEEP 1 cls print "INVBAPR for measuring 13C T1 with block accumulation." print print "Enter the number of blocks of data to acquire (default 1)." print "Entering more than 1 block will automatically set the" print "spectrometer to run in block averaging mode." input "Number of blocks of data to acquire: ",b if b<1 then b=1 if b=1 then goto 100 cls print "INVBAPR for measuring 13C T1 with block accumulation." print print "Enter a file name for the data. The default file" print "my_t1 can be used by pressing . Any file" print "with the same name will be overwritten without warning." print input "Enter output file name (data\my_t1): ",f$ if f$="" then f$="data\my_t1" 100 cls rem will use 3*dw/16 delay before turning receiver on e=3*d/16 rem will use dw/16 delay before turning digitizer on f=d/16 print "Running INVREC..." REM write 2D file header if running more than 1 block... if b>1 then WH2D f$ b 0 0 REM a$ is the transmitter phase cycle a$ = "0213" b$ = "13" c$ = "02" PROGRAM "clear" PROGRAM 0 d0 S DEC BB FX PX PROGRAM + 2 uS DEC BB FX PX c$ PROGRAM + p0 uS TX DEC BB FX PX c$ PROGRAM + p1 uS TX DEC BB FX PX b$ PROGRAM + p0 uS TX DEC BB FX PX c$ PROGRAM + d1 S DEC BB FX PX PROGRAM + p0 uS TX DEC BB FX PX a$ PROGRAM + e uS DEC BB FX PX PROGRAM + f uS RX DEC BB FX PX PROGRAM + 1.0 uS ADC RX DEC BB FX PX PROGRAM + a S RX DEC BB FX PX PROGRAM "coadd" a$ PROGRAM + 1 uS DEC BB FX PX for i=1 to b ZERO START if i=1 then wr "c:\eft\pnmr.fid" if b=1 then goto 200 w=d0*i WF f$ i w cls print "Running INVREC..." print print "Block",i,"of",b,"completed." NEXT 200 cls print "INVREC experiment for t = ",d1,"completed." if b=1 then goto 300 print print "Block averaging experiment completed. Total scans",n*(i-1),"." input " to continue...",g$ cls print "Use to transfer to NUTS for data processing." print "First import and process the first block , select an" print "isolated peak for registration, create zoom region 0 about it." print "Then run aii_Cbapr.mac, which will align and add all blocks." input " to continue...",g$ cls print "The raw data is saved as file",f$,"which will be" print "overwritten without warning if the same name is used" print "again. To save the data move it to another directory." 300 input " to exit the pulse program...",g$ END