# al-zfilter-amplitude-12p2p3-filtering-p3.in # approach: filtering the desired coherences after the first pulse # and after the second pulse, three times # spin-5/2 echo and antiecho amplitude optimization # versus the third-pulse duration # in three-pulse z-filtered amplitude-modulated 3Q-MAS sequence, # the first-pulse duration p1 = 1.5 micro seconds # the second-pulse duration p2 = 2 micro seconds spinsys { channels 27Al nuclei 27Al quadrupole 1 2 3e6 0 0 0 0 } par { spin_rate 5000 variable tsw 0.25 sw 1.0e6/tsw np 68 crystal_file rep100 gamma_angles 10 proton_frequency 800e6 start_operator 12*I1z detect_operator I1c verbose 1101 variable rf 90000 variable rf3 9300 variable p1 1.5 variable p2 2 variable nb1 0 variable nb2 0 } proc pulseq {} { global par maxdt $par(tsw) matrix set 1 coherence {-1 5} matrix set 2 coherence { 1 -5} matrix set 3 coherence {-3 3} matrix set 10 coherence { 2 -4} matrix set 20 coherence {-2 4} matrix set 30 coherence {0} acq -y pulse $par(p1) $par(rf) x filter $par(nb1) pulse $par(p2) $par(rf) x filter $par(nb2) for {set i 1} {$i < $par(np)} {incr i} { pulse $par(tsw) $par(rf3) x acq -y } } proc main {} { global par for {set j 1} {$j < 4} {incr j} { set par(nb1) $j set par(nb2) [expr 10*$j] set g [fsimpson] if [info exists f] { fadd $f $g funload $g } else { set f $g } } fsave $f $par(name).fid funload $f puts "Larmor frequency (Hz) of 27Al: " puts [resfreq 27Al $par(proton_frequency)] } # SIMP # NP=17 # SW=4000000 # TYPE=FID # DATA # 0 0 # -0.206665812 0.000499703965 # -0.48959363 0.000977043217 # -0.815442126 0.00143750448 # -1.1484551 0.00186923204 # -1.45605604 0.00225831287 # -1.71311835 0.00261088409 # -1.9042515 0.00297259383 # -2.0239681 0.00343503363 # -2.07511037 0.00412302329 # -2.06627031 0.00516435619 # -2.00910978 0.0066502627 # -1.91631566 0.00859811946 # -1.80042796 0.0109282919 # -1.67337844 0.0134637523 # -1.54642756 0.0159543815 # -1.4301058 0.0181212413 # -1.3338324 0.0197112721 # -1.26515761 0.0205485723 # -1.22875888 0.0205678548 # -1.22537336 0.0198226543 # -1.251017 0.01846996 # -1.29698739 0.0167376303 # -1.35094316 0.0148839485 # -1.3989187 0.0131611351 # -1.42781373 0.011790805 # -1.42775297 0.010951125 # -1.39371963 0.010771048 # -1.32610702 0.0113259752 # -1.23016534 0.0126293044 # -1.11452871 0.0146190873 # -0.989193051 0.0171453723 # -0.863517147 0.0199659791 # -0.744774878 0.0227598439 # -0.63754426 0.0251655602 # -0.543985432 0.0268412058 # -0.464702762 0.0275296501 # -0.399557135 0.0271114686 # -0.347949237 0.025629177 # -0.308516967 0.0232732099 # -0.278488818 0.0203356844 # -0.253210309 0.0171480014 # -0.226383889 0.0140189932 # -0.191088113 0.0111919723 # -0.1412445 0.00883290109 # -0.0731361138 0.00704414962 # 0.0135050327 0.00588732178 # 0.115249713 0.00539763692 # 0.225647792 0.00557825095 # 0.336742351 0.00638057595 # 0.441083205 0.00768683958 # 0.533468647 0.00930163642 # 0.611746523 0.0109579871 # 0.67658595 0.0123511718 # 0.730482991 0.0131994166 # 0.776451504 0.0133082605 # 0.817001775 0.0126157048 # 0.853818719 0.0112067941 # 0.888090811 0.00929327279 # 0.921075364 0.00716260076 # 0.954434091 0.00511173636 # 0.990123266 0.00338577496 # 1.02992257 0.00213787334 # 1.0748666 0.00141883231 # 1.12485068 0.00119299134 # 1.17853239 0.00136714363 # 1.2335683 0.00182016397 # 1.28717281 0.00242588212 # END