R14_4^5bswvar-2d: 2D big double-quantum F1 spectral width R1445 pulse program for TopSpin2.1
R14_4^5bswvar-2d: 2D big double-quantum F1 spectral width R1445 pulse program for TopSpin2.1
Since non-phase cycling is applied to the R1445 excitation pulse, four-phase cycling is applied to the detection pulse P1 for selecting the 0Q -> -1Q coherence order jump, and four-phase cycling is applied to the R1445 reconversion pulse for filtering DQ coherences.
;r14-4-5_2dbswvar (TopSpin 2.0) ;2D SQ-DQ correlation experiment with R14_4^5, use r14-4-5_1d for setup ;M. Carravetta, M. Eden, X. Zhao, A. Brinkmann and M.H. Levitt, ;Symmetry principles for the design of radiofrequency pulse seqeunces in ;the nuclear magnetic resonance of rotating solids, Chem. Phys. Lett 321 (2000) 205-215 ;by JOS 02/28/03 ;variable phase correction due to t1 evolution period with CNST21 ;Avance II+ version ;parameters: ;d1 : recycle delay ;d0 : incremented delay (2D) [1 usec] ;d20 : delay between saturation pulses ;p1 : detection pulse with pl1 power ;p9 : used as t1 increment (= inf1) for d0 ;pl1 : f1 power level ;pl11 : for R14_4^5 recoupling sequence B1=(N/2n)*cnst31=1.75*cnst31 in Hz ;cnst31 : spinning speed ;cnst21 : variable phase correction ;l0 : number of basic R14_4^5 cycles for DQ excitation ;l20 : # of pulses in saturation pulse train ;ns : n*16 ;FnMode : undefined ;mc2 : STATES-TPPI ;nd0 : 1 ;WDW : F1 QSINE 3, F2 QSINE 2 or EM ;use "xau xfshear rotate" to shift spectrum suitably along f1 ;zgoptns :-Dpresat or blank ;$COMMENT=SQ-DQ experiment with R14_4^5 ;$CLASS=Solids ;$DIM=2D ;$TYPE=direct excitation ;$SUBTYPE=homonuclear correlation ;$OWNER=Bruker define loopcounter count ;for STATES-TPPI procedure "count=td1/2" define pulse pul180 "pul180=(2.0s/cnst31)/7" ;180° pulse "d31=1s/cnst31" ;cnst11 : to adjust t=0 for acquisition, if digmod = baseopt "acqt0=1u*cnst11" #include <rot_prot.incl> ;protect for too slow rotation ze ;acquire into a cleared memory "d0=0.1u" ;make sure a short d0 is used initially 1 d31 #ifdef presat ;set with -Dpresat pres, d20 ;delay between saturation pulses (p1 pl1 ph1):f1 ;saturation loop if required lo to pres times l20 #endif /* presat */ 2 d1 ;recycle delay "cnst1=cnst21*cnst31*d0" ;phase correction for R14_4^5 reconversion pulse, ;due to t1 DQ evolution period, ;defined by the phase-time relationships 1m rpp11 ;reset the phase ph11 pointer to the first element ;in the DQ excitation pulse 1m rpp13 ;reset the phase ph13 pointer to the first element ;in the DQ reconversion pulse 10u reset:f1 1u pl11:f1 ;switch to R14_4^5 RF condition ;R14_4^5 DQ excitation 3 (pul180 ph11 ipp11):f1 ;increment phase ph11 pointer (pul180 ph11 ipp11):f1 ;increment phase ph11 pointer lo to 3 times l0 d0 ;DQ evolution ;R14_4^5 DQ reconversion 4 (pul180 ph13+cnst1 ipp13):f1 ;increase ph13 by cnst1 due to evolution period ;increment phase ph13 pointer (pul180 ph13+cnst1 ipp13):f1 ;increase ph13 by cnst1 due to evolution period ;increment phase ph13 pointer lo to 4 times l0 (p1 pl1 ph5):f1 ;detection pulse gosc ph31 ;gosc does not loop to 1 ;DQ filtering (four phase cycling): 1m ip13*16384 ;increments all phases of ph13 by 90° lo to 1 times ns ;next scan 100m wr #0 if #0 zd ;save data 1m ip11*8192 ;increments all phases of ph11 by 45°, ;90° phase for DQ coherence lo to 1 times 2 ;t1 quadrature detection "d0=d0+p9" ;set p9=increment for F1 (to make it usec!) lo to 1 times count ;count=td1/2 HaltAcqu, 1m exit ph1=0 ;for saturation pulse ph11=(65536) 11704 53832 ; 64.29° 295.71° or 64.29° -64.29° ph13=(65536) 28088 4680 ;154.29° 25.71° or ph11 + 90° ph5= 0 0 0 0 2 2 2 2 1 1 1 1 3 3 3 3 ph31=0 2 0 2 2 0 2 0 1 3 1 3 3 1 3 1