# 1 "/u/exp/stan/nmr/lists/pp/hnha_flip.hu"
;hnha_flip.hu, 8/12/97
;last fix 8/20/97 d4 -> d4-p1; d5 -> d5+p1 for 15N balancing (ABX)
;hnha_flip.gmc
;based on the hnhafb1.abx and hnhafb2.abx pulse
;sequences as run on the AMX 's
;This is the Water Flip Back HNHA expt
;Orig refs:
;Kuboniwa et al., J Biomolec NMR, 4:871-78, (1994)
;Vuister & Bax, JACS, 115:7772-7777, (1993)
;Signal is in the imaginaries (2nd row) w/phase cycle as written
;Change ph1 to check a 1D of the first row for phasing F3 (def ONED)
;IGNORE dd8 error.  If you check the total time and the decrementation
;you will see that l4=d5/in4 is the correct calculation for the number
;of 15N points you can collect.  d8 > d5 !!! 
;d8 DOES NOT become zero or negative!!!


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

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











































# 18 "/u/exp/stan/nmr/lists/pp/hnha_flip.hu"

;#define ONED



;p1	proton 90 at pl1 (typically 0 dB, 6.5u)
;p2	proton 90 at pl1 (for 1-1 read sequence, typically 6.3u) 

;p7	high power n15 90 on f2 at pl7 (typically 41u at -2.00 dB)
;p31	low power n15 90 on f2 at pl31 (typically 165u at 9.3 dB)

;"p21=300u"  ;gradient pulse at gp1=+35% z
;"p22=450u"  ;gradient pulse at gp1=+35% z
;"p23=750u"  ;gradient pulse at gp1=+35% z
;"p24=500u"  ;gradient pulse at gp2=-40% x

; 13.4 changed to 10.8 ms !!!!!!!!!!!!!!!!!
;**** 1H evol ****
;SW = 1/2*in0  (100u*2)
;l3 = 70
"d0=in0*0.5 - p7 - p1*0.637" 			; -90/180 phase correction
;"d0=in0 - p7 - p1*0.637"      			; -180/360

;**** 15N evol ****
;SW = 1/4*in4  (205.55us *4= 20.00ppm; 202u*4)
;l4 = d5/in4   (46)
;in4=in5=in7=in8

;define DEPHASE 26m

"d13=26m"					;dephase time
"d14=d13*0.5"
"d2= 5.3m -p21 -5u"				;1/2J NH
"d22=5.3m -p21 -1m"
"d3=d14 -5.3m -p7 -p22 -5u"
"d4=2.65m -p7*0.5 -p1" 			
"d5=d14 -2.65m -p7*1.5 -p23 -0.5m +p1"       	;13.4m to 10.8m
"d6=d14 -p23 -5u"				;13.4m to 10.8m
"d7=d14 -2.65m +p1 -p7*1.5 -p23 -5u"		;leave this 2.65 unchanged!!
"d8=d14 -2.65m +p1 -p7*1.5 -p22 -0.45m -5u"	;leave this 2.65 unchanged!!
;"d9=d14 -5.3m -5u -p7 -p22 -0.45m"

;"d1=0.83s"     ; for 1.0s rep rate
"d10=50u"
"d11=50m"
"d12=10m"

1	ze
	d11 do:f2
2       d11 
        50u setnmr2^0 setnmr0^32 setnmr0^33 setnmr0^34 setnmr8^4
        50u do:f2

        d12
3 	d12*3
4	d12


	d12
5       d12*6
6       10u

        d10 pl1:f1
        d10 pl7:f2
        d1 
	1m setnmr2|0 setnmr0|32 setnmr0|33 setnmr0|34 
;*****	start 90-degree on h-n	*****
	(p1 ph1):f1
        5u
        p21:gp1                     ;gradient pulse
        d2
	(p7 ph2):f2
        5u
        p22:gp1                     ;gradient pulse
        d3                          ;adjust
        (p1*2 ph1):f1
        d4
        (p7*2 ph0):f2
	d5                          ;adjust
        p23:gp1                     ;gradient pulse
        500u
;***** proton evolution *****
        (p1 ph1):f1
        d0
        (p7*2 ph4):f2
        d0
        (p1 ph0):f1
;****************************
        5u
        p23:gp1                     ;gradient pulse
        (d6 p1*2 ph0) (d7 p7*2 ph0 d8):f2
;        (d6 p1*2 ph0 d9) (d7 p7*2 ph0 d8):f2
        5u
        p22:gp1                     ;gradient pulse
        450u
        (p7 ph0):f2
        4m 
        p21:gp1                     ;gradient pulse
        1m
        (p1 ph10):f1
        5u
        p24:gp2                     ;gradient pulse
        1.5m pl31:f2
        (p1 ph3):f1
        94u 
        (p2 ph5):f1
;***** acquisition *****
        go=2 ph31 cpd2:f2
	100u setnmr2^0 setnmr0^32 setnmr0^33 setnmr0^34
# 130 "/u/exp/stan/nmr/lists/pp/hnha_flip.hu"

	d11 wr #0 if #0 zd
        50u do:f2
	50u setnmr2^0 setnmr0^32 setnmr0^33 setnmr0^34 setnmr8^4



        d12 ip1
      lo to 3 times 2
        d12 ip31
        d12 ip31
        d12 id0
      lo to 4 times l3
        d12 rd0



        d12 ip2
      lo to 5 times 2
        d12 ip31
        d12 ip31
        d12 id4
        d12 dd5
        d12 id7
        d12 dd8
      lo to 6 times l4

10u setnmr2^0 setnmr0^32 setnmr0^33 setnmr0^34 setnmr8^4

exit

ph0= 0
# 164 "/u/exp/stan/nmr/lists/pp/hnha_flip.hu"

ph1= 0 2

ph2= 0
ph3= 0
ph4= 0 0 1 1  1 1 0 0
ph5= 2
ph10=(360)0

ph31=0 2 2 0  2 0 0 2
