;mlev19xcpd.mck ;modifed 8/12/96 to add X nucleus decoupling from mlevgstp19.mck ;modifed to use definitions of pulses and delays ;avance-version ;homonuclear Hartman-Hahn transfer using MLEV17 sequence ; for mixing ;using two power levels for excitation and spinlock ;phase sensitive using TPPI ;A. Bax & D.G. Davis, J. Magn. Reson. 65, 355-360 (1985) ;water suppression using 3-9-19 pulse sequence with gradients ;M. Piotto, V. Saudek & V. Sklenar, J. Biomol. NMR 2, 661 - 666 (1992) ;V. Sklenar, M. Piotto, R. Leppik $ V. Saudek, J. Magn. Reson., ; Series A 102, 241 -245 (1993) #include #include "p5=p6*.667" "p7=p6*2" ;;"d0=3u" "d12=20u" 1 ze 2 d1 3 d12 pl1:f1 d12 pl2:f2 p1 ph1 d0 (p4 ph8):f2 d0 d12 pl10:f1 (p17 ph26) 4 (p6 ph22 p7 ph23 p6 ph22) (p6 ph24 p7 ph25 p6 ph24) (p6 ph24 p7 ph25 p6 ph24) (p6 ph22 p7 ph23 p6 ph22) (p6 ph24 p7 ph25 p6 ph24) (p6 ph24 p7 ph25 p6 ph24) (p6 ph22 p7 ph23 p6 ph22) (p6 ph22 p7 ph23 p6 ph22) (p6 ph24 p7 ph25 p6 ph24) (p6 ph22 p7 ph23 p6 ph22) (p6 ph22 p7 ph23 p6 ph22) (p6 ph24 p7 ph25 p6 ph24) (p6 ph22 p7 ph23 p6 ph22) (p6 ph22 p7 ph23 p6 ph22) (p6 ph24 p7 ph25 p6 ph24) (p6 ph24 p7 ph25 p6 ph24) (p5 ph23) lo to 4 times l1 (p17 ph26) d12 pl1:f1 d12 pl12:f2 50u UNBLKGRAD GRADIENT(cnst21) d16 p1*0.231 ph4 d19*2 p1*0.692 ph4 d19*2 p1*1.462 ph4 d19*2 p1*1.462 ph5 d19*2 p1*0.692 ph5 d19*2 p0*0.231 ph5 46u GRADIENT(cnst22) d16 4u BLKGRAD go=2 ph31 cpd2:f2 d1 do:f2 wr #0 if #0 id0 ip1 zd lo to 3 times td1 exit ph1=0 2 ph4=0 0 1 1 2 2 3 3 ph5=2 2 3 3 0 0 1 1 ph22=3 ph23=0 ph24=1 ph25=2 ph26=0 ph31=0 2 2 0 0 2 2 0 ph8=0 ;pl1 : f1 channel - power level for pulse (default) ;pl10: f1 channel - power level for TOCSY-spinlock ;pl2 : f2 channel - power level for hard 180 X pulse ;pl12: f2 channel - power level for cpd X decoupling ;p0 : f1 channel - 90 degree pulse at pl1 (i.e. p0=p1) ; use for fine adjustment of water suppression ;p1 : f1 channel - 90 degree high power pulse ;p5 : f1 channel - 60 degree low power pulse ;p6 : f1 channel - 90 degree low power pulse ;p7 : f1 channel - 180 degree low power pulse ;p16: homospoil/gradient pulse [1 ms ] ;p17: f1 channel - trim pulse [2.5 msec] ;p4 : f2 channel - 180 degree X pulse ;d0 : incremented delay (2D) 1/2(sw)=2*d0 + 4/pi * (1H Hard 90 pulse) ;d1 : relaxation delay; 1-5 * T1 ;d12: delay for power switching [20 usec] ;d16: delay for homospoil/gradient recovery [500 us] ;d19: delay for binomial water suppression [150 us] ; d19 = (1/(2*d)), d = distance of next null (in Hz) ;L1: loop for MLEV cycle: (((p6*64) + p5) * l1) + (p17*2) = mixing time ;in0: 1/(4 * SW) = 1/(2 * DW) ;nd0: 4 ;NS: 2 * n ;DS: 16 ;td1: number of experiments ;MC2: TPPI ;cpdprog2: e.g. garp (had incomplete decoupling with Waltz16) ;use gradient program (GRDPROG) : 2sine ;use gradient ratio: cnst21 : cnst22 ; 20 : 20