# 1 "/u/exp/stan/nmr/lists/pp/nohsgp19d.bv" ;nohsgp19.bv ;avance-version ;3D 15N-edited correlation via dipolar coupling ;dipolar coupling may be due to noe or chemical exchange. ;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) ;Version: 101296 ; ; 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. ; ; ;Define channel assignments: # 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 $ # 32 "/u/exp/stan/nmr/lists/pp/nohsgp19d.bv" 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 $ # 33 "/u/exp/stan/nmr/lists/pp/nohsgp19d.bv" 2 ;*** Pulses *** ;p1 = 1H 90 at pl1 "p2=p1*2" ;p21 = 15N 90 at pl2 "p22=p21*2" ;pcpd3 = 15N dec 90 at pl16 ;cpdprg3 = waltz16 ;*** Gradients *** "p15= 500u" "p16= 500u" "p18= 750u" "p19= 1m" ;"gpz9 = 5" ;"gpz5 = 8" ;"gpz6 = 13" ;"gpz8 = 28" ;*** Delays *** define delay TAUM "d0=(in0/2-2u-(p1*2/3.14159))" ;d1-relaxation delay "d2=2.3m" "d5=5m" ;d8-NOESY mixing time ;"d10=3u" "d10=(in10/2-p1-(p2*2/3.14159))" "d12=10u" ;"d19=160u" "d20=d19-p2" "d21=d2-p15" "d22=d2-p15-d16" "d23=d2-p18-d16-d19*5-p1*2.38" "d25=p1" "d26=p2*2" "d28=p2-p1" "d29=p2-p3*2-3u" "d18=d8-d12-d5" ;#define ONE_D "l4=td1/2" "l6=td2/2" 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 p1 ph1 if "d0*2 > p22" goto 7 2u d0*2 goto 8 7 2u "d27 = d0 - p21" (d0*2):f1 (d27 p22 ph0):f3 (d27 p3 ph0 3u p3*2 ph4 3u p3 ph0):f2 8 2u p1 ph3 d18 d12 setnmr2|0 (p21 ph0):f3 d12 p19:gp9 d5 p1 ph0 3u p15:gp5 d21 (d28 p2 ph0):f1 (p22 ph0):f3 3u d22 p15:gp5 d16 (p1 ph4):f1 3u p16:gp6 d16 (p21 ph5):f3 d10 (p2 ph2):f1 d10 (p21 ph6):f3 3u p16:gp6 d16 (p1 ph7:r):f1 3u 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 3u p18:gp8 d16 d25 go=2 ph31 cpds3:f3 d11 do:f3 wr #0 if #0 zd d12 ip1*2 lo to 3 times 2 d12 id0 d12 ip31*2 lo to 4 times l4 d12 rd0 d12 rp1 d12 ip5 lo to 5 times 2 d12 id10 d12 ip31*2 lo to 6 times l6 d12 setnmr2^0 exit ph0=0 ;ph1=0 ph1=(8) 7 ph2=0 0 0 0 2 2 2 2 ph3=0 2 ph4=1 ph5=0 0 2 2 ph6=0 ph7=2 ph10=0 ph11=1 ph12=3 ph31=0 2 2 0