;Q.E.COSY
;avance-version (02/05/31)
;2D sequence
;tested and used with Topspin2.1, adapted for AVIII
;Pavleta Tzvetkova, Burkhard Luy


;$OWNER=patz
#include <Avance.incl>


"d11=30m"
"in0=inf1"

1 ze
  d11 LOCKDEC_ON
  d11 H2_PULSE
2 d1
  30m
  30m H2_LOCK 
  d1 pl2:f2         ; deuterium power level set on f2 channel
  d11 H2_PULSE
  (p3 ph3):f2       ; deuterium 90deg pulse on f2 channel
  d0
  (center (p3*0.4 ph1):f2 (p1 ph1):f1)
  go=2 ph31
  d1 mc #0 to 2 F1PH(ip3, id0)
  d11 H2_LOCK
  d11 LOCKDEC_OFF
exit


ph1=0; 2 2 0 1 3 3 1
ph3=2 0; 0 2 3 1 1 3
ph31=0 2; 2 0 1 3 3 1


;pl1 : f1 channel - power level for pulse (default)
;p1 : f1 channel -  high power pulse
;pl2: f2 channel - power level for pulse (deutrium)
;p3 : f2 channel - high power pulse (deutreium)
;d1 : relaxation delay; 1-5 * T1
;NS: 1 * n, total number of scans: NS * TD0
;d2 : delay before aquisition


;$Id: zg,v 1.7 2002/06/12 09:05:19 ber Exp $