CP-CPMG pulse program for topSpin2.1 operating system

*** Outline ***

• Code for Avance III spectrometers with topSpin2.1 operating system
• Example1: ²⁹Si in TSP-d4 with AV500

Code for Avance III spectrometers with topSpin2.1 operating system

;cpcpmg.fau (TopSpin 2.1 pl3)

;cp experiment with CPMG detection
;written by FAU 08.01.2009
;use rotor-synchronized CPMG train of refocusing pulses to create the echoes

;Avance III version
;parameters: 
;p3 : proton 90 at power level pl12
;p4 : 180 degree pulse at pl22
;p15 : contact time at pl1 (f1) and sp0 (f2)
;pl1 : X power level during contact
;sp0 : proton power level during contact
;      sp0 is the max power level during shape pulse
;pl2 : =120dB, not used
;pl12 : decoupling power level (if not pl13)
;pl13 : special decoupling power level
;pl22 : rf power level
;d1 : recycle delay
;d3 : time to allow pulse ringdown, 10 to 100 us
;d6 : duration of FID
;pcpd2 : pulse duration in decoupling sequence (for tppm15, ~(170/90)*90° pulse duration)
;cpdprg2 : cw, tppm (at pl12), or 
;          lgs, cwlg. cwlgs (LG-decoupling, here pl13 is used instead of pl12)
;spnam0 : use e.g. ramp.100 for variable amplitude CP
;zgoptns : -Dfslg, -Dlacq, or blank
;p25 : dummy pulse, not used for acq.
;l22 : # of echos to be acquired
;cnst1 : set td to number of acquired complex data points, td=cnst1
;cnst21 : on resonance, usually = 0

;$COMMENT=cp experiment with CPMG detection
;$CLASS=Solids
;$DIM=1D
;$TYPE=cross polarisation
;$SUBTYPE=simple 1D
;$OWNER=Bruker

prosol relations=<solids_cp>

#include <Avancesolids.incl>         ;commands necessary for acquisition

#ifdef fslg
#include <lgcalc.incl>
;cnst20 : RF field achieved at pl13
;cnst21 : on resonance, usually = 0
;cnst22 : positive LG offset
;cnst23 : negative LG offset
;cnst24 : additional LG-offset
#endif /* fslg */

"cnst1=((d6*2+d3*2+p4)*l22+d6+d3)/dw"
define delay rest
"rest=aq-(cnst1*dw)"
"p25=1/cnst1"
;cnst11 : to adjust t=0 for acquisition, if digmod = baseopt
"acqt0=1u*cnst11"

1 ze

2 d1 do:f2                              ;recycle delay, decoupling off
#include <p15_prot.incl>	
            ;make sure p15 does not exceed 10 msec
            ;let supervisor change this pulseprogram if 
            ;more is needed
#ifndef lacq
            ;disable protection file for long acquisition change decoupling power!!!
            ;or you risk probe damage
            ;if you set the label lacq (ZGOPTNS -Dlacq), the protection is disabled

#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
#endif /* lacq */

    1u                  fq=cnst21:f2    ;used in tppm15 for example
                                        ;if cnst21=0, make sure cp is done with proton freq
                                        ;set by O2
  (p3 ph1):f2           (1u pl12):f2    ;proton 90° pulse
  (p15 pl1 ph2):f1 (p15:sp0 ph10):f2    ;use square.100 or ramp.100 shape for sp0
                                        ;in proton channel F2
                         1u cpds2:f2    ;select appropriate decoupling sequence, switch on 
                                        ;cw or tppm15 decoupling executed at power level pl12
                                        ;or LG-decoupling executed at power level pl13
    1u pl22:f1                          ;set 180° pulse power level
  STARTADC                              ;arm adc
  RESETPHASE                            ;reset reference phase for detection
    0.1u DWL_CLK_ON
3 d6 RG_ON
    0.1u RG_OFF
  d3
  (p4 pl22 ph3):f1
  d3
  d6 RG_ON
  lo to 3 times l22
  d6
  d3
    rest RG_OFF                do:f2     ;set decoupling off
    0.1u DWL_CLK_OFF
  rcyc=2                                 ;loop NS times
  1m                           do:f2     ;set decoupling off
  100m wr #0                             ;write signal
HaltAcqu, 1m                             ;jump address for protection
exit

ph0= 0
ph1= 1 3
ph2= 0 0 2 2 1 1 3 3
ph3= 0 0 2 2 1 1 3 3
ph10=0
ph30=0
ph31=0 2 2 0 1 3 3 1