# oney.in (SIMPSON 3.1) #one pulse X(90°)-detection for positive gyromagnetic ratio nuclei, # detect_operator -2*I1y #My versus offset varying from 0 to np kHz in steps of 1 kHz spinsys { channels 29Si nuclei 29Si shift 1 0 0 0 0 0 0 } par { proton_frequency 400e6 variable tsw 0.5 sw 1.0e6/tsw np 71 crystal_file alpha0beta0 gamma_angles 1 start_operator I1z detect_operator -2*I1y verbose 1101 variable rf 50000 variable p1 5 } proc pulseq {} { global par for {set i 0} {$i < $par(np)} {incr i} { offset [expr $i*1000] pulse $par(p1) $par(rf) x acq reset } } proc main {} { global par fsave [fsimpson] $par(name).fid puts "Larmor frequency (Hz) of 29Si: " puts [resfreq 29Si $par(proton_frequency)] } #SIMP #NP=71 #SW=2000000 #TYPE=FID #DATA #1 0 #0.999800011 0 #0.99920017 0 #0.998200863 0 #0.996802726 0 #0.995006653 0 #0.992813793 0 #0.990225545 0 #0.987243562 0 #0.983869749 0 #0.980106259 0 #0.975955494 0 #0.971420102 0 #0.966502975 0 #0.961207248 0 #0.955536295 0 #0.949493728 0 #0.943083395 0 #0.936309372 0 #0.929175969 0 #0.921687719 0 #0.913849378 0 #0.905665922 0 #0.89714254 0 #0.888284634 0 #0.879097816 0 #0.869587897 0 #0.859760891 0 #0.849623005 0 #0.839180638 0 #0.828440372 0 #0.817408973 0 #0.806093382 0 #0.794500709 0 #0.782638232 0 #0.770513389 0 #0.758133773 0 #0.745507127 0 #0.732641336 0 #0.719544426 0 #0.706224553 0 #0.692690002 0 #0.678949176 0 #0.665010593 0 #0.650882881 0 #0.636574769 0 #0.622095081 0 #0.607452731 0 #0.592656716 0 #0.577716111 0 #0.562640059 0 #0.547437766 0 #0.532118498 0 #0.516691569 0 #0.501166336 0 #0.485552195 0 #0.469858571 0 #0.454094913 0 #0.438270687 0 #0.422395368 0 #0.406478435 0 #0.390529365 0 #0.374557624 0 #0.358572661 0 #0.342583903 0 #0.326600746 0 #0.31063255 0 #0.294688631 0 #0.278778258 0 #0.262910643 0 #0.247094934 0 #END