# 1 "/u/exp/stan/nmr/lists/pp/c12c13noe.gc"
;chnoesy3d_g.gmc
;1/17/94
;adapted from chnoesy3d_16.gmc to a 4 step phase cycle
;includes gradients to get rid of all artefacts
;16 scans per incr. sequence
; noesy from 13C bound H to 12C bound H in D2O
; uses Dept-like purges
;modified on 9/7/93 to include gradients during noesy mixing
;modified on 5/3/96 for dmx600


# 1 "/u/exp/stan/nmr/lists/pp//bits.gc"
;bits.gc  -  include file for Gradient Spectroscopy
;avance-version

; do not use this for 750 !!!!





























define list<gradient> EA=<EA>













































































































































# 12 "/u/exp/stan/nmr/lists/pp/c12c13noe.gc"
;#include <Avance.incl>
;#include <Grad.incl>

;Define channel assignments:



; d7  ;set to get 0 pc1 phase in acquisition

"d11=50m"
"d12=12m"
"d16=0.6m"
"d8=aq+2m-d16"
"d3=2.3m"
;***************************
;"d3=10u" ; for setup only !!!
;***************************
"d5=2.5m"
"d10=4u"
"d20=8u+p3*4+d10*2"
;d1=0.71s"   ; for total rela delay of 0.9 s if no irradiation used
"d1 = 1m"
;"p18=1.4s"   ; for a total rela delay of 1.395s with on-resonance irr
;use pl2 of 70 dB for rf field of 3 Hz
;"p18=0.71s"
"p18=1.0s"
;p1=1H 90
;p3=13C 90 high power, as short as possible @pl3
;o3p=63.71ppm
"d4=50m" ; 2*d4 + 22.5ms = noesy mixing time 
;"p4=p1-p3*0.5" ;(if positive, else use line below)
"d6=p3*0.5-p1" ;(if positive, else use line above) 
;"d0=in0*0.5-p1-p3*0.6366"
"d0=in0-p1-p3*0.6366"

;gradients: gp1 set to 30% sine32
;p21=5m; p22=1m, p23=2.5m; p24=10m; p25=700u

1 ze
2 d11 pl30:f3
  10u
  d12*2
3 d12*3
4 d12*2 
5 d12*3
6 50u pl1:f1 
  10u pl3:f3
  d1 setnmr2^0 setnmr0^34 setnmr8^4
  10u pl2:f1
  p18 ph0    ; irradiation on resonance
  20u setnmr2|0 setnmr0|34
  (p3 ph0):f3
  p21:gp3       ;5 ms gradient   GRAD( 8, NEGATIV, 100)
  20m pl1:f1
  p1 ph1
  p22:gp0        ; 1ms gradient GRAD( 10, NEGATIV, 20)
  d3       ; 2.3ms
  d20       ;d20= (8u p3 p3 p3 p3)   ; compensation delay 
  (p3 ph2):f3
  d0        ; t2/2  13C
  p1*2 ph14
  d0
  (p3 ph3):f3
  4u
  p22:gp0    ; 1ms gradient GRAD( 11, NEGATIV, 20)
  d3
  d10             ; t1/2 1H
  (p3 ph4 2u p3*2 ph5 2u p3 ph4):f3    ;c13 composite 180
  d10
  p1 ph6
  p23:gp2      ;2.5 ms gradient GRAD( 15, NEGATIV, 50)
  d4             ; 2*d4 + 22.5m = noe mixing time
  (p3 ph0):f3
  d4
  p24:gp0    ;10ms gradient GRAD( 20, NEGATIV, 200 )
  10m
  p1 ph0
  p25:gp1    ;  700 us gradient GRAD( 30, NEGATIV, 14 )   ;700u gradient
  d5        ;2.5m
  100u    ;100u
;use 3 lines below if p1>p3/2
;  p4 ph0
;  (p3 ph7):f3 (p3 ph0)    ; 2p4+p2=h180
;  p4 ph0
;else use this 1 line below
  (p3 ph7):f3 (d6 p3 ph0)    ; 2p4+p2=h180
  p25:gp1       ;GRAD( 31, NEGATIV, 14 )
  d5 
  100u
  d7  ;set to get 0 pc1 phase in acquisition
  3u adc ph31 syrec
  d16    ; 0.6ms
  (p3 ph13):f3
  10u ph30
  d8
  rcyc=2 
  d11 wr #0 if #0 zd
  10u do:f3
  d12 ip1
  d12 ip14
  lo to 3 times 2
  d12 ip31
  d12 id10
  d12 ip31 ;states tppi 
  lo to 4 times l3   ;  128 complex in f1 (1H)
  d12 rd10         ; reset d10
  d12 ip2
  lo to 5 times 2
  d12 ip31 
  d12 id0
  d12 ip31
  lo to 6 times l6 ; 40 complex in f3 (13C)
  100u setnmr2^0 setnmr0^34 setnmr8^4
  exit
  ph2=0 2
  ph3=0 0 2 2 
  ph31=0 2 2 0 
;************************ for setup only
;ph2=0   ; for setup only to remove filtering
;ph3=0 	; for setup only to remove filtering
;ph31=0  ; for setup only to remove filtering
;****************
  ph0=0
  ph1=0
  ph4=0 
  ph5=1 
  ph6=0
  ph7=0
  ph8=0
  ph10=0
  ph12=0 
  ph13=0 0 0 0 2 2 2 2   
  ph14=0 
  ph30=(360) 0