19F_T1.cw

;19F hahn-echo

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

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

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

"p2=p1*2"

; for baseopt
"acqt0=0"
baseopt_echo

1 ze 
  vdMin
  
2 d1 

  "DELTA1=vd*0.5-p1*1.6366"
  "DELTA2=vd*0.5-p1"

  4u pl1:f1
  p2 ph1
  DELTA1
  p1 ph2
  DELTA2
  go=2 ph31 
  d1 mc #0 to 2 
     F1QF(ivd)

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