;csachcp.mh ;2D SUPER recoupling of CSA by 2*360 pulses with 15N CW decoupling. ;use a short CP contact time to obtain 13C-1H dipolar modulated CSA ;Liu SF, Mao JD, Schmidt-Rohr K., J. Magn. Reson., volume 155, 15, 2002 ;Yao XL, Hong M., J. Am. Chem. Soc., volume 124, 2730, 2002 ;p3: 1H 90 deg.pulse ;p22: X-channel CSA rec. pulse, =(1/2*12.12wr) ;p1: X channel 90 pulse for z-filter ;p8: 1H TPPM pulse ;p2: X-channel TOSS 180 deg. pulse ;p15: CP contact time ;d1: recycle delay ;d6: TOSS gamma integral ;in6: TOSS increment = tr/L5 ;d12: centering delay between 13C and 15N ;d13: left shift for analog detection ;d19: power level switching before CP ;l4: t1 loop ;l5: TOSS loop=4 or 2 ;l20: TPPM decoupling ;l31: spinning speed ;pl1: 13C CP power ;pl2: 1H excitation power ;pl3: 1H CP power ;pl14: 15N dec. power ;pl15: 15N dec. power (off, 120dB) ;pl11: 13C hard power ;pl21: 13C rec. power = 12.12 wr ;pl22: 1H dec. power outside 13C rec. ;pl23: 1H dec. power during 13C rec. ;pl12: 1H dec. power during t2 define loopcounter td1half "td1half=td1/2" ;for States cosine/sine "p22=(1s/l31)/(2*12.12)" "d21=(1s/l31)*0.2464-1u" ;start position of 4*180 pulse "d22=(0.5s/l31)-4*p22-d21-3u" ;rest of tr/2 in CSA recoupling "d25=(1s/l31)*0.1226-(p2/2)" "d26=(1s/l31)*0.0773-p2" "d27=(1s/l31)*0.2236-p2" "d28=(1s/l31)*1.0433-p2" "d29=(1s/l31)*0.7744-(p2/2)-d13" "l20=aq/(p8*2)" 1 ze 2 d1 do:f2 ;recycle delay, turn the decoupler off rpp12 rpp13 rpp14 rpp15 rpp16 rpp17 rpp18 rpp19 10u pl1:f1 ;preselect pl1 drive power level for F1 10u pl2:f2 ;preselect pl2 drive power for F2 10u pl14:f3 1u:f2 ph1 1u:f1 ph2 3 p3:f2 ph1 0.5u pl3:f2 (p15 ph2):f1 (p15 ph10):f2 ;CP contact 1u cw:f2 pl22:f2 ;turn on F2 decoupling 1u cw:f3 pl14:f3 ;turn on F3 decoupling 5 d21 pl21:f1 2u pl23:f2 ;increase 1H power during 13C pulses ; 1u pl15:f3 ;15N dec turned off, pl15=120dB p22:f1 ph12^ ;180 pulse p22:f1 ph13^ ;180 pulse p22:f1 ph14^ ;180 pulse p22:f1 ph15^ ;180 pulse 2u pl22:f2 ; 1u pl14:f3 ;15N dec on, pl14=10dB d22 d22 2u pl23:f2 ; 1u pl15:f3 ;15N dec off, pl15=120dB p22:f1 ph16^ ;180 pulse p22:f1 ph17^ ;180 pulse p22:f1 ph18^ ;180 pulse p22:f1 ph19^ ;180 pulse 2u pl22:f2 ; 1u pl14:f3 ;15N dec on, pl14=10dB d21 pl11:f1 ;1 tr lo to 5 times l4 6 p1:f1 ph7 ;store for z-filter 1u do:f3 d6 do:f2 ;z-filter & gamma integral 1u cw:f2 ;turn on F2 decoupling 1u pl12:f2 ;set decoupling drive power level p1:f1 ph8 ;read out 7 d25 p2:f1 ph3 ;180 13C #1 d26 p2:f1 ph4 ;180 13C #2 d27 p2:f1 ph5 ;180 13C #3 d28 p2:f1 ph6 ;180 13C #4 d29 pl12:f2 8u:f1 ph0 ;dead time delay, reset RF phase to detect 1u adc ph31 ;start ADC with ph31 signal routing 8 p8:f2 ph20 ;d2 < 180 degree, ph10= 25 degree p8:f2 ph21 ;ph11=335 degree lo to 8 times l20 aq do:f2 rcyc=2 ;do NS scans id6 ;increment d6: gamma-average for clean TOSS lo to 2 times l5 ;1D ; wr #0 14 dd6 ;decrement d6 again lo to 14 times l5 ;2D 18 100m wr #0 if #0 zd ;write and increment file ip7 ;alternate sine & cosine (same t1) lo to 2 times 2 iu4 ;increment l4 (t1) ip7 ;skip -cosine ip7 ;skip -sine lo to 2 times td1half ;number of rows exit ph0= 0 ;reference phase ph1= -y +y ;1H 90 ;ph23= +y ;35 deg pulse ph10= +x ;1H CP ph2= +x +x +y +y -x -x -y -y ;13C CP ph3= +y +y -x -x -y -y +x +x ;180 13C #1 TOSS ph4= -y -y +x +x +y +y -x -x ;180 13C #2 ph5= +y +y -x -x -y -y +x +x ;180 13C #3 -y -y +x +x +y +y -x -x ph6= -x -x +y +y +x +x -y -y ;180 13C #4 +x +x -y -y -x -x +y +y ph7= +y +y -x -x -y -y +x +x ;store for z-filter after t1 ph8= -y -y +x +x +y +y -x -x ;read out after z-filter ph12= +x -x +y -y -x +x -y +y +x +x +y +y -x -x -y -y ;180's for 4*180 "spin-lock" pulses -x +y -x -y +x -y +x +y +x +y -x +y -x -y +x -y -y -x +y -x -y +x -y +x +y +x +y -x +y -x -y +x ;last of previous shifted to first -y +x -x +y -y -x +x -y +y +x +x +y +y -x -x -y ;first line shifted by one ph13= +x +x +y +y -x -x -y -y +x -x +y -y -x +x -y +y +x +y -x +y -x -y +x -y -x +y -x -y +x -y +x +y +y +x +y -x +y -x -y +x -y -x +y -x -y +x -y +x +y +x +x +y +y -x -x -y -y +x -x +y -y -x +x -y ph14= -x +x -y +y +x -x +y -y -x -x -y -y +x +x +y +y +x -y +x +y -x +y -x -y -x -y +x -y +x +y -x +y +y +x -y +x +y -x +y -x -y -x -y +x -y +x +y -x +y -x +x -y +y +x -x +y -y -x -x -y -y +x +x +y ph15= -x -x -y -y +x +x +y +y -x +x -y +y +x -x +y -y -x -y +x -y +x +y -x +y +x -y +x +y -x +y -x -y -y -x -y +x -y +x +y -x +y +x -y +x +y -x +y -x -y -x -x -y -y +x +x +y +y -x +x -y +y +x -x +y ph16= -x +x -y +y +x -x +y -y -x -x -y -y +x +x +y +y ;= ph14 = -ph12 +x -y +x +y -x +y -x -y -x -y +x -y +x +y -x +y +y +x -y +x +y -x +y -x -y -x -y +x -y +x +y -x +y -x +x -y +y +x -x +y -y -x -x -y -y +x +x +y ph17= -x -x -y -y +x +x +y +y -x +x -y +y +x -x +y -y ;= ph15 = -ph13 -x -y +x -y +x +y -x +y +x -y +x +y -x +y -x -y -y -x -y +x -y +x +y -x +y +x -y +x +y -x +y -x -y -x -x -y -y +x +x +y +y -x +x -y +y +x -x +y ph18= +x -x +y -y -x +x -y +y +x +x +y +y -x -x -y -y ;= ph12 = - ph14 -x +y -x -y +x -y +x +y +x +y -x +y -x -y +x -y -y -x +y -x -y +x -y +x +y +x +y -x +y -x -y +x -y +x -x +y -y -x +x -y +y +x +x +y +y -x -x -y ph19= +x +x +y +y -x -x -y -y +x -x +y -y -x +x -y +y ;= ph13 = -ph15 +x +y -x +y -x -y +x -y -x +y -x -y +x -y +x +y +y +x +y -x +y -x -y +x -y -x +y -x -y +x -y +x +y +x +x +y +y -x -x -y -y +x -x +y -y -x +x -y ph20= (360) 10 ;TPPM first pulse ph21= (360) 0 ;TPPM second pulse ph31= 0 2 1 3 2 0 3 1 ;RLS