# 1 "/opt/xwinnmr/exp/stan/nmr/lists/pp/hsgp19c13.fp" ;hsgp19c13.bv ;2D 13C HSQC ;avance-version for DMX ;phase sensitive using States-TPPI ;water suppression using 3-9-19 pulse sequence with gradients ;New optimized version of Wagner ;Talluri and Wagner, JMR B 112, 200-205, 1996. ;M. Piotto, V. Saudek & V. Sklenar, J. Biomol. NMR 2, 661 - 666 (1992) ;V. Sklenar, M. Piotto, R. Leppik $ V. Saudek, J. Magn. Reson., ; Series A 102, 241 -245 (1993) ; ;implemented by B. Volkman (volkman@nmrfam.wisc.edu) ;updated to use standard Bruker pulse definitions and ;channel assignments. ; ;Version: 112701 ; ; Disclaimer: This pulse program is provided "as is" for your ; information. Support for the use of this pulse program is only ; provided to users of the National Magnetic Resonance Facility ; at Madison (NMRFAM). Users of this pulse program employ it at ; their own risk. Neither NMRFAM or University of Wisconsin-Madison ; are liable for any physical or other damage incurred during the ; use of this pulse program. ;f1: 1H ~4.8 ppm (on H2O) ;f2: 13C ~ 125 ppm (aromatic 13C) prosol relations=<triple> # 1 "/opt/xwinnmr/exp/stan/nmr/lists/pp/Avance.incl" 1 ;Avance2.incl ; for 1 ; ;avance-version (03/02/17) ;$Id: Avance2.incl,v 1.7.2.3 2003/02/25 14:48:48 ber Exp $ # 31 "/opt/xwinnmr/exp/stan/nmr/lists/pp/hsgp19c13.fp" 2 # 1 "/opt/xwinnmr/exp/stan/nmr/lists/pp/Grad.incl" 1 ;Grad2.incl - include file for Gradient Spectroscopy ; for 1 ; ;avance-version (02/05/31) define list<gradient> EA=<EA> ;$Id: Grad2.incl,v 1.7 2002/06/12 09:04:22 ber Exp $ # 32 "/opt/xwinnmr/exp/stan/nmr/lists/pp/hsgp19c13.fp" 2 # 1 "/opt/xwinnmr/exp/stan/nmr/lists/pp/Delay.incl" 1 ;Delay.incl - include file for commonly used delays ; ;version 00/02/07 ;general delays define delay DELTA define delay DELTA1 define delay DELTA2 define delay DELTA3 define delay DELTA4 define delay DELTA5 define delay DELTA6 define delay DELTA7 define delay DELTA8 define delay TAU define delay TAU1 define delay TAU2 define delay TAU3 define delay TAU4 define delay TAU5 ;delays for centering pulses define delay CEN_HN1 define delay CEN_HN2 define delay CEN_HN3 define delay CEN_HC1 define delay CEN_HC2 define delay CEN_HC3 define delay CEN_HC4 define delay CEN_HP1 define delay CEN_HP2 define delay CEN_CN1 define delay CEN_CN2 define delay CEN_CN3 define delay CEN_CN4 define delay CEN_CP1 define delay CEN_CP2 ;loop counters define loopcounter COUNTER define loopcounter SCALEF define loopcounter FACTOR1 define loopcounter FACTOR2 define loopcounter FACTOR3 ;$Id: Delay.incl,v 1.11 2002/06/12 09:04:22 ber Exp $ # 33 "/opt/xwinnmr/exp/stan/nmr/lists/pp/hsgp19c13.fp" 2 ;*** Select 1D or 2D Mode *** ;#define ONE_D ;*** Looping for 2D *** ;L6 = # complex 15N points ;*** RF Pulses *** ;p1 = 1H 90 at pl1 "p2=p1*2" ;p3 = 13C 90 at pl3 "p4=p3*2" ;pcpd2 = 13C dec 90 at pl12 ;cpdprg2 = waltz16 ;*** Gradient Lengths and Levels*** ;gpnam* = bvsine.32 "p15= 500u" "p16= 500u" "p18= 500u" "p19= 500u" ;"gpz5 = 8" ;"gpz6 = 13" ;"gpz8 = 28" ;"gpz9 = 12" ;*** Delays *** "d0=(in0/2-p1-(p3*2/3.14159))" ;d1-relaxation delay "d2=1.25m" ;for aromatic HSQC "d12=20u" "d16=200u" ;"d19=100u" ; for 3-9-19 binomial H2O suppr. "d20=d19-p3" "d21=d2-p15" "d22=d2-p15-d16" "d23=d2-p18-d16-d19*5-p1*4.77" "d25=p1" ;"d28=p3-p1" ;"d29=p2-p1" ;Define channel assignments: 1 ze d12 pl1:f1 2 d11 do:f2 d12 3 d12 d12 4 d12 d12 5 d12 d12 6 d12 setnmr3^0 d1 pl2:f2 d12 setnmr3|0 (p3 ph0):f2 d12 p19:gp9 d16 p1 ph0 d12 p15:gp5 d21 (center (p2 ph0):f1 (p4 ph0):f2) d22 p15:gp5 d16 d12 (p1 ph4):f1 d12 p16:gp6 d16 (p3 ph5):f2 d0 (p2 ph2):f1 d0 (p3 ph6):f2 d12 p16:gp6 d16 (p1 ph7):f1 d12 p18:gp8 d16 d23 (p1*0.231 ph11):f1 d19*2 (p1*0.692 ph11):f1 d19*2 (p1*1.462 ph11):f1 d20 (p4 ph0):f2 d20 (p1*1.462 ph12):f1 d19*2 (p1*0.692 ph12):f1 d19*2 (p1*0.231 ph12):f1 d23 pl12:f2 p18:gp8 d16 d25 d12 go=2 ph31 cpds2:f2 d11 do:f2 wr #0 if #0 zd d12 ip5 lo to 5 times 2 d12 id0 d12 ip31*2 lo to 6 times l6 d12 setnmr3^0 exit ph0=0 ph2=0 ph3=0 ph4=1 ph5=0 2 ph6=0 ph7=2 ph11=1 ph12=3 ph31=0 2