# 1 "/opt/xwinnmr/exp/stan/nmr/lists/pp/hsgp19d.bv"
;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=<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 $
# 34 "/opt/xwinnmr/exp/stan/nmr/lists/pp/hsgp19d.bv" 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 $
# 35 "/opt/xwinnmr/exp/stan/nmr/lists/pp/hsgp19d.bv" 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 $
# 36 "/opt/xwinnmr/exp/stan/nmr/lists/pp/hsgp19d.bv" 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"
"d28=p2-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 setnmr3^0
d1 pl2:f3
d12 setnmr3|0
(p21 ph0):f3
d12
p19:gp9
d16
p1 ph0
d12
p15:gp5
d21
(d28 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 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
;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) }