REM ************************************************************************ REM * * REM * PENDANT pulse program - 000405, GMB * REM * * REM * Polarization ENhancement During Attached Nucleus Testing for 13C * REM * editing. Differs from refocused INEPT in that quaternary carbons are * REM * seen in the final spectrum (the first 13C 90 puts them there...). * REM * The pulse sequence is: * REM * * REM * 13C: 90 -- d2 -- 180 -- d2 -- 90 -- d3 -- 180 -- d3 -- Acqu * REM * * REM * 1H: 90 -- d2 -- 180 -- d2 -- 90 -- d3 -- 180 -- d3 -- BBDEC * REM * * REM * Were d2 is set to 1/4J and d3 to 5/8J (1720 and 4310 for JCH = 145). * REM * The resutls should be processed to get positive CH3s and CHs, and * REM * negative CH2s and Cs... * REM * * REM * Do not read in conditions. Current conditions (NS, SW, DS, etc. ) * REM * should be used. * REM * * REM ************************************************************************ showwin cls print "PENDANT Acquisition Program for Spectral Editing" print print "The relaxation delay needs to be set in the range 1 to 5" print "times the expected T1 for the sample. 2.0 sec is a good" print "general purpose value." print input "Enter a relaxation delay: ",d0 if d0=0 then d0=2 cls define p5 h90 pulses.txt define p0 x90 pulses.txt print "PENDANT Acquisition Program for Spectral Editing" print print "Setup the 13C and 1H pulsewidths." print if p5>0 then print "The decoupler 90 degree pulse chosen is ",p5,"us" if p5=0 then input "Enter the decoupler 90deg Pulse: ",p5 p6=2*p5 if p0>0 then print "The observe 90 degree pulse chosen is ",p0,"us" if p0=0 then input "Enter the observe 90 degree pulse: ",p0 p1=2*p0 SLEEP 1 cls print "PENDANT Acquisition Program for Spectral Editing" 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 "PENDANT Acquisition Program for Spectral Editing" print print "Enter a file name for the data. The default file" print "my_pend 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_pend): ",f$ if f$="" then f$="data\my_pend" 100 cls print "Running PENDANT..." print 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 REM The delays (1720 and 4310) are fixed for a JCH = 145... a$ = "02" b$ = "31" n$ = "02" p$ = "31" c$ = "13" PROGRAM "clear" PROGRAM 0 d0 S PROGRAM + 2.0 uS FX PX PROGRAM + p5 uS DEC HP FX PX n$ PROGRAM + p0 us TX FX PX a$ PROGRAM + 1720 uS FX PX PROGRAM + p6 uS DEC HP FX PX n$ PROGRAM + p1 uS TX FX PX a$ PROGRAM + 1720 uS FX PX PROGRAM + p5 uS DEC HP FX PX p$ PROGRAM + p0 uS TX FX PX b$ PROGRAM + 4310 uS FX PX PROGRAM + p6 uS DEC HP FX PX n$ PROGRAM + p1 uS TX FX PX a$ PROGRAM + 4310 uS FX PX PROGRAM + 1.0 uS ADC RX DEC BB FX PX PROGRAM + a S RX DEC BB FX PX PROGRAM + 0.02 S RX DEC BB FX PX PROGRAM "coadd" c$ PROGRAM + 1.0 uS for i=1 to b ZERO START if i=1 then wr "c:\eft\data\pnmr.fid" if b=1 then goto 200 w=d0*i WF f$ i w cls print "Running PENDANT..." print print "Block",i,"of",b,"completed." NEXT 200 cls print "PENDANT Experiment 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