;cmr7inadq2d.mh ;cmr7 homonuclear recoupling, 2D DQ/SQ correlation in INADEQUATE-fashion ;generalized phase cycles for flexible loop numbering ;States detection with 45 degree phase shifts ;DQ evolution rotor-unsynchronized, w/ reconvert phases shifted ;Hong M. J. Magn. Reson., volume 136, 86, 1999 ;p3 = 1H 90 degree pulse ;p15 = contact pulse ;p4 = 13C 360 pulse under low power pl4 ;pl2 = 1H CP power ;pl10: 13C hard power ;pl11 = 13C low power =7*wr ;pl12 = 1H power for decoupling during t2 ;pl22 = 1H power during CMR7 mixing ;l0: number of cmr7 elements in tau(exc). "d3=1s/l31-p1-5u" "l1=aq/(p8*2)" "p4=1s/(l31*7)-d12" ;CMR7 360 pulse "p2=0.5s/(l31*7)-d12" ;CMR7 180 pulse define loopcounter td1q "td1q=td1/2" 1 ze 2 d1 10u pl1:f1 10u pl2:f2 2u:f1 ph2 2u:f2 ph1 rpp7 rpp9 p3:f2 ph1 ;90 degree proton pulse 1u pl3:f2 ;change 1H power for CP (p15 ph2):f1 (p15 ph3):f2 1u cw:f2 pl12:f2 1u pl10:f1 3 2u:f1 ph4 ;z-filter p1:f1 ph4 d3 do:f2 1u cw:f2 pl22:f2 1u pl11:f1 4 d12:f1 ph7 ;supercycle=(R)(R')(-R)(-R') (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 0.5u pl12:f2 d0 ;t1 0.5u pl22:f2 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 2u cw:f2 pl12:f2 2u pl10:f1 2u:f1 ph6 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 7 p8:f2 ph13 ;p8 < 180 degree p8:f2 ph14 lo to 7 times l1 aq do:f2 1m ip8*14 ;shift recovert. phase by 90 degree to ... 1m ip10*14 ;... cancel SQ and select DQ signals rcyc=2 ;2D ;States detection 100m wr #0 if #0 zd ;write file to disk, increment, zero data 1m ip8*7 ;change reconvert. phase by 45 degree... 1m ip10*7 ;...for sine dataset detection lo to 2 times 2 1m dp8*14 ;back to cosine detection 1m dp10*14 10m id0 ;increment t1. id0==one c7 element 1m ip8*8 ;shift c7 reconvert phases by two c7 elements... 1m ip10*8 ;...to synchronize with rotor phase for diff. t1 lo to 1 times td1q 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 -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 28 36 36 44 52 52 4 12 12 20 28 28 36 44 44 52 4 4 12 20 20 ph9= (56) 28 36 44 52 4 12 20 28 36 44 52 4 12 20 0 8 16 24 32 40 48 0 8 16 24 32 40 48 ph12= (56) 8 ;phase of one c7 element,360/7 ;ph8= (56) ph12*7 + ph7 ;phase switch from ph7 by l0*(360/7), continue from end of ph7 ;ph10= (56) ph12*7 + ph9 ph8= (56) ph7 ph10= (56) ph9 ph13= (360) 10 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