# 1 "/u/exp/stan/nmr/lists/pp/noesy15n.hu"

# 1 "/u/exp/stan/nmr/lists/pp/bits.sg"

;Gradnt.incl  -  include file for Gradient Spectroscopy
;avance-version
;version 94/06/27












































# 2 "/u/exp/stan/nmr/lists/pp/noesy15n.hu"

;1 hn, 15n edited noesy to water protons
;history
;written by sg 2/23/93
;put in water flip_back 6/1/93
;change to waternh 7/29/93

;#define ONE_D







;#define PULSE_CHECK

;p1	proton 90 at hl1, 9u
;p2	1ms proton 90  at hl2 ;sklenar
;set phcor14 and phcor18!!!
;p3	~2ms proton 90 with halfgauss sp1


;p7	high power n15 90 pl7 on f2
;p31	low power n15 90 (160ms) on f2 at pl31


"d0=in0*0.5 - p7*0.637 -p1"
"d20=in20 - p1*0.637 -p7" ;proton incremental delay

"d4=2.25m"			;hsq h to n15


"p17=p7"


"d11=50m"
"d12=10m"
"d13=25m"
"d22=p2"
"d23=p3"
"d26=p7-p1"
"d27=p7-p23"

;gradient pulses
"p10=2.5m"      ;at gp0=+50%
"p11=2m"        ;at gp1=-50%
"p12=400u"      ;at gp0=+50%
"p13=5m"      	;at gp0=+50%







# 67 "/u/exp/stan/nmr/lists/pp/noesy15n.hu"


1	ze
2	1m setnmr2^0 setnmr0^32 setnmr0^33 setnmr0^34
	d13 do:f2
	d13

	d12
	d12
3       d12*3.0
4       d12


	d12
5       d12*3.0
6       10u

	10u do:f4
;*****	presaturation	*****
	10u pl7:f2

	d1
	1m setnmr2|0 setnmr0|32 setnmr0|33 setnmr0|34
	10u pl1:f1 
;*****  proton frequency labelling
        (p1 ph8)

        d20
        (p7*2 ph10):f2
        d20

        (p1 ph0)
;*****  noesy mixing period
        58m
        p13:gp0	;GRAD( 30, NEGATIV, 100.0 )
        7m
;*****  start 90-degree on h-n  *****
	(p1 ph0)
	d4
	(p7*2 ph6):f2 (d26 p1*2 ph4)
	d4
	(p1 ph6)
	2u
	4u pl2:f1
	p2 ph18
	2u
	p10:gp0     ;GRAD( 40, POSITIV, 50)
	2.5m pl1:f1
;*****	hsqc to nitrogen	*****
	(p17 ph3):f2

        d0
        (p1*2 ph0)
        d0
# 123 "/u/exp/stan/nmr/lists/pp/noesy15n.hu"

;***** back to protons
	(p7 ph7):f2
	2u
	p11:gp1		;GRAD( 41, NEGATIV, 40)
	2m

	5u 
	(p3:sp1 ph13):f1

	2u
	2u 
	50u pl1:f1
	(p1 ph0)

	p12:gp0		;GRAD( 50, POSITIV, 8.0)
	950u pl2:f1
	(p2 ph14)
	2u
	5u pl1:f1
	(p1*2 ph15)
	2u
	5u pl2:f1
	(p7*2 ph10):f2 (p2 ph14)
	2u
	p12:gp0		;GRAD( 60, POSITIV, 8.0)

	(2u ph0)
	800u 
	d8
        5u pl31:f2



go=2 ph31 cpd2:f2
1m setnmr2^0 setnmr0^32 setnmr0^33 setnmr0^34
d13 do:f2
d13 wr #0 if #0 zd


d12 ip8
d12 ip8
lo to 3 times 2
d12 id20
d12 ip31
d12 ip31
lo to 4 times 150
d12 rd20



d12 ip3
lo to 5 times 2
d12 id0
d12 ip31
d12 ip31
lo to 6 times 60

# 192 "/u/exp/stan/nmr/lists/pp/noesy15n.hu"


d12 do:f4
d12 do:f2
exit

ph0=0
ph1=0
ph3=0 0 2 2
ph4=1
ph6=1
ph7=0 0 0 0 2 2 2 2
ph8=(8) 1 5
ph10=0
ph13=(360)180; adjusted -x
ph14=2; adjusted -x hl2
ph15=0
ph18=0;(360)4; adjusted x hl2
ph31=0 2 2 0 2 0 0 2

