# al-two-pulse-phase-filtering-5Q-p1.in # approach: filtering the desired coherences (-5Q) after the first pulse # spin-5/2 central-transition echo amplitude optimization # versus the first-pulse duration # in two-pulse phase-modulated -5Q-MAS sequence, # the second-pulse duration p2 = 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 40*I1z detect_operator I1c verbose 1101 variable rf 100000 variable p2 5 } proc pulseq {} { global par maxdt $par(tsw) matrix set 1 coherence {-5} 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 27Al: " puts [resfreq 27Al $par(proton_frequency)] } # SIMP # NP=41 # SW=2000000 # TYPE=FID # DATA # 0 0 # 5.77931377e-06 -5.19916495e-08 # 0.00207742681 6.20346961e-05 # 0.0411591738 0.00188232406 # 0.228231425 0.0119612061 # 0.62584642 0.0336096302 # 1.10539107 0.0591198069 # 1.5067473 0.0817093315 # 1.77604558 0.0981254784 # 1.84394204 0.100253983 # 1.68757427 0.08845536 # 1.41163474 0.0765755027 # 1.05679924 0.0672301627 # 0.625165414 0.0531112983 # 0.290495111 0.0439552047 # 0.215524622 0.0524786183 # 0.27401412 0.0667921745 # 0.257407271 0.0692306026 # 0.204883055 0.0664851942 # 0.287353875 0.0734525754 # 0.557510768 0.0922618578 # 0.902311398 0.112802219 # 1.18738389 0.125901371 # 1.39824902 0.137105418 # 1.6040741 0.158538105 # 1.76904218 0.183936162 # 1.83999604 0.203718804 # 1.80891451 0.217423856 # 1.72337917 0.229467554 # 1.67414681 0.246968392 # 1.60090877 0.258671204 # 1.41939197 0.249392927 # 1.24221854 0.231245085 # 1.19448861 0.223301713 # 1.24916155 0.22831394 # 1.3157394 0.240036932 # 1.34613661 0.253423993 # 1.38237894 0.271980168 # 1.48334852 0.302104331 # 1.58293583 0.331697255 # 1.57295346 0.334744673 # END