;HSQC ;2D H-1/X correlation via double inept transfer ;phase sensitive using Echo/Antiecho-TPPI gradient selection ;with decoupling during acquisition ;using trim pulses in inept transfer ;with optimized pulses on 13C-channel #include #include #include "p2=p1*2" "p4=p3*2" "d0=3u" "d4=1s/(cnst2*4)" "d11=30m" "d13=4u" "DELTA1=d4-p16-d13-4u" "DELTA=p16+d16+p2+d0*2" 1 ze d11 pl12:f2 2 d1 do:f2 3 (p1 ph1) d4 pl2:f2 (center (p2 ph1) (p14:sp14 ph6):f2 ) d4 UNBLKGRAD p28 ph1 d13 (p1 ph2) (p13:sp13 ph3):f2 d0 (p2 ph5) d0 p16:gp1*EA d16 (p14:sp14 ph4):f2 DELTA (ralign (p1 ph1) (p15:sp15 ph7):f2 ) d4 (center (p2 ph1) (p14:sp14 ph8):f2 ) d13 p16:gp2 DELTA1 pl12:f2 4u BLKGRAD go=2 ph31 cpd2:f2 d1 do:f2 mc #0 to 2 F1EA(igrad EA, id0 & ip3*2 & ip6*2 & ip31*2) exit ph1=0 ph2=1 ph3=3 1 ph4=0 0 0 0 2 2 2 2 ph7=3 3 3 3 1 1 1 1 ph5=0 0 2 2 ph6=3 ph8=3 ph31=0 2 0 2 2 0 2 0 ;pl1 : f1 channel - power level for pulse (default) ;pl2 : f2 channel - power level for pulse (default) ;pl12: f2 channel - power level for CPD/BB decoupling ;p1 : f1 channel - 90 degree high power pulse ;p13 : f2 channel - 90 degree optimized Iz->Ix pulse ;p15 : f2 channel - 90 degree optimized Ix->Iz pulse ;p14 : f2 channel - 180 degree optimized pulse ;p2 : f1 channel - 180 degree high power pulse ;p3 : f2 channel - 90 degree high power pulse ;p4 : f2 channel - 180 degree high power pulse ;p16: homospoil/gradient pulse ;p28: f1 channel - trim pulse ;d0 : incremented delay (2D) [3 usec] ;d1 : relaxation delay; 1-5 * T1 ;d4 : 1/(4J)XH ;d11: delay for disk I/O [30 msec] ;d13: short delay [4 usec] ;d16: delay for homospoil/gradient recovery ;cnst2: = J(XH) ;in0: 1/(2 * SW(X)) = DW(X) ;nd0: 2 ;NS: 1 * n ;DS: >= 16 ;td1: number of experiments ;FnMODE: echo-antiecho ;cpd2: decoupling according to sequence defined by cpdprg2 ;pcpd2: f2 channel - 90 degree pulse for decoupling sequence ;use gradient ratio: gp 1 : gp 2 ; 80 : 20.1 for C-13 ; 80 : 8.1 for N-15 ;for z-only gradients: ;gpz1: 80% ;gpz2: 20.1% for C-13, 8.1% for N-15 ;use gradient files: ;gpnam1: SINE.100 ;gpnam2: SINE.100 ;$Id: hsqcetgp,v 1.1.2.1 2002/07/16 12:59:35 ber Exp $