# al-split-t1-antiecho-96-phase-cycling-p3.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 third-pulse duration # in three-pulse split-t1 phase-modulated -3Q-MAS sequence, # the first-pulse duration p1 = 8.5 micro seconds # the second-pulse duration p2 = 1.7 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 rep100 gamma_angles 10 proton_frequency 800e6 start_operator I1z detect_operator I1c verbose 1101 variable rf 90000 variable rf3 90000 variable p1 8.5 variable p2 1.7 variable N1 12 variable N3 8 variable deltap1 3 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.0724329554 1.05471187e-15 # 0.300928909 9.99200722e-16 # 0.711310799 9.99200722e-16 # 1.49161917 2.77555756e-16 # 2.97402213 6.38378239e-16 # 5.37301988 -3.77475828e-15 # 8.40679076 -9.99200722e-16 # 11.084367 8.8817842e-16 # 12.0107867 7.77156117e-16 # 10.1769202 -2.77555756e-16 # 5.74160458 2.22044605e-15 # 0.211877884 2.77555756e-15 # -4.23246672 2.99760217e-15 # -5.90082425 1.16573418e-15 # -4.50126772 1.55431223e-15 # -1.22016794 2.9559688e-15 # 2.07216674 1.27675648e-15 # 3.94348779 1.77635684e-15 # 4.11434274 3.77475828e-15 # 3.37502004 7.77156117e-16 # 2.87290819 2.99760217e-15 # 3.32499847 2.44249065e-15 # 4.65143897 -2.22044605e-16 # 6.1469964 -1.17961196e-15 # 6.96668255 -3.47421744e-15 # 6.57743002 -3.61516372e-15 # 4.94797795 -5.04284114e-15 # 2.47541548 -1.5959456e-15 # -0.213721717 -5.55111512e-16 # -2.45655792 7.49400542e-16 # -3.71888398 -1.11022302e-16 # -3.75157664 1.77635684e-15 # -2.68409882 1.44328993e-15 # END