;lipsd2d.mh ;2D 13C detection 1H spin diffusion to probe domain size ;Huster, Yao, and Hong, J. Am. Chem. Soc. 124, 874-883 (2002) ;p1: 13C 90 pulses ;p3: 1H 90 excitation pulse ;p7: 1H 180 pulse ;p13: 1H magic-angle pulse ;p15: CP contact time ;p8: TPPM pulse ;d1: recycle delay ;d4: 1H T2 filter, half of whole period ;d6: 1H mixing time for spin diffu ;d0: 1H evolution ;l4: 1H T2 filter # of rotor periods ;pl2: excitation, 180 pulse,storage ;pl5: 1H power for LG-CP ;sp1: 13C ramp-CP power ;pl1: 13C CP power and 90 pulse power ;pl3: 1H CP power ;pl12: 1H dec power for acq. "l1=aq/(p8*2)" "p7=2*p3" define loopcounter td1half "td1half=td1/2" 1 ze 2 d1 ;recycle delay 10u pl1:f1 10u pl2:f2 ;preselect pl2 drive power for F2 2u:f1 ph6 2u:f2 ph3 ;-------------- destroy 13C magnetization --------------- 3 p1:f1 ph6 2m:f1 ph7 p1:f1 ph7 2m:f1 ph6 p1:f1 ph6 2m:f1 ph7 p1:f1 ph7 2m ;-------------- 1H T2 filter ------------------------- 4 p3:f2 ph3 ;1H excitation d4:f2 ph4 ;T2 filter p7:f2 ph4 d4:f2 ph5 5 d0 ;1H evolution ;-------------- 1H spin diffusion ---------------- 6 p3:f2 ph5 ;z filter d6 ;mixing p3:f2 ph1 ;flip back ;---------------1H HH-CP--------------------------- 7 0.5u pl3:f2 (p15 ph2):f1 (p15 ph10):f2 ;non-ramp CP 1u cw:f2 pl12:f2 1u:f1 ph0 ;dead time delay, reset RF phase to detect 1u adc ph31 ;start ADC with ph31 signal routing 8 p8:f2 ph13 ;TPPM decoupling p8:f2 ph14 lo to 8 times l1 aq do:f2 ;allow time for data sampling rcyc=2 ;do NS scans wr #0 ;2D ;States' detection 200m wr #0 if #0 ip5 zd ;write file to disk, increment, zero data lo to 2 times 2 10m id0 ip5 10m ip5 lo to 1 times td1half exit ph0= 0 ;reference phase ph6= +x ;13C 90 pulses ph7= +y ;13C 90 pulses ph3= +y -y ;1H excitation ph4= +x +x -x -x ;180 in t1/selection ph5= -y -y +y +y ph1= +y +y -y -y +y +y -y -y ;1H 90 flip back pulse -y -y +y +y -y -y +y +y ph10= +x ;1H CP ph2= +x +x +y +y -x -x -y -y ;13C CP ph13= (360) 10 ph14= (360) 0 ph31= 2 0 3 1 0 2 1 3 0 2 1 3 2 0 3 1