# 1 "/u/exp/stan/nmr/lists/pp/hsgp19d.fp" ;hsgp19.bv ;2D 15N 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 (bvolkman@mcw.edu) ;updated to use standard Bruker pulse definitions and ;channel assignments. ; ;Version: 112701 ; ;Gradient program and include files are included ;at bottom of pulse program; uncomment and place ;in separate files in pp or gp directories ; ; 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, f2: 13C, f3: 15N prosol relations= # 1 "/u/exp/stan/nmr/lists/pp/Avance.incl" 1 ;Avance.incl ; ;avance-version (03/02/17) ;$Id: Avance1.incl,v 1.7.2.3 2003/02/25 14:48:47 ber Exp $ # 34 "/u/exp/stan/nmr/lists/pp/hsgp19d.fp" 2 # 1 "/u/exp/stan/nmr/lists/pp/Grad.incl" 1 ;Grad.incl - include file for Gradient Spectroscopy ; ;avance-version (02/05/31) define list EA= ;$Id: Grad1.incl,v 1.7 2002/06/12 09:04:22 ber Exp $ # 35 "/u/exp/stan/nmr/lists/pp/hsgp19d.fp" 2 # 1 "/u/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 $ # 36 "/u/exp/stan/nmr/lists/pp/hsgp19d.fp" 2 ;*** Select 1D or 2D Mode *** ;#define ONE_D ;*** Looping for 2D *** "l6 = td1/2" ;*** RF Pulses *** ;p1 = 1H 90 at pl1 "p2=p1*2" ;p3 = 13C 90 at pl2 ;p21 = 15N 90 at pl3 "p22=p21*2" ;pcpd3 = 15N dec 90 at pl16 ;cpdprg2 = waltz16 ;*** Gradient Lengths and Levels*** "p15= 500u" "p16= 500u" "p18= 750" "p19= 1m" ;"gpz5 = 8" ;"gpz6 = 13" ;"gpz8 = 28" ;"gpz9 = 12" ;*** Delays *** "d0=(in0/2-p4-2u-(p21*2/3.14159))" ;d1-relaxation delay "d2=2.5m" "d12=20u" ;"d19=100u" ; for 3-9-19 binomial H2O suppr. "d20=d19-p2" "d21=d2-p15" "d22=d2-p15-d16" "d23=d2-p18-d16-d19*5-p1*4.77" "d25=p1" "d29=p4+2u-p1" "d30=(p7+p8+4u)/2" ;Define channel assignments: 1 ze d12 pl1:f1 d12 pl2:f2 2 d11 do:f3 d12 3 d12 d12 4 d12 d12 5 d12 d12 6 d12 setnmr2^0 d1 pl3:f3 d12 setnmr2|0 (p21 ph0):f3 d12 p19:gp9 d16 p1 ph0 d12 p15:gp5 d21 (center (p2 ph0):f1 (p22 ph0):f3) d22 p15:gp5 d16 d12 (p1 ph4):f1 d12 p16:gp6 d16 (p21 ph5):f3 d0 (d29 p2 ph2):f1 (p3 ph4 2u p4 ph0 2u p3 ph4):f2 d0 (p21 ph6):f3 d12 p16:gp6 d16 (p1 ph7:r):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 (p22 ph0):f3 d20 (p1*1.462 ph12):f1 d19*2 (p1*0.692 ph12):f1 d19*2 (p1*0.231 ph12):f1 d23 pl16:f3 p18:gp8 d16 d25 d12 go=2 ph31 cpds3:f3 d11 do:f3 wr #0 if #0 zd d12 ip5 lo to 5 times 2 d12 id0 d12 ip31*2 lo to 6 times l6 d12 setnmr2^0 exit ph0=0 ph2=0 ph3=0 ph4=1 ph5=0 2 ph6=0 ph7=2 ph11=1 ph12=3 ph31=0 2 ;Gradient program for 2D 15N HSQC ; ;p19 { (0) | (0) | (0)+(cnst29) } ; { (0) | (0) | (0) } ;p15 { (0) | (0) | (0)+(cnst25) } ; { (0) | (0) | (0) } ;p15 { (0) | (0) | (0)+(cnst25) } ; { (0) | (0) | (0) } ;p16 { (0) | (0) | (0)+(cnst26) } ; { (0) | (0) | (0) } ;p16 { (0) | (0) | (0)+(cnst26) } ; { (0) | (0) | (0) } ;p18 { (0) | (0) | (0)+(cnst28) } ; { (0) | (0) | (0) } ;p18 { (0) | (0) | (0)+(cnst28) } ; { (0) | (0) | (0) }