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

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

# spin-5/2 echo and antiecho 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 27Al
  nuclei   27Al
  quadrupole 1 2 3e6 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   6*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 -y
  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 27Al: "
  puts [resfreq 27Al $par(proton_frequency)]
}

# SIMP
# NP=41
# SW=2000000
# TYPE=FID
# DATA
# 0 0
# 1.69423767 0.0033480153
# 2.5517062 -0.00334440006
# 0.0543479081 -0.00806236633
# -1.05667937 0.00548981758
# 0.519252088 0.0173623368
# 1.37546719 0.0263446175
# 0.214986101 0.0194006955
# -0.393102885 0.00445823766
# -0.0895769016 -0.0073630043
# -0.0919356981 0.0116353674
# -1.09102988 0.0364144954
# -1.76854284 0.0330614185
# -0.895633547 0.0176061864
# -0.140050466 -0.00310526554
# -0.426595413 -0.0179545666
# -0.734619305 -0.0275723072
# -0.248902961 -0.0214070782
# 0.140118698 -0.00513382466
# -0.0356300816 0.0165775985
# -0.464613734 0.0259210158
# -0.416564031 0.0224502662
# 0.0909616926 0.0110929497
# 0.247447429 0.00203947821
# 0.198995934 0.00875373182
# 0.622869646 0.0250730615
# 1.19505207 0.0438996239
# 0.893257617 0.0387636939
# 0.327567298 0.0280477281
# 0.188555846 0.0304695618
# -0.0671657422 0.0374339227
# -0.615011184 0.0502635933
# -1.13790362 0.0577940982
# -0.95955831 0.0647799932
# -0.256397868 0.071213347
# -0.154125318 0.0604277862
# -0.330340177 0.0455941915
# 0.0178639079 0.0418843852
# 0.121993798 0.0538718507
# -0.473319666 0.0666595825
# -0.751770845 0.0778795768
# END