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

# 1 "/u/exp/stan/nmr/lists/pp/Gradnt_new.incl"

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











































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

;hnco_fb.sg


;#define TEST_1D



;history
;written on 10/23/91
;used for sg hncoct/8 10/23/91
;interchanged f2 and f3 6/12/92
;used for gv 
;put in NH2 purge pulse ph22 7/17/92
;put additional +/- on last nitrogen 90 pulse 7/17/92
;used for jacob calcineurin 7/17/92
;changed to hnco_fb.sg 9/1/94 included flip-back
;used on NEF hncoct/10 SG 9/1/94
;Changed to DMX 12/12/95 NT
;run on DMX500 12/27/95 SG
;changed to hnca_fb.sg 1/8/96 SG


;f1 = hydrogen frequency on water
;p1=proton 90 at pl1
;p2=proton 90 1ms at pl2; sklenar 
;p13=proton 90 sinc1.0 sp0 (phcor25 doesn't work)
;p30=dipsi 90 at pl30 ca. 50u 


;f2 = ca frequency 56 ppm
"p5=53u"	;ca 90  at pl5
"p6=47.4u"	;ca 180 at pl6
;p8=300u	;carbonyl 180 sinc1.0 sp3 
"p9=p5*2"	;carbonyl 180 rect32.0 sp4 = pl5

;f3 = nitrogen frequency
;p7=nitrogen 90 at pl7:f2
;p31=nitrogen 90 at pl31 for waltz16 decoupling



"d0=in0 -p5*0.637 -p9*0.5-1u"
;d1=1.0s	;relaxation delay
;d7 ca 100u = dw
"d11=50m"
"d12=7m"	;universal dd,ip delay

"d15=p1"		;used for timing instead of c8
"d16=5.4m"              ;refocus HN-f2 for NH
;"d16=3m"               ;refocus HN-f2 for NH2 + NH, but you loose sqrt(2)
"d17=10m-d16"


"d22=11.6m"
"d21=10u"
"d23=d22+d21+p8"
"d24=p8+d22-d16-6u-p1"


;in21=in23=1/(2sw)
;l4=d23/in23

"d25=p7-p6*0.5"	;p6*0.5 < p7
"d26=p7-p1"


;-------------- Gradient pulses -----------------
;you have to set them by hand because of those $$@! heads
"p20=1.0m"		;gp1=+50%
"p21=1.0m"		;gp1=+50%
"p22=0.4m"		;gp1=+50%
"p23=1.5m"              ;gp1=+50%




	ze
2	d11

	d12
3	d12*2
4	d12


	d12
5	d12*3
6	10u

	1m setnmr2^0 setnmr0^32 setnmr0^33 setnmr0^34
	d1 pl7:f2
	10u pl5:f4
	20u pl1:f1
	1m setnmr2|0 setnmr0|32 setnmr0|33 setnmr0|34
	(p7 ph10):f2 (p5 ph20):f4
	p20:gp1		;GRAD(33, POSITIV, 20 )
	1m

;*******	start 90-degree 	*******
	p1 ph0
	2.25m
	(d26 p1*2 ph1) (p7*2 ph2):f2
	2.25m
	(p1 ph2) 
	2u
	50u pl2:f1
	(p2 ph24)
	2u
	p20:gp1		;GRAD( 10, POSITIV, 20 )
	2m pl1:f1
	(p7 ph3):f2
;*******	n15 evolution		*******
	(d16 p1 ph26 2u 4u pl30 d24 cpds1 d21):f1 (d21 p8:sp3 ph20 d22):f4
	10u pl6:f4
	(d25 p6 ph6):f4 (p7*2 ph5):f2
	10u
	d23 pl5:f4
	(p7 ph7):f2 
        4u do:f1
        4u pl1:f1
        (p1 ph27)
        p23:gp1
        1.5m
	(p1 ph26):f1
        4u pl30:f1
        10u cpds1:f1
	(p5 ph4):f4
;*******	carbonyl evolution	*******
	d0	;t1/2
;*******	carbon alpha 180
	(p7*2 ph10):f2 (p9:sp4 ph22):f4
	2u
	d0 pl5:f4
	(p5 ph20):f4 
	(p7 ph10):f2
	4u
	4u
	d15		;p1:c8
	10m pl6:f4
	(d25 p6 ph20):f4 (p7*2 ph10):f2
	d17 
	4u do:f1
	4u pl1:f1
	(p1 ph27)
	d16	
	(p7 ph0):f2
	5u
	p21:gp1		;GRAD( 40, POSITIV, 30 )
	3m
	5u
	(p13:sp0 ph25):f1
	2u
	2u
	50u pl1:f1
	(p1 ph0) 
	5u
	p22:gp1		;GRAD( 50, POSITIV, 8.0 )
	950u pl2:f1
	(p2 ph24)
	2u
	5u pl1:f1
	(p1*2 ph0)
	2u
	5u pl2:f1
	(p7*2 ph10):f2 (p2 ph24)
	2u
	p22:gp1		;GRAD( 51, POSITIV, 8.0 )
	10u pl31:f2


	850u
	d8
go=2 ph31 cpd3:f2
5u do:f2
d11 wr #0 if #0 zd


d12 ip4
lo to 3 times 2
d12 id0
d12 ip31*2
lo to 4 times l3
d12 rd0


d12 ip3
lo to 5 times 2
d12 id21
d12 dd23
d12 ip31*2
lo to 6 times l4

# 201 "/u/exp/stan/nmr/lists/pp/hnca_fb.hu"

1m do:f2
10u  setnmr2^0 setnmr0^32 setnmr0^33 setnmr0^34
exit

ph0=0
ph1=1
ph2=1
ph3=0 0 2 2
ph4=0 2
ph5=0
ph6=0
ph7=0
ph10=0
ph20=0
ph21=0
ph22=0

ph24=2	;adjusted -x at pl2
ph25=(3600) 1800	;adjusted -x at sp0 phcor25 doesn't work
ph26=1	;adjusted y for pl1 relativ to pl30 
ph27=3	;adjusted -y for pl1 relativ to pl30
ph28=2
ph31=0 2 2 0
