;hpdec (TopSpin 2.0)
;acquisition on X with hp proton decoupling
;suitable for various types of decoupling
;Avance II+ version
;parameters:
;d1 : recycle delay
;d30 : =1s/cnst31-p4, for pidec12 and pidec13, pi-pulse decoupling
;d31 : =1s/cnst31, 1 rotor period
;p1 : X 90 degree pulse
;p5 : LG 360 degree pulse
;p10 : pulse length for phase modulated pulses (e.g PMLG, DUMBO)
;p22 : H 180 at power level pl13 (pidec)
;p29 : 5 - 10 us, to avoid exact rotor synchronisation
;pcpd2 : pulse length in decoupling sequence
;pl1 : X power level for excitation pulse
;pl2 : =119 dB, not used
;pl12 : power level for standard proton decoupling
;pl13 : e.g. used in tppm13, pidec13, cw13, cwlg, cwlgs, lgs, xix13
;spnam1 : lgs-1, lgs-4 or pmlg-36
;l31 : number of rotor cycles for XiX (=3)
;cnst20 : proton RF field to calculate LG parameters
;cnst21 : =0, proton offset
;cnst22 : +ve Lee-Goldburg offset
;cnst23 : -ve Lee-Goldburg offset
;cnst24 : additional Lee-Goldburg offset
;cnst31 : spinning frequency
;cpdprg2 : sequence used for decoupling (tppm15, cw, xix12, etc.)
;zgoptns : -Dxix, -Dpidec, -Dlg
;$COMMENT=acquisition on X with proton decoupling, various decoupling schemes
;$CLASS=Solids
;$DIM=1D
;$TYPE=direct excitation
;$SUBTYPE=simple 1D
;$OWNER=Bruker
# ifdef xix
"pcpd=(1s*l31)/cnst31+p29"
# endif /* xix */
# ifdef pidec
"d30=1s/cnst31-p22"
# endif /* pidec */
# ifdef lg
#include <lgcalc.incl>
# endif
;cnst11 : to adjust t=0 for acquisition, if digmod = baseopt
"acqt0=1u*cnst11"
1 ze
2 d1 do:f2
(p1 pl1 ph1):f1 (1u cpds2):f2
go=2 ph31
1m do:f2
wr #0
exit
ph1= 0 2 1 3
ph31=0 2 1 3
Copyright © 2002-2024
pascal-man.com. All rights reserved.