;cpdarr(TopSpin 2.1) ;spin diffusion with DARR, ;13C?1H dipolar-assisted rotational resonance in magic-angle spinning NMR ;K. Takegoshi, Shinji Nakamura and Takehiko Terao ;"13C-1H dipolar-assisted rotational resonance in magic-angle spinning NMR" ;rotor synchronized, set cnst31=spin rate, spin rate regulation ;recommended
;Avance III version ;parameters: ;d1 : recycle delay ;d0 : =1u, t1 evolution period ;in0 : = 1/swh{F1}, sw1=sw2 ;pl1 : X power level ;pl11 : power level for X pulses ;sp0 : proton power level during contact ;pl2 : =120dB, not used ;pl12 : power level for H 90 and standard proton decoupling ;pcpd2 : pulse length in decoupling sequence ;p15 : contact time at pl1 (f1) and pl2 (f2) ;p10 : pulse length for FSLG shape ;p3 : H 90 degree pulse ;p1 : X 90 degree pulse ;p2 : adiabatic refocussing pulse, usually 1 rotation period ;cpdprg2 : sequence used for decoupling (tppm15, cw, etc.) ;cpdprg1 : cw13, set pl13 to RF-field n*spin rate, n=1-3 or 120 dB for PDSD ;spnam0 : file name for variable amplitude CP ;cnst21 : =0, proton offset ;cnst31 : spinning frequency ;l1 : number of rotor cycles for mixing time, 10-100 msec mix should do ;FnMode : STATES-TPPI
;$COMMENT=exchange NMR (PDSD, DARR) in rotating solids, rotor synchronized
;$CLASS=Solids
;$DIM=2D
;$TYPE=cross polarisation
;$SUBTYPE=homonuclear correlation
;$OWNER=Bruker
;$OWNER=Bruker
define loopcounter count
"count=td1/2"
count
"count=td1/2"
define delay tau
"tau=1s/cnst31-p2/2"
"d31=1s/cnst31"
tau
"tau=1s/cnst31-p2/2"
"d31=1s/cnst31"
define delay mix
"mix=l1d31"
mix
"mix=l1*d31"
;cnst11 : to adjust t=0 for acquisition, if digmod = baseopt
"acqt0=1ucnst11"
baseopt
"acqt0=1u*cnst11"
"in0=inf1"
1 ze
mix
d31
ze
mix
d31
#include <rot_prot.incl>
<rot_prot.incl>
#include <p15_prot.incl>
;make sure p15 does not exceed 10 msec
;let supervisor change this pulseprogram if
;more is needed
#include <aq_prot.incl>
;allows max. 50 msec acquisition time, supervisor
;may change to max. 1s at less than 5 % duty cycle
;and reduced decoupling field
<aq_prot.incl>
2 d1 do:f2
rpp4
rpp4
2u fq=cnst23:f2
fq=cnst23:f2
2u fq=cnst22:f2
fq=cnst22:f2
2u fq=cnst21:f2
fq=cnst21:f2
(p3 pl12 ph1):f2
ph1):f2
(p15 pl1 ph2):f1 (p15:sp0 ph10):f2
ph10):f2
d0 cpds2:f2
cpds2:f2
(p1 pl11 ph3):f1 (1u cpds1):f2
cpds1):f2
5 tau ;mixing time with DARR mixing
mixing
lo to 5 times l1
l1
(p1 pl11 ph5):f1 (1u cpds2):f2
cpds2):f2
go=2 ph31
ph31
1m do:f2
do:f2
100m wr #0 if #0 zd
zd
1m ip2
lo to 2 times 2
2
1m id0
id0
lo to 2 times count
count
HaltAcqu, 1m
1m
6 exit
ph1=1 3
ph2=0
3
ph2=0
ph3= 0 0 0 0 2 2 2 2
2
ph5=0 0 0 0 0 0 0 0
2 2 2 2 2 2 2 2
2
ph10=0 0 2 2
2
ph31=0 2 2 0 2 0 0 2 2 0 0 2 0 2 2 0
