# na-two-pulse-amplitude-filtering-p1.in # approach: filtering the desired coherences (+3Q and -3Q) after the first pulse # spin-3/2 central-transition echo amplitude optimization # versus the first-pulse duration # in two-pulse amplitude-modulated 3Q-MAS sequence, # the second-pulse duration p2 = 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 p2 5 } proc pulseq {} { global par maxdt $par(tsw) matrix set 1 coherence {3 -3} acq -y for {set i 1} {$i < $par(np)} {incr i} { pulse $par(tsw) $par(rf) x store 2 filter 1 pulse $par(p2) $par(rf) x acq -y reset prop 2 } } 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 # 0.00107226718 -2.92568061e-05 # 0.028371441 2.55765323e-05 # 0.159109627 0.00191541653 # 0.44184836 0.00854372847 # 0.812829146 0.0205390691 # 1.18037773 0.035161139 # 1.52171919 0.0492319057 # 1.81620839 0.0615442796 # 2.01757672 0.0725686709 # 2.12519417 0.0833011191 # 2.16495868 0.0941525313 # 2.16828063 0.105175393 # 2.17326421 0.117275118 # 2.13166879 0.130859669 # 1.93825815 0.143932519 # 1.60003237 0.153783575 # 1.21737621 0.159068282 # 0.853236986 0.15986332 # 0.52677868 0.157790849 # 0.245718005 0.155488533 # 0.0157874964 0.154918527 # -0.124971415 0.157187753 # -0.110737294 0.163834004 # 0.0950282238 0.176782525 # 0.473669958 0.196379831 # 0.944004075 0.219219836 # 1.37725669 0.238471391 # 1.67379008 0.248069155 # 1.79863884 0.246699838 # 1.75174012 0.237385698 # 1.56207302 0.224917126 # 1.27653678 0.213561108 # 0.963807089 0.205581893 # 0.725196059 0.201605312 # 0.592274903 0.200651807 # 0.465664975 0.199686978 # 0.252265142 0.19627544 # -0.0276960442 0.190939867 # -0.292905792 0.184984547 # -0.472670563 0.178696071 # END