# 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: Avance1.incl,v 1.7.2.3 2003/02/25 14:48:47 ber 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<gradient> EA=<EA>



;$Id: Grad1.incl,v 1.7 2002/06/12 09:04:22 ber 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