# spinlocky.in (SIMPSON 3.1) #spinlock pulse X(90°)Y(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 variable p2 5 } 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 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.999001956 0 #0.996017556 0 #0.991065671 0 #0.984170831 0 #0.97536315 0 #0.964678242 0 #0.952157121 0 #0.937846072 0 #0.921796523 0 #0.904064884 0 #0.884712386 0 #0.863804891 0 #0.841412694 0 #0.817610315 0 #0.792476271 0 #0.766092836 0 #0.738545796 0 #0.709924185 0 #0.680320014 0 #0.649827996 0 #0.618545249 0 #0.58657101 0 #0.554006327 0 #0.52095375 0 #0.487517025 0 #0.453800772 0 #0.41991017 0 #0.385950637 0 #0.35202751 0 #0.318245721 0 #0.284709487 0 #0.251521985 0 #0.218785048 0 #0.186598852 0 #0.155061619 0 #0.124269314 0 #0.0943153674 0 #0.0652903858 0 #0.0372818873 0 #0.0103740393 0 #-0.0153525907 0 #-0.0398212724 0 #-0.0629593384 0 #-0.0846983962 0 #-0.104974526 0 #-0.123728466 0 #-0.140905779 0 #-0.156457007 0 #-0.170337812 0 #-0.182509091 0 #-0.192937084 0 #-0.201593463 0 #-0.208455398 0 #-0.213505613 0 #-0.216732421 0 #-0.218129741 0 #-0.217697095 0 #-0.215439599 0 #-0.211367916 0 #-0.205498213 0 #-0.197852088 0 #-0.188456483 0 #-0.177343582 0 #-0.164550691 0 #-0.150120106 0 #-0.134098957 0 #-0.11653905 0 #-0.0974966857 0 #-0.0770324643 0 #-0.0552110844 0 #END