# 1 "/u/exp/stan/nmr/lists/pp/hnhbgp3d.rak"
# 1 "/u/exp/stan/nmr/lists/pp/hnhbgp3d.rak"
;hnhbgr.bv
; Bruker Avance, XwinNMR2.6 version
; gradient version
;Use with hn(co)hb to get hb stereoassignments
;and chi-1 angles in 15N-labeled proteins
;Ref Archer et al., (1991) JMR 95,636-641
;use with hnhbrefgr.bv as reference
;for quantitation of J3HN-HB
;gradient version implemented by
;Brian Volkman, volkman@nmrfam.wisc.edu
;9/27/95
;BMRB Pulse Sequence Accession Number: 30


# 1 "/u/exp/stan/nmr/lists/pp/Avance.incl" 1
;Avance.incl
;
;version  00/07/27


;switch between high and low stage oh H amplifier



;use 2H channel for lock or pulse (lockswitch)



;allow for 2H decoupling (lockswitch)



;turn lock-hold on/off (BSMS)



;switch between 1H or 19F output (H amplifier)



;select output for 19F (amplifier)



;homospoil on/off (BSMS)



;for Q-switch probes



;for mixing probe



;gating pulse for RX22, ADC and HPPR




;not active




;$Id: Avance1.incl,v 1.5 2000/08/16 13:26:55 ber Exp $
# 15 "/u/exp/stan/nmr/lists/pp/hnhbgp3d.rak" 2

# 1 "/u/exp/stan/nmr/lists/pp/Grad.incl" 1
;Grad.incl  -  include file for Gradient Spectroscopy
;
;avance-version (00/07/27)


;gradient pulse for gs-syntax



;blank/unblank gradient amplifier and turn lock-hold on/off



;blank/unblank gradient amplifier



;for RCB board (BSMS)




define list<gradient> EA=<EA>



;$Id: Grad1.incl,v 1.6 2000/10/16 11:47:19 ber Exp $
# 16 "/u/exp/stan/nmr/lists/pp/hnhbgp3d.rak" 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.10 2000/05/08 11:39:02 eng Exp $
# 17 "/u/exp/stan/nmr/lists/pp/hnhbgp3d.rak" 2



;; definisco i pulsi
"p2=p1*2"
"p22=p21*2"

;; definisco i gradienti
"p16=1m"
"p17=3m"

;; definisco i delays
"d26=2.25m"
"d3=37.2m"
"d5=d3-d13-p17-d16"
"d6=d3-d13-p17-d16+(p1*2)+6u"
"d10=3u"
"d0=3u"
"d11=30m"
"d12=20u"
"d13=3u"
"d16=200u"
"d22=d26-d13-p16"
"d31=(p22-p2)/2"

"l4=td1/2"    ;complex 1H points
"l6=td2/2"    ;complex 15N points


;;;; comincio a guardare da qui


aqseq 312

1 d12 ze
   d12 pl1:f1	;1H high power
2 d11*2
3 d11*2
4 d11*2
5 d11*2
6 d12 do:f3	;15N decoupling off
  d12 pl3:f3
  d12 
  d1
; *** Inept to 15N ***
  (p1 ph0):f1
  d13
  d26  ; 1/4J
  (d31 p2 ph0):f1 (p22 ph1):f3
  d26  setnmr2|0 setnmr0|34|32|33
  p28 ph0   
  d13  
  (p1 ph1):f1  
  d13
   p16:gp1 
  d16 
  (p21 ph4):f3
;
; *** 15N evolution (t2) ***
;
  d10
  (p2 ph0):f1
  d10
;
; *** HMBC to HB, t1 ***
;
  d13
  p17:gp2   
  d16
  d5
  (p1 ph2):f1
  d0
  (p22 ph3):f3
  d0
  (p1 ph0):f1
  d13 
  p17:gp2   
  d16
  d6   ; perche' non d5?
;
;*** Reverse inept to 1H ***
;
  (p21 ph0):f3
   p16:gp3   
  d16
  (p1 ph0):f1
  d13
  p16:gp4  
  d22  ; 1/2J o qualcosa di simile
  (d31 p2 ph0):f1 (p22 ph0):f3
  d13
  p16:gp4   ;;GRADIENT18(cnst28)
  d22 pl16:f3
   4u setnmr2^0 setnmr0^34^32^33
  (p1 ph0):f1
  go=2 ph31 cpd3:f3
  d11 wr #0 do:f3 if #0 zd
  d11 ip2
  lo to 3 times 2
  d11 ip31*2
  d11 id0
  lo to 4 times l4
  d11 rd0
  d11 ip4
  lo to 5 times 2 	
  d11 ip31*2 
  d11 id10   
  lo to 6 times l6	
exit

ph29=0
ph0=0
ph1=1 3
ph2=0 0 0 0 2 2 2 2  
ph3=0 0 1 1  
ph4=0
ph31=0 2 2 0 2 0 0 2



;pl1 : F1 channel - default power level
;pl3 : F3 channel - default power level
;pl16: F3 channel - decoupling power level
;
;p1  : F1 channel 90 high power pulse
;p2  : F1 channel 180 high power pulse
;p21 : F3 channel 90 high power pulse
;p22 : F3 channel 180 high power pulse
;p28 : F1 channel trim pulse [1m]
;
;d1  : recycle delay
;d3  : delay for HMQC (odd multiple of 1/(2*JNH), 37.2m) 
;d26 : 1/(4*JNH) or slightly shorter [2.25m]
;
;aqorder: 3-1-2
;
;nd0 : 2
;nd10: 2
;F1 REVERSE: FALSE
;F2 REVERSE: FALSE
;F1 phase sensitive using States (H)
;F2 phase sensitive using States (N)
;
;gpnam1: SINE.100 
;gpnam2: SINE.100 
;gpnam3: SINE.100 
;gpnam4: SINE.100 
;gpz1  : 50%
;gpz2  : 13%
;gpz3  : 55%
;gpz4  : 45%