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

# approach: filtering the desired coherence (-3Q) after the first pulse

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

spinsys {
  channels 23Na
  nuclei   23Na
  quadrupole 1 1 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   24*I1z
  detect_operator  I1c
  verbose          1101
  variable rf      100000
  variable p1      5
}

proc pulseq {} {
  global par
  maxdt $par(tsw)
  matrix set 1 coherence {-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 23Na: "
  puts [resfreq 23Na $par(proton_frequency)]
}

# SIMP
# NP=41
# SW=2000000
# TYPE=FID
# DATA
# 0 0
# 2.09922822 -3.46526615e-16
# 6.34304518 -1.03945777e-15
# 9.00910329 -1.58143026e-15
# 8.66050705 -1.60080944e-15
# 6.79038071 -1.30324773e-15
# 5.45470498 -1.04484309e-15
# 5.19311644 -9.63930555e-16
# 5.00222595 -8.45554767e-16
# 4.01503049 -6.42594032e-16
# 2.86908614 -5.07993446e-16
# 2.84886138 -4.79515038e-16
# 4.09893333 -6.43866118e-16
# 5.56975162 -9.2763073e-16
# 6.32589372 -1.11005958e-15
# 6.18966891 -1.18289909e-15
# 5.44609664 -1.14178447e-15
# 4.43025526 -9.85137126e-16
# 3.43797585 -8.94189996e-16
# 2.90616202 -8.12728707e-16
# 3.35147662 -8.08528525e-16
# 4.8430532 -9.12294582e-16
# 6.63926553 -1.16546036e-15
# 7.63088381 -1.35345168e-15
# 7.34253752 -1.29744417e-15
# 6.37997143 -9.78239417e-16
# 5.62709452 -8.18933692e-16
# 5.26425859 -7.95626881e-16
# 4.95258841 -9.36739758e-16
# 4.60580358 -1.19465774e-15
# 4.57054021 -1.30302925e-15
# 5.20369812 -1.27571208e-15
# 6.34406795 -1.24945415e-15
# 7.29706122 -1.24219208e-15
# 7.57284428 -1.47812614e-15
# 7.30935259 -1.84288712e-15
# 6.79580111 -1.91622715e-15
# 6.23946044 -1.49341979e-15
# 6.00356474 -1.13440972e-15
# 6.32093294 -1.08810857e-15
# 6.98926573 -1.39636792e-15
# END