# 1 "/u/exp/stan/nmr/lists/pp/hncacb_fb1.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/hncacb_fb1.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
;run on DMX600 12/19/96 HU

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


;f4 = ca frequency 46 ppm
"p5=49u"	;ca 90  at pl5
"p6=43.8u"	;ca 180 at pl6
;p8=300u	;carbonyl 180 sinc1.0 sp8 with off=131ppm=19768 
"p9=p5*2"	;carbonyl 180 rect32.0 sp9 = pl5 with off=131ppm=19768
;pl10:f4=120db
"d8=p8"

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



"d0=in0*0.5 -p5*0.637"			; for 90/-180 phase ; 91.8u=in0
# 52 "/u/exp/stan/nmr/lists/pp/hncacb_fb1.hu"


;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"
"d27=p5-p7"


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




# 93 "/u/exp/stan/nmr/lists/pp/hncacb_fb1.hu"


	ze
2	d11


	d12
3	d12*4
4	d12*2



	d12*4
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 )
	1m pl1:f1
	1m pl10:f4
	(p7 ph3):f2
;*******	n15 evolution		*******
	(d16 p1 ph26 2u 4u pl30 d24 cpds1 d21):f1 (d21 p8:sp8 ph20 d22):f4
	5u pl10:f4
	5u pl6:f4
	(d25 p6 ph6):f4 (p7*2 ph5):f2
	10u
	d23 pl5:f4
	(p7 ph10):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
;*******	inept ca/cb
	1m
	2.5m pl6:f4
	(p6 ph22):f4
	2.5m
	1m pl5:f4
;*******	ca/cb evolution	********
	(p5 ph7):f4	


	d0 		;t1/2
	d0 
# 171 "/u/exp/stan/nmr/lists/pp/hncacb_fb1.hu"


	(p5 ph8):f4
;*******	inept from ca/cb
	1m
	2.5m pl6:f4
	(p6 ph9):f4
	2.5m
	1m pl5:f4
	(p5 ph20):f4 
;*******	apply z-filter	********
	4u do:f1
	4u pl1:f1
	(p1 ph27)
	4u
	p24:gp1		;check
	1.2m
	(p1 ph26)
	2u
	4u pl30:f1
	30u cpds1:f1
;*******	end z-filter	********
	(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 )
	2m
	1m pl0:f1
	5u
	(p3:sp3 ph25):f1
	2u
	2u
	10u pl0:f1
	10u 
	30u pl1:f1
	(p1 ph0):f1
	5u
	p22:gp1
	950u pl2:f1
	(p2 ph24):f1
	2u
	5u pl1:f1
	(p1*2 ph0):f1
	2u
	5u pl2:f1
	(p7*2 ph10):f2 (p2 ph24):f1
	2u
	p22:gp1
	10u pl31:f2



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


d12 ip3
lo to 3 times 2
d12 id21
d12 dd23
d12 ip31
d12 ip31
lo to 4 times l4
d12 rd21
d12 rd23



d12 ip4
d12 ip4
d12 ip4
d12 ip7
lo to 5 times 2
d12 id0
d12 ip31
d12 ip31

lo to 6 times 4
# 264 "/u/exp/stan/nmr/lists/pp/hncacb_fb1.hu"


d12 rd0



# 277 "/u/exp/stan/nmr/lists/pp/hncacb_fb1.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
ph3=0
ph4=0 2
;ph5=0
ph5=0 0 0 0 1 1 1 1
;ph6=0
ph6=0 0 0 0  0 0 0 0  0 0 0 0  0 0 0 0
    2 2 2 2  2 2 2 2  2 2 2 2  2 2 2 2	
;ph7=0
ph7=1 1 3 3
ph8=1
ph9=0 0 0 0  0 0 0 0
    1 1 1 1  1 1 1 1
ph10=0
ph20=0
ph21=0
ph22=0

ph24=2	;adjusted -x at pl2
ph25=2	;adjusted -x at sp3 phcor25 doesn't work
ph26=1	;adjusted y for pl1 relativ to pl30 
ph27=3	;adjusted -y for pl1 relativ to pl30

;ph31=0 2 2 0
ph31=0 2 0 2  2 0 2 0
     2 0 2 0  0 2 0 2
