# 1 "/opt/topspin3.0/exp/stan/nmr/lists/pp/user/presat_hahnecho.km736"
;hahnecho
;
;
;TS3 / 03.06.2011
;
; Hahn-Echo experiment
; for static experiments enter cnst31 = 1e6 and set l1 to desired echo delay in us
;
;
;parameters:
;pl1 : RF power level for 90/180
;p1 : 90 degree pulse
;p2 : =p1*2, 180 degree pulse
;d1 : recycle delay
;d6 : echo delay (calculated)
;cnst31 : =MAS spin rate (or =1e6 for static)
;l1 : # of rotor cycles (or tau in us)
;ns : 16*n
;
;
;$CLASS=Solids
;$DIM=1D
;$TYPE=direct excitation
;$SUBTYPE=simple 1D
;$COMMENT=Hahn-Echo experiment, MAS or static, standard parameters


;"p2=p1*2"
"d6=((1s*l1)/cnst31)-(p1/2)-(p2/2)"
"d7=((1s*l1)/cnst31)-(p2/2)-de"
;cnst11 : to adjust t=0 for acquisition, if digmod = baseopt
"acqt0=0"
# 1 "mc_line 35 file /opt/topspin3.0/exp/stan/nmr/lists/pp/user/presat_hahnecho.km736 exp. def. part of mc cmd. before ze"
define delay MCWRK
define delay MCREST
"MCWRK = 0.500000*10m"
"MCREST = 10m - 0.500000*10m"

    dccorr
# 35 "/opt/topspin3.0/exp/stan/nmr/lists/pp/user/presat_hahnecho.km736"
# 35 "/opt/topspin3.0/exp/stan/nmr/lists/pp/user/presat_hahnecho.km736"
1 ze
# 1 "mc_line 35 file /opt/topspin3.0/exp/stan/nmr/lists/pp/user/presat_hahnecho.km736 exp. def. of mc cmd. after ze"
# 36 "/opt/topspin3.0/exp/stan/nmr/lists/pp/user/presat_hahnecho.km736"
# 1 "mc_line 36 file /opt/topspin3.0/exp/stan/nmr/lists/pp/user/presat_hahnecho.km736 exp. start label for mc cmd."
2 MCWRK
  MCREST
# 37 "/opt/topspin3.0/exp/stan/nmr/lists/pp/user/presat_hahnecho.km736"
3 d20 pl20:f1
	(p20 ph20):f1
  lo to 3 times l20
  d1

  (p1 pl1 ph1):f1

  d6
# 46 "/opt/topspin3.0/exp/stan/nmr/lists/pp/user/presat_hahnecho.km736"
  (p2 ph2):f1
	
  d7
  
  go=2 ph31

# 1 "mc_line 52 file /opt/topspin3.0/exp/stan/nmr/lists/pp/user/presat_hahnecho.km736 exp. mc cmd. in line"
  MCWRK  wr #0
  MCWRK
# 53 "/opt/topspin3.0/exp/stan/nmr/lists/pp/user/presat_hahnecho.km736"
exit

ph0=0
ph1=0 1 2 3
ph2=0 0 0 0 1 1 1 1 2 2 2 2 3 3 3 3
ph20=0
ph30=0
ph31=0 3 2 1 2 1 0 3
# 62 "/opt/topspin3.0/exp/stan/nmr/lists/pp/user/presat_hahnecho.km736"
;$id: $
