# 1 "/u/exp/stan/nmr/lists/pp/nohsgp19c13.bv" ;nohsgp19c13.bv ;3D 13C NOESY 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) ;Version: 032500 ; ; 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 freqlist nohsar.f2 (70ppm, 127 ppm) ;f3: 15N 120 ppm ;Define channel assignments: # 1 "/u/exp/stan/nmr/lists/pp/Avance.incl" 1 ;Avance.incl ; ;avance-version (03/02/17) ;$Id: pulseprogram,v 1.1 2021/02/11 14:21:08 bmrbsvc Exp $ # 32 "/u/exp/stan/nmr/lists/pp/nohsgp19c13.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: pulseprogram,v 1.1 2021/02/11 14:21:08 bmrbsvc Exp $ # 33 "/u/exp/stan/nmr/lists/pp/nohsgp19c13.bv" 2 ;*** Select 1D, 2D or 3D Mode *** ;#define ONE_D ;*** Looping for 3D *** "l4=td1/2" "l6=td2/2" ;*** RF Pulses *** ;p1 = 1H 90 at pl1 "p2=p1*2" ;p3 = 13C 90 at pl2 "p4=p3*2" ;p21 = 15N 90 at pl3 "p22=p21*2" ;pcpd2 = 13C dec 90 at pl12 ;cpdprg2 = garp ;pcpd3 = 15N dec 90 at pl16 ;cpdprg3 = 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-2u-(p1*2/3.14159))" "d10=(in10/2-p1-(p3*2/3.14159))" ;d1-relaxation delay ;"d2=1.25m" ;for aromatic HSQC "d5=5m" ;d8=NOESY mixing time "d12=20u" "d16=200u" "d18=d8-d5-d12*4-p19-p3" ;"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=p3*4+10u" 1 ze d12 pl1:f1 d12 pl16:f3 2 d11 do:f2 d12 3 d12 d12 4 d12 d12 5 d12 d12 6 d12 setnmr2^0 d12 pl16:f3 d12 fq2:f2 d1 pl2:f2 d12 cpds3:f3 p1 ph1 if "d0*2 > (p3*4+4u)" goto 7 2u d0*2 goto 8 7 2u "d27 = d0-(p3*2-2u)" "d26 = d0-(p3*2-2u)-3u" (d0*2):f1 (d27 p3 ph0 2u p4 ph4 2u p3 ph0):f2 (d26 do d29 cpds3):f3 8 2u (p1 ph3):f1 d12 do:f3 d18 fq2:f2 d12 d12 setnmr2|0 (p3 ph0):f2 d12 p19:gp9 d5 (p1 ph0):f1 d12 p15:gp5 d21 (d28 p2 ph0):f1 (p4 ph0):f2 d22 p15:gp5 d16 d12 (p1 ph4):f1 d12 p16:gp6 d16 (p3 ph5):f2 d10 (p2 ph2):f1 d10 (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 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 ph3=0 2 ph4=1 ph5=0 0 2 2 ph6=0 ph7=2 ph11=1 ph12=3 ph31=0 2 2 0