# 1 "/u/exp/stan/nmr/lists/pp/hmbcg.cui2"
;gradhmbc.wmw ; use grdprog wmwhmbcg
;HMBC with gradient selection of echo and antiecho ;in 
;t1 for suppression of t1-noise. J. Schleucher 1994

;pl1:    high power level for protons
;p1  90 degree pulse on protons
;pl2:   high power level on X-nucleus
;p3   90 degree pulse pn X-nucleus
;pl12:   decoupling powr level for X-nucleus in refocussed experiment
;cpdprg2 and p31: parameters for cpd on X-nucleus
;d1	relaxation delay, 1 T1 of slowest-relaxing proton
;d8	0.5 * direct HX coupling to purge 1J correlations
;NS= 2, 4 or 8n
;DS=2*NS!
;p16=500u - 1ms, d16=300u
;ND0=2, pp yields data equivalent to States method
;in0: increment of t1, SW(f1)=1/(2 in0)
;l1=td1/2
;Comments:

;see gradhmbc.lr for original

;pp collects echo and antiecho in two transients, (lo to 3 times 2), 
;it is therefore sqrt(2) less sensitive than a HMBC without gradients, 
;However, spectra obtained with this pp are free of t1-noise, which 
;normally more than compensates for the sqrt(2) loss in s/N. 
;Use "gradenh" to convert to States Format (F1 axis is reversed) 
;or process with uxnmr using mc2(F1)=echo/antiecho. transform f3 with
;qsine SSB 2, f1 sine SSB 1.
;Use gradient program 2sineea with the following relative gradient strength 
;(gH, gx gyromagnetic ratios/resonance frequency of H/the X nucleus):
; cnst21=gx+gH	cnst22=gH
; cnst23=gH-gx	cnst24=gH 
;example for carbon: 
;cnst21=25 (gC=1 + gH=4), cnst22=20, cnst23=15, cnst24=20
;If strong gradients are needed (water suppression), the gradient 
;ratios should be empirically optimized for best S/N.

;#include <Avance.incl>

# 1 "/u/exp/stan/nmr/lists/pp//Grad.incl"
;Grad.incl  -  include file for Gradient Spectroscopy
;avance-version
;version 99/02/19
















define list<gradient> EA=<EA>
# 41 "/u/exp/stan/nmr/lists/pp/hmbcg.cui2"

"d12=p16+300u+6u+p1*2"
"d22=d2-p16-300u"

;#define SUPPRESS		;suppress direct connectivities
;easier experimental interpretation if not suppressed.

1 ze 
2 d1 do:f3
3 3m
4 4u
  20u pl1:f1
  p1 ph1

# 58 "/u/exp/stan/nmr/lists/pp/hmbcg.cui2"


  d22 pl2:f3		;d2=1/(2Jlong-range)
   p16:ngrad:c34
  300u
  (p3 ph3):f3
  d0
  p1*2 ph1
  d0
   p16:ngrad:c34
  300u
  (p3*2 ph1):f3
  d12
  (p3 ph4):f3
  3u			
  ;d2 pl12:f3		;optional refocussing 
  go=2 ph31 ;cpd2:f3 	;and decoupling
  d1 do:f3 wr #0 if #0 zd
  lo to 3 times 2
  3m id0
  lo to 4 times l1
exit 
  
  
ph1= 0 0  0 0  0 0 0 0 ;2 2 2 2 2 2 2 2  1 1 1 1 1 1 1 1  3 3 3 3 3 3 3 3
ph3= 0 2  0 2  0 2 0 2 ;2 0 2 0 2 0 2 0  1 3 1 3 1 3 1 3  3 1 3 1 3 1 3 1
ph4= 0 0  2 2  0 0 2 2 ;2 2 0 0 2 2 0 0  1 1 3 3 1 1 3 3  3 3 3 3 1 1 1 1
ph5= 0 0  0 0  2 2 2 2
ph31=0 2  2 0  0 2 2 0 ;2 0 0 2 2 0 0 2  1 3 3 1 1 3 3 1  3 1 1 3 3 1 1 3