;cmr7inadq1.mh ;cmr7 homonuclear recoupling, 1D double quantum filter ;generalized phase cycles for flexible loop numbering ;Hong M. J. Magn. Reson., volume 136, 86, 1999 ;p1: 13C 90 pulse, use PL10 ;p3: 1H 90 deg pulse ;p4: 13C 360 pulse for CMR7, use PL11 ;p8: 1H TPPM pulse, < 180 ;p15: CP contact time ;l0: 7n, No. c7 elements for exc. ;l31: spinning speed in Hz ;d12: window for phase switching in CMR7, ~1us ;pl2: 1H excitation power ;pl3: 1H CP power ;pl11: 13C CMR7 power =7*wr ;pl10: 13C hard pulse power ;pl12: 1H dec power during acq ;pl22: 1H dec during CMR7 "d3=2s/l31-p1-3u" "l1=aq/(p8*2)" "p4=1s/(l31*7)-d12" ;CMR7 360 pulse "p2=0.5s/(l31*7)-d12" ;CMR7 180 pulse 1 ze 2 d1 10u pl1:f1 10u pl2:f2 ;set decoupler power,1H 2u:f1 ph2 ;preprare 13C phase for CP 2u:f2 ph1 1m rpp7 1m rpp9 p3:f2 ph1 ;90 degree 1H pulse 1u pl3:f2 ;1H power for CP (p15 ph2):f1 (p15 ph3):f2 ;cross-polarization 1u cw:f2 pl12:f2 pl10:f1 3 1u:f1 ph4 p1:f1 ph4 ;flip to z hard 90; d3 do:f2 ;z-filter 1u cw:f2 pl22:f2 1u pl11:f1 ;CMR7 w1 = 7 wr 4 d12:f1 ph7 (p4 ph7^):f1 ;R d12:f1 ph9 (p4 ph9^):f1 d12:f1 ph7 (p2 ph7^):f1 d12:f1 ph9 (p4 ph9^):f1 d12:f1 ph7 (p2 ph7^):f1 lo to 4 times l0 ;l0=7 equal to 4tr 6 d12:f1 ph8 ;DQ recovert. (p4 ph8^):f1 ;R+90*n d12:f1 ph10 (p4 ph10^):f1 d12:f1 ph8 (p2 ph8^):f1 d12:f1 ph10 (p4 ph10^):f1 d12:f1 ph8 (p2 ph8^):f1 lo to 6 times l0 ;l0=7 equals 4tr d3 do:f2 ;z-filter 1u pl10:f1 1u:f1 ph6 1u cw:f2 pl12:f2 p1:f1 ph6 ;flip to xy plane 2u:f1 ph0:r ;dead time, reset RF phase to detect 1u adc ph31 ;start ADC with ph31 signal routing 8 p8:f2 ph13 ;d2 < 180 degree, ph10= 25 degree p8:f2 ph14 ;ph11=335 degree lo to 8 times l1 aq do:f2 ;allow time for data sampling 1m ip8 ;increment by 90 degrees 1m ip10 rcyc=2 ;do NS scans 100m wr #0 ;10 10m ; 10m ip8*57344 ; 10m ; 10m ip10*57344 ; lo to 10 times 4096 ;2D ;States' detection ; 10m wr #0 if #0 zd ;write file to disk, increment, zero data ;lo to 1 times td1 exit ph0= 0 ph1= +x +x +x +x -x -x -x -x ;1H excitation ph3= +y ;1H spin lock ph2= +x +x +x +x +x +x +x +x +y +y +y +y +y +y +y +y -x -x -x -x -x -x -x -x -y -y -y -y -y -y -y -y ph4= +y +y +y +y +y +y +y +y ;13C storage, cosine detection -x -x -x -x -x -x -x -x -y -y -y -y -y -y -y -y +x +x +x +x +x +x +x +x ph6= +y -x -y +x +y -x -y +x ;2nd 90 pulse -x -y +x +y -x -y +x +y -y +x +y -x -y +x +y -x +x +y -x -y +x +y -x -y ph7= (56) 0 8 8 16 24 24 32 40 40 48 0 0 8 16 16 24 32 32 40 48 48 ph9= (56) 28 36 44 52 4 12 20 28 36 44 52 4 12 20 ph8= ph7 ;critical not to define (56) ph10= ph9 ph13= (360) 14 ph14= (360) 0 ph31= 2 1 0 3 0 3 2 1 ;full CYCLOPS, remove ghost 3 2 1 0 1 0 3 2 0 3 2 1 2 1 0 3 1 0 3 2 3 2 1 0