;interface_Hz_ydw_v6
;avance-version
;2D H-1/X correlation via TROSY
;   using sensitivity improvement
;phase sensitive using Echo/Antiecho gradient selection
;using f3 - channel
;X. Sui, Y. Xu, J. L. Giovannelli, N. T. Ho, C. Ho, D. W. Yang, 
;Angew. Chem. Int. Ed. 2005, 44, 5141.

; Written by Daiwen Yang, Jan. 2005

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


"p2=p1*2"
"p6=p5*2"
"p22=p21*2"
"d0=5u"
"d11=30m"
"d26=2.30m"

"DELTA=d0*2+p21*4/3.1416+20u+6u+4*p5-p1"
"DELTA1=d26-p16-d16-4u"
"DELTA3=p20+d16+8u"
"DELTA4=2.3m-p16-d16-4u"

"CEN_HN1=(p21-p1)/2"
"CEN_HN2=(p22-p2)/2"

"l3=(td1/2)"

1 ze 
2 d11
  15m
3 3m 
4 12m
5 d1 pl1:f1 pl2:f2 pl3:f3
  50u UNBLKGRAD
  (p21 ph1):f3
  p16:gp8
  d16

  (p1 ph1)
   3u
  (p1 ph9)
  p15:gp9
  d16

51   0.5m gron0
     4.5m groff
     lo to 51 times l4

    3u pl0:f1
    (p25:sp2 ph1):f1
    3u
    3u pl11:f1
    (p24 ph8)
    p17:gp6
    d16 pl1:f1
 
52   0.5m gron0*-1
     4.5m groff
     lo to 52 times l4

  (p1 ph9)
  4u
  p16:gp1
  d16
  DELTA4
  (CEN_HN2 p2 ph2) (p22 ph1):f3
  4u
  p16:gp1
  d16
  DELTA4
  (p1 ph3) 

  (p21 ph4):f3
   d0 gron0
   10u groff
   (p5 ph1):f2
   3u
   (p6 ph2):f2
   3u
   (p5 ph1):f2
   d0 gron0*-1
   10u groff

  p19:gp2*EA
  d16
  (p22 ph1):f3

  p19:gp2*-1*EA
  d16
  DELTA

  (p1 ph6)
  4u
  p16:gp3
  d16
  DELTA1 
  (CEN_HN2 p2 ph1) (p22 ph1):f3
  4u
  p16:gp3
  d16
  DELTA1
  (CEN_HN1 p1 ph1) (p21 ph2):f3

  4u
  p16:gp4
  d16
  DELTA1
  (CEN_HN2 p2 ph1) (p22 ph1):f3
  p16:gp4
  d16
  4u
  DELTA1
  (p21 ph7):f3
 DELTA3
  (p2 ph1)
  4u
  p20:gp5
  d16
  4u BLKGRAD

  go=2 ph31
  d11 wr #0 if #0 zd
  6m ip6*2 igrad EA
  6m ip7*2
  3m iu0
  lo to 3 times 2
  3m 
  d11 id0 ip4*2
  6m 
  6m ip31*2
  lo to 5 times l3
exit 
  

ph1=0
ph2=1
ph3=3
ph4=0 2
ph6=1
ph7=0
ph8=0
ph9=0 0 2 2
ph31=0 2


;pl0 : 120dB
;Channel f1
;pl1: power level for hard high power pulse 
;p1:  90 degree high power pulse
;p2: 180 degree high power pulse
;p24: 180 degree soft pulse, ~2ms at 800 MHz NMR
;p25: 180 degree reburp pulse, ~1ms at 800 MHz NMR, center at amide (9.1 ppm),
;     do not disturb water

;Channel f3 
;pl3: power level for hard high power pulse 
;p22: 180 degree high power pulse

;Gradients 
;gpnam1: SINE.100
;gpnam2: SINE.50
;gpnam3: SINE.100
;gpnam4: SINE.100
;gpnam5: SINE.50
;gpnam6: SINE.100
;gpnam8: SINE.100
;gpnam9: SINE.100

;p15: gradient pulse width,[2000 usec]
;p16: gradient pulse width,[1000 usec]
;p17: gradient pulse width,[2000 usec]
;p19: gradient pulse width,[1000 usec]
;p20: gradient pulse width,[1000 usec]

;gpz0: 3%
;gpz1: 35%
;gpz2: 80%
;gpz3: 45%
;gpz4: 78%
;gpz5: 16.2%
;gpz6: -40%
;gpz8: 30%
;gpz9: 40%

;Other parameters
;L4 : loop for relaxation delay, delay = 2*L4*5ms
;d0 : incremented delay (F1 in 2D)                     [5 usec]
;d4 : ~1/(4J(NH)) - taud                               [2.3 msec]
;d11: delay for disk I/O                               [30 msec]
;d16: delay for gradient recovery 				 [70 usec]
;d26: tau 	                                           [2.3 msec]
;l3: loop for phase sensitive 3D using  States-TPPI : l3 = td1/2
;in0: 1/(2 * SW(N)) = DW(N)
;nd0: 2
;NS: 4 * n
;DS: 32
;td1: number of experiments in F1
;MC2: States-TPPI in F1