# na-two-pulse-amplitude-filtering-p2.in

# approach: filtering the desired coherences (+3Q and -3Q) after the first pulse

# spin-3/2 central-transition echo amplitude optimization
# versus the second-pulse duration
# in two-pulse amplitude-modulated 3Q-MAS sequence,
# the first-pulse duration p1 = 5 micro seconds

spinsys {
  channels 23Na
  nuclei   23Na
  quadrupole 1 2 1e6 0 0 0 0
}

par {
  proton_frequency 400e6
  spin_rate        10000
  variable tsw     0.5
  sw               1.0e6/tsw
  np               41
  crystal_file     rep100
  gamma_angles     10
  start_operator   36*I1z
  detect_operator  I1c
  verbose          1101
  variable rf      100000
  variable p1      5
}

proc pulseq {} {
  global par
  maxdt $par(tsw)

  matrix set 1 coherence {3 -3}

  acq
  pulse $par(p1) $par(rf) x
  filter 1

  for {set i 1} {$i < $par(np)} {incr i} {
    pulse $par(tsw) $par(rf) x
    acq -y
  }
}

proc main {} {
  global par

  fsave [fsimpson] $par(name).fid
  puts "Larmor frequency (Hz) of 23Na: "
  puts [resfreq 23Na $par(proton_frequency)]
}

# SIMP
# NP=41
# SW=2000000
# TYPE=FID
# DATA
# 0 0
# 3.0688345 0.0162863463
# 8.46335627 0.0602093025
# 9.68066782 0.109942132
# 5.36433146 0.146900085
# 0.0336752792 0.169406853
# -1.56151824 0.183189886
# 0.921476643 0.186392342
# 3.88056903 0.168388639
# 4.11675523 0.126915559
# 2.12519417 0.0833011191
# 0.437202842 0.0689351022
# 0.0215049057 0.0945338967
# -0.0129466716 0.141371313
# -0.383708141 0.181728435
# -1.00252501 0.20118324
# -1.70815047 0.203778756
# -2.5878715 0.200977932
# -3.53854788 0.197261008
# -3.78950641 0.190256734
# -2.37465219 0.185649019
# 0.526868703 0.200391121
# 3.06147068 0.240448589
# 3.20162032 0.284415553
# 0.979058387 0.303671147
# -1.43545833 0.292281498
# -2.29896804 0.266523087
# -2.08545443 0.244862606
# -2.26460706 0.235000959
# -3.27674918 0.232336753
# -4.12560207 0.232317079
# -3.5708256 0.242990172
# -1.75138866 0.270992724
# -0.216924362 0.303960649
# -0.0022857034 0.326122288
# -0.726851203 0.33616695
# -1.67818108 0.336452155
# -2.33116525 0.326665177
# -2.20913148 0.314042905
# -1.44906983 0.307891458
# -0.616041715 0.308119258
# END