# 1 "/opt/topspin3.0/exp/stan/nmr/lists/pp/user/hahnecho.km736.jb2382"
;hahnecho (TopSpin 2.0)

; Hahn-Echo experiment
; to be used in MAS experiments, echo delay is set to be an integer number
; of rotor periods
; acquisition starts immediately after 180 degree pulse to be able to sample whole echo
; for short echo delays set parameter nsp equal to number of points before echo-top
; in this case use digmod analog or digmod digital and dspfirm smooth
; for full echo accumulation digmod digital and dspfirm sharp can also be used
; set phc0=0 and phc1=d6*swh*360 and do straight fp, sine bell or squared sine bell
; window functions may be used
; for static experiments enter cnst31 = 1e6 and set l1 to desired echo delay in us
; this pulse program can be used to determine 90 and 180 degree selective pulses
; used in MQMAS experiments (mp3q...)
; CAUTION : p3 and p4 are used for subsequent use in MQMAS experiments

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

;$OWNER=es532
"d6=((1s*l1)/cnst31)-(p1/2)-(p2/2)"
"d7=((1s*l1)/cnst31)-(p2/2)-de"
"p2=2*p1"
;cnst11 : to adjust t=0 for acquisition, if digmod = baseopt
"acqt0=1u*cnst11"

# 1 "mc_line 43 file /opt/topspin3.0/exp/stan/nmr/lists/pp/user/hahnecho.km736.jb2382 exp. def. part of mc cmd. before ze"
define delay MCWRK
define delay MCREST
"MCWRK = 0.500000*1m"
"MCREST = d1 - 0.500000*1m"

    dccorr
# 43 "/opt/topspin3.0/exp/stan/nmr/lists/pp/user/hahnecho.km736.jb2382"
1 ze
# 1 "mc_line 43 file /opt/topspin3.0/exp/stan/nmr/lists/pp/user/hahnecho.km736.jb2382 exp. def. of mc cmd. after ze"
# 44 "/opt/topspin3.0/exp/stan/nmr/lists/pp/user/hahnecho.km736.jb2382"
# 1 "mc_line 44 file /opt/topspin3.0/exp/stan/nmr/lists/pp/user/hahnecho.km736.jb2382 exp. start label for mc cmd."
2 MCWRK
  MCREST
# 45 "/opt/topspin3.0/exp/stan/nmr/lists/pp/user/hahnecho.km736.jb2382"
  (p1 pl1 ph1):f1
  d6
  (p2 ph2):f1
  d7
  go=2 ph31
# 1 "mc_line 50 file /opt/topspin3.0/exp/stan/nmr/lists/pp/user/hahnecho.km736.jb2382 exp. mc cmd. in line"
  MCWRK  wr #0
  MCWRK
# 51 "/opt/topspin3.0/exp/stan/nmr/lists/pp/user/hahnecho.km736.jb2382"
exit
# 53 "/opt/topspin3.0/exp/stan/nmr/lists/pp/user/hahnecho.km736.jb2382"
ph0=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
