;ledbpgppr2s1d_cpmg_qt
;avance-version (12/01/11)
;2D sequence for diffusion measurement using stimulated 
;   echo and LED
;using bipolar gradient pulses for diffusion
;using 2 spoil gradients
;with presaturation during relaxation delay
;
;D. Wu, A. Chen & C.S. Johnson Jr., 
;   J. Magn. Reson. A 115, 260-264 (1995).
;
;$CLASS=HighRes
;$DIM=2D
;$TYPE=
;$SUBTYPE=
;$COMMENT=


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


define list<gradient> diff=<Difframp>


"p2=p1*2"
"d11=30m"
"d12=20u"

"d16=200u"

"DELTA3=d22-p1*2/3.1416" ;cpmg d22=1ms
;"DELTA4=d22-de"          ;cpmg

"DELTA1=d20-p1*2-p2-p30*2-d16*2-p19-d16-d12-4u"  ;dosy
"DELTA2=d21-p19-d16-d12-8u"                      ;dosy


"acqt0=-p1*2/3.1416"


1 ze
2 d11
  d12 pl9:f1
  d1 cw:f1 ph29
  50u do:f1 UNBLKGRAD
  d12 pl1:f1          ;cpmg
  p1 ph1
  DELTA3
  p2 ph6
  d22
3 d22
  p2 ph6
  d22
  lo to 3 times l4
  d22
  p2 ph6
  d22        ;replace DELTA4  
  p30:gp6    ;dosy
  d16
  p2 ph1
  p30:gp6*-1
  d16
  p1 ph2
  p19:gp7
  d16 pl9:f1
  DELTA1 cw:f1 ph29
  4u do:f1
  d12 pl1:f1
  p1 ph3
  p30:gp6
  d16
  p2 ph1
  p30:gp6*-1
  d16
  p1 ph4
  p19:gp8
  d16 pl9:f1
  DELTA2 cw:f1 ph29
  4u do:f1
  d12 pl1:f1
  4u BLKGRAD
  p1 ph5
  go=2 ph31
  d11 mc #0 to 2 F0(zd)
exit


ph1= 0
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
ph6= 1
ph29=0
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)
;pl9 : f1 channel - power level for presaturation
;p1  : f1 channel -  90 degree high power pulse
;p2  : f1 channel - 180 degree high power pulse
;
;cpmg
;d22: fixed echo time to allow elimination of J-mod. effects 
;        d22 should be << 1/J ,but > (50 * P2)       [1-2 msec]
;l4: loop for T2 filter                              [4 - 20] 
;ns: 1 * n, total number of scans: NS * TD0
;ds: 16
;
;dosy
;p19: gradient pulse 2 (spoil gradient)
;p30: gradient pulse (little DELTA * 0.5)
;d1  : relaxation delay; 1-5 * T1
;d11: delay for disk I/O                             [30 msec]
;d12: delay for power switching                      [20 usec]
;d16: delay for gradient recovery
;d20: diffusion time (big DELTA)
;d21: eddy current delay (Te)                        [5 ms]
;ns: 8 * n
;ds: 4 * m
;td1: number of experiments
;FnMODE: QF
;        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



;$Id: ledbpgppr2s,v 1.4 2012/01/31 17:49:27 ber Exp $
