# composite240.in (SIMPSON 3.1) #composite pulse X(90°)Y(240°)X(90°), #Mz 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*I1z verbose 1101 variable rf 50000 variable p1 5 variable p2 13.3333 } proc pulseq {} { global par for {set i 0} {$i < $par(np)} {incr i} { offset [expr $i*1000] pulse $par(p1) $par(rf) x pulse $par(p2) $par(rf) y 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.999893325 0 #-0.999579363 0 #-0.999076036 0 #-0.998412313 0 #-0.997626887 0 #-0.996766367 0 #-0.995883035 0 #-0.995032226 0 #-0.994269403 0 #-0.993646992 0 #-0.993211084 0 #-0.992998065 0 #-0.993031292 0 #-0.993317899 0 #-0.993845824 0 #-0.994581152 0 #-0.995465857 0 #-0.996416024 0 #-0.997320619 0 #-0.998040859 0 #-0.998410247 0 #-0.998235286 0 #-0.997296896 0 #-0.995352551 0 #-0.992139107 0 #-0.987376305 0 #-0.980770905 0 #-0.97202139 0 #-0.960823176 0 #-0.94687424 0 #-0.92988107 0 #-0.909564837 0 #-0.885667673 0 #-0.857958937 0 #-0.826241348 0 #-0.790356866 0 #-0.750192183 0 #-0.705683734 0 #-0.65682208 0 #-0.603655597 0 #-0.546293334 0 #-0.484907001 0 #-0.419731985 0 #-0.351067362 0 #-0.279274858 0 #-0.20477675 0 #-0.1280527 0 #-0.0496355507 0 #0.0298938887 0 #0.109913 0 #0.18976439 0 #0.268763698 0 #0.346208087 0 #0.421385277 0 #0.493583008 0 #0.562098769 0 #0.626249664 0 #0.685382246 0 #0.738882171 0 #0.786183501 0 #0.826777528 0 #0.860220943 0 #0.886143233 0 #0.904253167 0 #0.914344253 0 #0.916299081 0 #0.910092452 0 #0.895793238 0 #0.873564929 0 #0.843664841 0 #END