;ledbpgpml2s2d_cpmg_qt
;avance-version (10/01/28)
;diffusion filtered 2D TOCSY
;2D sequence with
;   diffusion filter using stimulated echo and LED
;   homonuclear Hartman-Hahn transfer using MLEV17 sequence
;   for mixing
;using two power levels for excitation and spinlock
;using bipolar gradient pulses for diffusion
;using 2 spoil gradients
;phase sensitive
;
;D. Wu, A. Chen & C.S. Johnson Jr., 
;   J. Magn. Reson. A 115, 260-264 (1995).
;A. Bax & D.G. Davis, J. Magn. Reson. 65, 355-360 (1985)
;
;$CLASS=HighRes
;$DIM=2D
;$TYPE=
;$SUBTYPE=
;$COMMENT=


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


"p2=p1*2"
"p5=p6*.667"
"p7=p6*2"
"d12=20u"


"in0=inf1"

"d0=in0/2-p1*2/3.1416-4u"

"DELTA3=d22-p1*2/3.1416" ;cpmg d22=1ms
            ;(p1*2/3.1416): delay for p90 pulse
"DELTA4=d22-de"          ;cpmg

"DELTA1=d20-p1*2-p2-p30*2-d16*3-p19" ;diffusion filter
"DELTA2=d21-p19-d16"	;diffusion filter

"SCALEF=p7*2/p5"
"FACTOR1=((d9-p17*2)/(p6*64+p5))/SCALEF"
"l1=FACTOR1*SCALEF"


"acqt0=0"


1 ze
2 d1
  50u pl1:f1 UNBLKGRAD
  p1 ph1		
  DELTA3   ;cpmg
  p2 ph6
  d22
3 d22
  p2 ph6
  d22
  lo to 3 times l4
  d22
  p2 ph6
  d22 		;replace DELTA4
					;end of cpmg
  p30:gp6 
  d16
  p2 ph1
  p30:gp6*-1
  d16
  p1 ph2
  p19:gp7
  d16
  DELTA1
  p1 ph3
  p30:gp6
  d16
  p2 ph1
  p30:gp6*-1
  d16
  p1 ph4
  p19:gp8
  d16
  DELTA2
  p1 ph5
  d0
  4u pl10:f1 BLKGRAD
  (p17 ph26)
						;begin MLEV17
4 (p6 ph22 p7 ph23 p6 ph22)
  (p6 ph24 p7 ph25 p6 ph24)
  (p6 ph24 p7 ph25 p6 ph24)
  (p6 ph22 p7 ph23 p6 ph22)
  (p6 ph24 p7 ph25 p6 ph24)
  (p6 ph24 p7 ph25 p6 ph24)
  (p6 ph22 p7 ph23 p6 ph22)
  (p6 ph22 p7 ph23 p6 ph22)
  (p6 ph24 p7 ph25 p6 ph24)
  (p6 ph22 p7 ph23 p6 ph22)
  (p6 ph22 p7 ph23 p6 ph22)
  (p6 ph24 p7 ph25 p6 ph24)
  (p6 ph22 p7 ph23 p6 ph22)
  (p6 ph22 p7 ph23 p6 ph22)
  (p6 ph24 p7 ph25 p6 ph24)
  (p6 ph24 p7 ph25 p6 ph24)
  (p5 ph23)
  lo to 4 times l1 
						;end MLEV17
  (p17 ph26) 

  go=2 ph31
  d1 mc #0 to 2
     F1PH(calph(ph1, +90) & calph(ph6, +90) & calph(ph2, +90) & calph(ph3, +90) & calph(ph4, +90) & calph(ph5, +90), caldel(d0, +in0))
exit


ph1= 0
ph6= 1
ph2= 0 0 2 2
ph3= 0 0 0 0 2 2 2 2  1 1 1 1 3 3 3 3
ph4= 0 2 0 2 2 0 2 0  1 3 1 3 3 1 3 1
ph5= 0 0 0 0 2 2 2 2  1 1 1 1 3 3 3 3
ph22=0 0 0 0 0 0 0 0  1 1 1 1 1 1 1 1
ph23=1 1 1 1 1 1 1 1  2 2 2 2 2 2 2 2
ph24=2 2 2 2 2 2 2 2  3 3 3 3 3 3 3 3
ph25=3 3 3 3 3 3 3 3  0 0 0 0 0 0 0 0
ph26=1 1 1 1 1 1 1 1  2 2 2 2 2 2 2 2
ph31=0 2 2 0 2 0 0 2  3 1 1 3 1 3 3 1


;pl1: f1 channel - power level for pulse (default)
;pl10: f1 channel - power level for TOCSY-spinlock
;p1 : f1 channel -  90 degree high power pulse
;p2 : f1 channel - 180 degree high power pulse
;p5 : f1 channel -  60 degree low power pulse
;p6 : f1 channel -  90 degree low power pulse
;p7 : f1 channel - 180 degree low power pulse
;p17: f1 channel - trim pulse  [2.5 msec]
;p19: gradient pulse 2 (spoil gradient)
;p30: gradient pulse (little DELTA  * 0.5)
;d0 : incremented delay (2D)
;d1 : relaxation delay; 1-5 * T1
;d9 : TOCSY mixing time
;d12: delay for power switching              [20 usec]
;d16: delay for gradient recovery
;d20: diffusion time (big DELTA)
;d21: eddy current delay (Te)                [5 ms]
;l1 : loop for MLEV cycle: (((p6*64) + p5) * l1) + (p17*2) = mixing time
;inf1: 1/SW = 2 * DW
;in0: 1/(1 * SW) = 2 * DW
;nd0: 1
;
;cpmg
;d22: fixed echo time to allow elimination of J-mod. effects 
;        d20 should be << 1/J ,but > (50 * P2)       [1-2 msec]
;l4: loop for T2 filter                              [4 - 20] 
;
;ns : 8 * n
;ds : 16 * m
;td1: number of experiments
;FnMODE: States-TPPI, TPPI, States or QSEQ
;        use xf2 and DOSY processing


;use gradient ratio:    gp 6 :  gp 7  :  gp 8
;                       100  : -17.13 : -13.17

;for z-only gradients:
;gpz6: 100%
;gpz7: -17.13% (spoil)
;gpz8: -13.17% (spoil)

;use gradient files:   
;gpnam6: SMSQ10.100
;gpnam7: SMSQ10.100
;gpnam8: SMSQ10.100

;use AU-program dosy to calculate gradient ramp-file Difframp


;Processing

;PHC0(F1): 90
;PHC1(F1): -180
;FCOR(F1): 1



;$Id: ledbpgpml2s2d,v 1.10.2.1 2013/08/30 09:43:35 ber Exp $
