;CT-HMBC
;Constant-time HMBC for the measurement of long-range heteronuclear couplings,
;should be applied together with reference experiment of pulse sequence CT-HSQC.ref
;avance-version


#include <Avance.incl>
#include <Grad.incl>

define list<gradient> EA1 = { cnst22 cnst23 }
define list<gradient> EA2 = { -cnst23 -cnst22 }


"p2=p1*2"
"p4=p3*2"
"d4=1/4*cnst4"
"d5=1/2*cnst5"
"l0=td1/2"
"d0=3u"
"d10=(in0*td1)/2"
"in10=in0"
"d11=30m"
"d6=d0*2+p2"

1 ze
  100u UNBLKGRAD 
2 d1 BLKGRAD
3 d11
4 p1 ph0
  d4
  (p2 ph0):f1 (p4 ph0):f2
  d4 UNBLKGRAD
  (p1 ph0):f1 (p3 ph0):f2
  3u
  p16:gp1*0.333333
  d16
  p1 ph1
  d5
  d10
  (p3 ph3):f2
  d0
  p2 ph2
  d0
  3u
  p16:gp1*EA1
  d16
  (p4 ph0):f2
  3u
  p16:gp1*EA2
  d16
  d6
  (p3 ph4):f2
  d10
  go=2 ph31
  d1 mc #0 to 2
  10u BLKGRAD
  F1EA(igrad EA1 & igrad EA2, id0 & dd10 & ip3*2 & ip31*2)
 
exit 
  

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


  
;pl1 : f1 channel - power level for pulse (default)
;pl2 : f2 channel - power level for pulse (default)
;p1 : f1 channel -  90 degree high power pulse
;p2 : f1 channel - 180 degree high power pulse
;p3 : f2 channel -  90 degree high power pulse
;p4 : f2 channel -  180 degree high power pulse
;p16: homospoil/gradient pulse
;d0 : incremented delay (2D)                  [3 usec]
;d10 : decremented delay (2D), (in0*td1)/2
;d1 : relaxation delay; 1-5 * T1
;d5 : HMBC transfer delay (normally 1/(2J)XH long range)
;d4 : inept delay (normally 1/(4J)XH long range)
;d11: delay for disk I/O                             [30 msec]
;d13: short delay                                    [4 usec]
;d16: delay for homospoil/gradient recovery
;cnst4 : 1^J(XH)
;cnst5 : J(XH) long-range
;in0: 1/(2 * SW(X)) = DW(X)
;in10: =in0
;nd0: 2
;NS: 1 * n
;DS: >=16
;td1: number of experiments
;FnMODE: echo-antiecho
;cnst22: 0.5 for C-13, gradient multiplier 
;cnst23: 0.3 for C-13, gradient multiplier 


;use gradient files:
;gpnam1: SINE.100