# one-Xx.in (SIMPSON 3.1)

#one pulse -X(90°)-detection for positive gyromagnetic ratio nuclei, 
#Mx versus offset varying from 0 to np kHz in steps of 1 kHz

spinsys {
  channels 29Si
  nuclei   29Si
  shift 1 0 0 0 0 0 0
}

par {
  proton_frequency 400e6
  variable tsw     0.5
  sw               1.0e6/tsw
  np               71
  crystal_file     alpha0beta0
  gamma_angles     1
  start_operator   I1z
  detect_operator  2*I1x
  verbose          1101
  variable rf      50000
  variable p1      5
}

proc pulseq {} {
  global par

  for {set i 0} {$i < $par(np)} {incr i} {
    
    offset [expr $i*1000]

    pulse $par(p1) $par(rf) -x

    acq

    reset
  }
}

proc main {} {
  global par

  fsave [fsimpson] $par(name).fid

  puts "Larmor frequency (Hz) of 29Si: "
  puts [resfreq 29Si $par(proton_frequency)]
}

SIMP
NP=71
SW=2000000
TYPE=FID
DATA
#1.22460635e-016 0
#-0.0199982832 0
#-0.0399862674 0
#-0.0599536602 0
#-0.0798901837 0
#-0.0997855806 0
#-0.119629622 0
#-0.139412113 0
#-0.159122903 0
#-0.178751886 0
#-0.198289016 0
#-0.217724306 0
#-0.23704784 0
#-0.256249778 0
#-0.275320363 0
#-0.294249924 0
#-0.31302889 0
#-0.331647789 0
#-0.350097259 0
#-0.368368052 0
#-0.386451043 0
#-0.404337233 0
#-0.422017753 0
#-0.439483879 0
#-0.456727029 0
#-0.473738769 0
#-0.490510827 0
#-0.507035087 0
#-0.523303605 0
#-0.539308605 0
#-0.555042492 0
#-0.57049785 0
#-0.585667454 0
#-0.600544267 0
#-0.615121452 0
#-0.62939237 0
#-0.643350588 0
#-0.656989883 0
#-0.670304244 0
#-0.683287878 0
#-0.69593521 0
#-0.708240893 0
#-0.720199804 0
#-0.731807051 0
#-0.743057976 0
#-0.753948156 0
#-0.764473407 0
#-0.774629787 0
#-0.784413597 0
#-0.793821381 0
#-0.802849934 0
#-0.811496296 0
#-0.81975776 0
#-0.827631869 0
#-0.835116421 0
#-0.842209466 0
#-0.848909309 0
#-0.85521451 0
#-0.861123883 0
#-0.866636501 0
#-0.87175169 0
#-0.876469032 0
#-0.880788364 0
#-0.884709778 0
#-0.88823362 0
#-0.891360489 0
#-0.894091233 0
#-0.896426954 0
#-0.898369002 0
#-0.899918973 0
#-0.90107871 0
#END