# al-split-t1-antiecho-96-phase-cycling-p1.in # oQ -> -3Q -> 1Q -> -1Q # approach: 96-phase cycling the first pulse, the third pulse and the receiver # spin-5/2 antiecho amplitude optimization # versus the first-pulse duration # in three-pulse split-t1 phase-modulated -3Q-MAS sequence, # the second-pulse duration p2 = 4 micro seconds # the third-pulse duration p3 = 2 micro seconds spinsys { channels 27Al nuclei 27Al quadrupole 1 1 3e6 1 0 0 0 } par { spin_rate 5000 variable tsw 0.5 sw 1.0e6/tsw np 34 crystal_file rep100 gamma_angles 10 proton_frequency 800e6 start_operator I1z detect_operator I1c verbose 1101 variable rf 90000 variable rf3 90000 variable p2 4 variable p3 2 variable N1 12 variable N3 8 variable deltap1 3 variable deltap3 2 } proc pulseq {} { global par maxdt $par(tsw) acq $par(ph31) for {set i 1} {$i < $par(np)} {incr i} { pulse $par(tsw) $par(rf) $par(ph1) store 2 pulse $par(p2) $par(rf) x pulse $par(p3) $par(rf3) $par(ph3) acq [expr $par(ph31) - 90] reset prop 2 } } proc main {} { global par for {set j1 0} {$j1 < $par(N1)} {incr j1} { set par(ph1) [expr $j1*360./$par(N1)] for {set j3 0} {$j3 < $par(N3)} {incr j3} { set par(ph3) [expr $j3*360./$par(N3)] set par(ph31) [expr $par(deltap1)*$par(ph1) + $par(deltap3)*$par(ph3) ] 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.00639701201 -4.05231404e-15 # 0.162297846 -2.88657986e-15 # 0.628573069 -1.55431223e-15 # 1.05159054 -4.05231404e-15 # 0.963883756 -1.38777878e-15 # 0.499743815 -3.88578059e-16 # 0.185551782 -2.72004641e-15 # 0.209956954 -4.38538095e-15 # 0.619058221 -7.66053887e-15 # 1.60568476 -4.64366501e-15 # 3.0948265 -8.32667268e-16 # 4.72771476 2.2759572e-15 # 6.32090024 1.44328993e-15 # 7.86276471 9.28424004e-15 # 9.23715297 9.01709263e-15 # 10.1778291 6.94323071e-15 # 10.4966992 3.48332474e-15 # 10.115117 5.35682609e-15 # 9.06593061 8.38218384e-15 # 7.54371316 5.32907052e-15 # 5.7139584 5.19029264e-15 # 3.81403449 6.2068406e-15 # 2.16729874 4.96824804e-15 # 0.998499488 2.96984659e-15 # 0.32900288 1.22124533e-15 # -0.0584787644 -1.09634524e-15 # -0.298674881 -2.20309881e-15 # -0.386008848 -6.9388939e-16 # -0.277161016 1.94289029e-15 # 0.0352134653 2.22044605e-15 # 0.569081452 1.66533454e-15 # 1.42393358 1.60982339e-15 # 2.4867949 1.83186799e-15 # END