# 1 "/root/.topspin-BladeEpu/local_acqu/ppDirs/satecho.ah"
# 1 "<built-in>"
# 1 "<command-line>"
# 1 "/root/.topspin-BladeEpu/local_acqu/ppDirs/satecho.ah"
;satrect1
;
;TS 3 / 08.09.2011
;
;saturation recovery T1 experiment
;pulse program is for 2D acquisition
;establish suitable vd list
;uses mc syntax, so that it can be used in 1D mode for set-up of 
;saturation pulse train
;
;
;Avance III version
;parameters:
;pl1 : X power level
;pl1 : saturation power level
;pl2 : =0W, not used
;pl12 : power level for H 90 and standard proton decoupling 
;pl13 : e.g. used in spinal64_13
;p1 : X 90 degree pulse
;p2 : =p1*2, 180 degree pulse
;d6 : echo delay (calculated)
;cnst31 : =MAS spin rate (or =1e6 for static)
;pcpd2 : pulse length in decoupling sequence
;d1 : recycle delay
;d20 : delay in saturation pulse train
;l20 : number of pulses in saturation pulse train, 0 if undesired
;FnMODE: 
;
;
;$CLASS=Solids
;$DIM=pseudo 2D
;$TYPE=direct excitation
;$SUBTYPE=T1/T2
;$COMMENT=saturation recovery T1 experiment

prosol relations=<solids_default>

"p2=p1*2"
"d6=((1s*l1)/cnst31)-(p1/2)-(p2/2)"
"d7=d6-de"
"acqt0=-(1u*+p1/2)"
# 1 "mc_line 43 file /root/.topspin-BladeEpu/local_acqu/ppDirs/satecho.ah exp. def. part of mc cmd. before ze"
; dimension 1D; AQ_mode 
define delay MCWRK
define delay MCREST
"MCREST = 50m - 30m"
"MCWRK = 0.333333*30m"
# 43 "/root/.topspin-BladeEpu/local_acqu/ppDirs/satecho.ah"
# 43 "/root/.topspin-BladeEpu/local_acqu/ppDirs/satecho.ah"
1 ze
# 1 "mc_line 43 file /root/.topspin-BladeEpu/local_acqu/ppDirs/satecho.ah exp. def. of mc cmd. after ze"
# 44 "/root/.topspin-BladeEpu/local_acqu/ppDirs/satecho.ah"
# 1 "mc_line 44 file /root/.topspin-BladeEpu/local_acqu/ppDirs/satecho.ah exp. start label for mc cmd."
2 MCWRK  * 2
LBLF0, MCWRK
  MCREST
# 45 "/root/.topspin-BladeEpu/local_acqu/ppDirs/satecho.ah"
3 d20
  (p1 pl11 ph4):f1
  lo to 3 times l20
  d1			;relaxation delay
  (p1 pl1 ph1):f1
  d6
  (p2 pl1 ph2):f1
  d7
  go=2 ph31
# 1 "mc_line 54 file /root/.topspin-BladeEpu/local_acqu/ppDirs/satecho.ah exp. mc cmd. in line"
  MCWRK wr #0
  MCWRK zd
  lo to LBLF0 times td0

# 55 "/root/.topspin-BladeEpu/local_acqu/ppDirs/satecho.ah"
exit

ph0=0
ph4=0
ph1=0 1 2 3
ph2=0 0 0 0 1 1 1 1 2 2 2 2 3 3 3 3
ph30=0
ph31=0 3 2 1 2 1 0 3

# 68 "/root/.topspin-BladeEpu/local_acqu/ppDirs/satecho.ah"
;$Id: satrect1nodec,v 1.6 2017/02/22 16:58:55 ber Exp $
