# al-two-pulse-phase-filtering-p2.in # approach: filtering the desired coherences (3Q) after the first pulse # spin-5/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 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 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 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 # -0.436109382 0.00158750715 # -4.53938876 0.0108965214 # -10.4080882 0.00611920977 # -9.76560357 -0.00233848726 # -3.39315746 -0.00310945212 # -0.157775773 -0.00647408467 # -3.13582053 0.0168641298 # -6.76407613 0.0406736622 # -7.97569632 0.0533532962 # -8.89052483 0.0693267064 # -10.7598055 0.105339962 # -10.2630088 0.134054269 # -6.23009824 0.107245794 # -3.62287716 0.0129175172 # -5.24794555 -0.0596462647 # -8.29739628 -0.0200624431 # -9.51149811 0.0132963128 # -8.62338565 -0.0415603277 # -7.03607219 -0.0600165789 # -6.06042536 0.0220030029 # -5.19774483 0.0618882389 # -4.58593169 0.00413940655 # -5.89354545 -0.0415600431 # -7.78637194 -0.0252156349 # -7.33390701 0.024598312 # -5.1435276 0.0499900398 # -3.96433225 0.022674965 # -4.01091884 -0.0120402277 # -4.46801666 0.0279405016 # -6.13634008 0.107932791 # -8.61949687 0.153391 # -10.1191434 0.184883219 # -9.18834672 0.182874721 # -6.75976965 0.136001032 # -5.67501523 0.116423371 # -5.80865649 0.0990402046 # -5.75253485 0.0480128007 # -6.63239336 0.0763647394 # -8.39940185 0.1746642 # -8.54744342 0.222061886 # END