# al-zfilter-amplitude-12p2p3-filtering-p1.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 first-pulse duration # in three-pulse z-filtered amplitude-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 2 3e6 0 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 12*I1z detect_operator I1c verbose 1101 variable rf 90000 variable rf3 9300 variable p2 4 variable p3 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 for {set i 1} {$i < $par(np)} {incr i} { pulse $par(tsw) $par(rf) x store 2 filter $par(nb1) pulse $par(p2) $par(rf) x filter $par(nb2) pulse $par(p3) $par(rf3) x acq -y reset prop 2 } } 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.248089565 -0.000216379469 # 0.509586295 -0.00071906992 # 0.740508623 -0.00151003989 # 0.90857252 -0.00251783437 # 1.00151011 -0.00363458427 # 1.02649106 -0.00475456337 # 1.00281968 -0.00579851722 # 0.948050165 -0.00670076564 # 0.869560923 -0.00737731602 # 0.766644452 -0.00772413817 # 0.634887525 -0.00765229965 # 0.474603126 -0.00713259866 # 0.300059882 -0.00621887335 # 0.136841412 -0.00503135436 # 0.00926366891 -0.00370857235 # -0.0704884531 -0.00234909643 # -0.104607997 -0.000975440918 # -0.104881151 0.000445955977 # -0.0864059167 0.00193822419 # -0.0624631688 0.00346023821 # -0.0421757008 0.00491109768 # -0.0296424613 0.00616506755 # -0.0240449704 0.00709246998 # -0.0246396832 0.00758312882 # -0.0351322977 0.00758981408 # -0.060852235 0.00716528666 # -0.105400546 0.00646499912 # -0.168881802 0.00569671771 # -0.244265825 0.00503430636 # -0.316788634 0.00455421673 # -0.368719402 0.00422317237 # -0.385200631 0.00392787393 # -0.359483101 0.00353360759 # END