19F_T2_kinetics.cw

;19F hahn-echo, repeated measurements for kinetics
;td1 = number of relaxation times
;td2 = number of points for kinetics

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

define list<delay> vd_list = <$VDLIST>
"l1=0"

define delay vdMin
"vdMin=2*p1*1.6366"

"d11=30m"
"d12=20u"

"p2=p1*2"

; for baseopt
"acqt0=0"
baseopt_echo

aqseq 312

1 ze 
  vdMin
  
2 d1 

  "DELTA1=vd_list[l1]*0.5-p1*1.6366"
  "DELTA2=vd_list[l1]*0.5-p1"

  4u pl1:f1
  p1 ph1
  DELTA1
  p2 ph2
  DELTA2
  go=2 ph31 
  d11 mc #0 to 2 
     F1QF(calclc(l1,1))
     F2QF()

exit 
  

ph1 = 0 2
ph2 = 0 0 1 1 2 2 3 3
ph31= 0 2 2 0


;d1 : relaxation delay (excluding saturation time)
;d11: delay for disk I/O                             [30 msec]
;d12: delay for power switching                      [20 usec]
;d16: delay for homospoil/gradient recovery
;vdlist: relaxation time
;ns: 4 * n
;ds: 4