# 1 "/pisa/exp/stan/nmr/lists/pp/tocsy3919.cui"
;tocsyw.schw
;dipsi-2 mixing
;from FA 091094
;modified to watergate wmw (11/18/95)
;modified to watergate sch 7/11/96
;modified to 3-9-19 (wmw 9/16/97)


;CAUTION-USES LOWER POWER FOR PROTON!!!


;pl1 - power level for 90deg hard (p1) pulse  (~14dB)
;p1 : f1 channel -  90 degree high power pulse (~30us adjust pl1 accordingly)


;p6 : f1 channel - trim pulse               [2. msec]
;p0 =p1 then fine adjust for water suppression
;p16=1m
;d0 : incremented delay (2D)               [3 usec]
;d1 : relaxation delay; 1-5 * T1
;mixing time = l1*P1*115.11 
;o1p 4.7 (on-resonance for water)
;d21=1/(2*[offset of maximum excitation])
;in0: 1/(2 * SW) = DW
;nd0: 2
;NS: 4 * n
;DS: 16
;td1: number of experiments
;grdprog = 1sine
;cnst21=40
;use edp to set TPPI
;
;if suppression not good, try paropt on p0 with 1d version

"p16=1m"
"d7=p1"			;to give 0 1st order phase correction

# 1 "/pisa/exp/stan/nmr/lists/pp//Avance.incl"
;Avance.incl
;
;version  99/08/02





























# 38 "/pisa/exp/stan/nmr/lists/pp/tocsy3919.cui"

# 1 "/pisa/exp/stan/nmr/lists/pp//Grad.incl"
;Grad.incl  -  include file for Gradient Spectroscopy
;avance-version
;version 99/02/19
















define list<gradient> EA=<EA>
# 39 "/pisa/exp/stan/nmr/lists/pp/tocsy3919.cui"
;
;UNCOMMENT next line for 1d version
;;#define ONE_D

 1 ze
 2 30m
 3 10u setnmr2^0
   5u pl1:f1
   d1
   4u setnmr2|0 
   (p1 ph5):f1
   d0
   (p6 ph1):f1			;start dipsi-2 mix
   5u
 7 (p1*3.556 ph0):f1 
   (p1*4.556 ph2):f1 
   (p1*3.222 ph0):f1
   (p1*3.167 ph2):f1
   (p1*0.333 ph0):f1
   (p1*2.722 ph2):f1
   (p1*4.167 ph0):f1
   (p1*2.944 ph2):f1
   (p1*4.111 ph0):f1
   (p1*3.556 ph2):f1
   (p1*4.556 ph0):f1
   (p1*3.222 ph2):f1
   (p1*3.167 ph0):f1
   (p1*0.333 ph2):f1
   (p1*2.722 ph0):f1
   (p1*4.167 ph2):f1
   (p1*2.944 ph0):f1
   (p1*4.111 ph2):f1
   (p1*3.556 ph2):f1
   (p1*4.556 ph0):f1
   (p1*3.222 ph2):f1
   (p1*3.167 ph0):f1
   (p1*0.333 ph2):f1
   (p1*2.722 ph0):f1
   (p1*4.167 ph2):f1
   (p1*2.944 ph0):f1
   (p1*4.111 ph2):f1
   (p1*3.556 ph0):f1
   (p1*4.556 ph2):f1
   (p1*3.222 ph0):f1
   (p1*3.167 ph2):f1
   (p1*0.333 ph0):f1
   (p1*2.722 ph2):f1
   (p1*4.167 ph0):f1
   (p1*2.944 ph2):f1
   (p1*4.111 ph0):f1
   lo to 7 times l1
  5u
  (p6*1.5 ph1):f1		;end dipsi-2 mix
   p16:ngrad:c34		;start watergate suppression
  300u
  p1*0.231 ph20
  d21
  p1*0.692 ph20
  d21
  p1*1.462 ph20
  d21
  p1*1.462 ph22
  d21
  p1*0.692 ph22
  d21
  p1*0.231 ph22
5  p16:ngrad:c34		;end watergate suppression
  300u
  d7
go=2 ph31			;acquire data
# 111 "/pisa/exp/stan/nmr/lists/pp/tocsy3919.cui"

   30m wr #0 if #0 id0 ip5 zd
   lo to 3 times td1   

  4u setnmr2^0
exit

ph0 = 0 0 1 1 
ph1 = 1 1 2 2 
ph2 = 2 2 3 3
ph3 = 3 3 0 0
ph5 = 0 2 1 3   ;normal
ph14=0 0 1 1
;ph15=2
ph20=0 0 1 1
ph22=2 2 3 3
ph31 = 0 2 1 3 
 
