# 1 "/xwin3.5/exp/stan/nmr/lists/pp/SD_noesyprst.DS"
;SD_noesyprst
;avance-version
;2D homonuclear correlation via dipolar coupling 
;dipolar coupling may be due to noe or chemical exchange.
;phase sensitive using States-TPPI method
;with presaturation during relaxation delay

; Added frequency list to center spectrum for RNA - 1/23/97 - ELW

;Allows you to center spectrum anywhere.
;Uses a frequency list:
;	1) set the first value to water
;	2) set the second value to the desired center of spectrum in f1 + f2
;	3) Set o1 to the desired center of spectrum in f2 (needed for DQD)
; changed 3/21/97 - td based on ELW's pp


; changed presat to 'vladi-trick' 03-24-96, td
 
# 1 "/xwin3.5/exp/stan/nmr/lists/pp/Avance.incl" 1
;Avance.incl
;
;avance-version (03/02/17)


















































































































;$Id: pulseprogram,v 1.1 2021/02/11 15:58:06 bmrbsvc Exp $
# 20 "/xwin3.5/exp/stan/nmr/lists/pp/SD_noesyprst.DS" 2

# 1 "/xwin3.5/exp/stan/nmr/lists/pp/Grad.incl" 1
;Grad.incl  -  include file for Gradient Spectroscopy
;
;avance-version (02/05/31)



















define list<gradient> EA=<EA>



;$Id: pulseprogram,v 1.1 2021/02/11 15:58:06 bmrbsvc Exp $
# 21 "/xwin3.5/exp/stan/nmr/lists/pp/SD_noesyprst.DS" 2


"d11=30m"
"d12=20u"
"d13=5u"
"d16=200u"

"l3=(td1/2)"
"d0=((in0/2)-(p1*4/3.14159))"
"d8=d9-p16-d16"

1 ze
2 d11
3 d11
4 d12 pl9:f1
  setnmr2^0
  p18*0.8 ph29
  d13
  p18*0.2 ph30
  setnmr2|0
  d12 pl1:f1 
  ;d12 ph1:f1
  p1 ph1
  d0
  p1 ph2
  d8 
  p16:gp1                       ;800us
  d16 
  p1 ph3
  go=2 ph31
  d11 wr #0 if #0 ip1 zd
  lo to 3 times 2
  d11 id0
  lo to 4 times l3
  setnmr2^0
exit


ph1 =0 2 
ph2 =0 0 0 0  0 0 0 0  2 2 2 2  2 2 2 2
ph3 =0 0 2 2  1 1 3 3
ph29=0
ph30=1
ph31=0 2 2 0  1 3 3 1  2 0 0 2  3 1 1 3


;pl1 : f1 channel - power level for pulse (default)
;pl9 : f1 channel - power level for presaturation
;p1 : f1 channel -  90 degree high power pulse
;d0 : incremented delay (2D)                         [3 usec]
;d1 : relaxation delay; 1-5 * T1
;d9 : mixing time
;d11: delay for disk I/O                             [30 msec]
;d12: delay for power switching                      [20 usec]
;d13: short delay                                    [3 usec]
;L3: loop for phase sensitive 2D using States-TPPI method: l3 = td1/2
;in0: 1/(1 * SW) = 2 * DW
;nd0: 1
;NS: 8 * n
;DS: 16
;td1: number of experiments
;MC2: States-TPPI
;gpz1 35% sine.100