# al-split-t1-5Q-echo-160-phase-cycling-p3.in # oQ -> -5Q -> 1Q -> -1Q # approach: 160-phase cycling the first pulse, the third pulse and the receiver # spin-5/2 echo amplitude optimization # versus the third-pulse duration # in three-pulse split-t1 phase-modulated 5Q-MAS sequence, # the first-pulse duration p1 = 13.5 micro seconds # the second-pulse duration p2 = 4.75 micro seconds spinsys { channels 27Al nuclei 27Al quadrupole 1 1 3e6 1 0 0 0 } par { spin_rate 5000 variable tsw 0.25 sw 1.0e6/tsw np 34 crystal_file rep10 gamma_angles 10 proton_frequency 800e6 start_operator I1z detect_operator I1c verbose 1101 variable rf 90000 variable rf3 90000 variable p1 13.5 variable p2 4.75 variable N1 20 variable N3 8 variable deltap1 5 variable deltap3 2 } proc pulseq {} { global par maxdt $par(tsw) acq $par(ph31) pulse $par(p1) $par(rf) $par(ph1) pulse $par(p2) $par(rf) x for {set i 1} {$i < $par(np)} {incr i} { pulse $par(tsw) $par(rf3) $par(ph3) acq [expr $par(ph31) - 90] } } 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.306924457 4.82947016e-15 # 1.16881422 5.44009282e-15 # 2.39600832 6.42541576e-15 # 3.69892835 5.79397641e-15 # 4.75990322 8.10462808e-15 # 5.32200414 1.06303855e-14 # 5.26622925 1.29063427e-14 # 4.64679627 1.28230759e-14 # 3.66643978 1.32706346e-14 # 2.59782633 1.04083409e-14 # 1.68320572 8.02136135e-15 # 1.05676313 6.13398221e-15 # 0.722032733 8.24340596e-15 # 0.585896559 4.94049246e-15 # 0.522543493 3.42781359e-15 # 0.433589773 2.08513762e-15 # 0.284238697 4.35762537e-15 # 0.113794503 6.16173779e-15 # 0.0245058699 4.16333634e-15 # 0.146571519 3.88578059e-16 # 0.579613882 -3.66373598e-15 # 1.33003916 -4.4408921e-15 # 2.27865623 -8.49320614e-15 # 3.20344746 -5.93969318e-15 # 3.85370165 -1.77635684e-15 # 4.04283835 2.74780199e-15 # 3.7155103 5.99520433e-15 # 2.96150204 7.88258347e-15 # 1.98374923 8.90953977e-15 # 1.04324883 9.1038288e-15 # 0.388280461 4.38538095e-15 # 0.170595016 2.72004641e-15 # 0.378560818 4.88498131e-15 # END