# 1 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/trosy15n_T2_v3.fjw"
# 1 "<built-in>"
# 1 "<command-line>"
# 1 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/trosy15n_T2_v3.fjw"
; trosyn15.ln (19.06.06)


# 1 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/bits.sg" 1
;Gradnt.incl  -  include file for Gradient Spectroscopy
;avance-version
;version 94/06/27
# 1 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/Avance.incl" 1
;Avance3.incl
;   for AV III
;
;avance-version (13/06/17)
;
;$CLASS=HighRes Incl
;$COMMENT=


# 169 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/Avance.incl"
;$Id: Avance3.incl,v 1.10.2.2 2013/08/30 09:43:33 ber Exp $
# 6 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/bits.sg" 2

# 1 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/Grad.incl" 1
;Grad2.incl  -  include file for Gradient Spectroscopy
;   for TCU3
;
;avance-version (07/01/17)
;
;$CLASS=HighRes Incl
;$COMMENT=

# 27 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/Grad.incl"
define list<gradient> EA=<EA>


# 31 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/Grad.incl"
;$Id: Grad2.incl,v 1.14 2012/01/31 17:49:21 ber Exp $
# 7 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/bits.sg" 2


# 4 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/trosy15n_T2_v3.fjw" 2

;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
;include 13C dec. from nh_coupled4.sg

;#define PULSE_CHECK
;#define FIRST_POINTS
;#define CARBON_LABEL	;fq4list = {56ppm , 177ppm}
# 16 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/trosy15n_T2_v3.fjw"
;#define N15T2

;***** pulses ******

;p1	proton 90 at pl1, 9u
;p2	1ms proton 90  at pl2 ;sklenar
;set phcor9, phcor15,phcor14 and phcor18!!!
;p5	high power carbon pulse at pl5
;p7	high power n15 90 pl7 on f2
;p31	low power n15 90 (160ms) on f2 at pl31
# 30 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/trosy15n_T2_v3.fjw"
"d0=in0*0.5-p1*0.5"
;"d0=2u"


# 36 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/trosy15n_T2_v3.fjw"
"p17=p7"


"d11=50m"
"d12=10m"
"d13=25m"
# 43 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/trosy15n_T2_v3.fjw"
"d26=p7-p1"

;***** N15 evolution *****

;in0=1/2(sw)
# 49 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/trosy15n_T2_v3.fjw"
;***** gradient pulses *****

"p10=2.5m"      ;at gp0=+50%
"p11=2m"        ;at gp1=-50%
"p12=0.6m"      ;at gp0=+50%
"p15=0.4m"

;l1 = 1
# 58 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/trosy15n_T2_v3.fjw"
;***** define d4 in parameter*****
;"d4=2.5m"			;hsq h to n15
;"d4=1.5m"
;"d4=1.8m"
;"d4=2.17m"

;"d5=2.7m"
"d5=d4"
"d6=d5-p2-p12-27u"

"d7=d5-p2-p15-16u"
# 73 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/trosy15n_T2_v3.fjw"
"d8=d6-p7"
"d15=p7*1.27"


# 1 "mc_line 80 file /opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/trosy15n_T2_v3.fjw dc-measurement inserted automatically"

    dccorr
# 80 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/trosy15n_T2_v3.fjw"
# 80 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/trosy15n_T2_v3.fjw"
1	ze
	1m
	10u ru1
2	1m setnmr3^0 setnmr0^34^32^33 ctrlgrad 7
	d13 do:f2
	d11
	d12*7
3	d12*6
4	10u ;do:f3
	10u pl7:f2
	10u pl5:f3


# 94 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/trosy15n_T2_v3.fjw"
	d1
	1m setnmr3|0 setnmr0|34|32|33 ctrlgrad 0
	p13:gp0
	20m
	10u pl1:f1
	1m
;*****	start 90-degree on h-n	*****

	(p1 ph0)
	d4
	(p7*2 ph6):f2 (d26 p1*2 ph4):f1
	d4
;*****	hsqc to nitrogen	*****
	(p1 ph2):f1
	2u
	10u pl2:f1

	p2 ph18:r
# 113 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/trosy15n_T2_v3.fjw"
	2u
	p10:gp0   
	2.5m pl1:f1
	10u pl5:f3	;pl29:f3
	1m ;cpds3:f3
;***********	N15	evolution
        if "l1==1" goto 31
        (p17 ph13):f2
        goto 32
31      (p17 ph3):f2
;*******        evolution 15n           *******

32      d0

# 133 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/trosy15n_T2_v3.fjw"
	d0


# 140 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/trosy15n_T2_v3.fjw"
;***********	first rev-INEPT
	(p1 ph8):f1
	2u
	10u pl2:f1

	(p2 ph9:r):f1

	4u
	p15:gp0
	d7 pl1:f1
	(p7*2 ph6):f2 (d26 p1*2 ph4):f1
	4u
	p15:gp0
	d7 pl2:f1
# 155 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/trosy15n_T2_v3.fjw"
	(p2 ph15:r):f1

	2u
	10u pl1:f1
	(p7 ph7):f2 (p1 ph16):f1
;***********	second rev-INEPT
	p12:gp0        ;GRAD( 50, POSITIV, 8.0)
        d6
        20u pl2:f1
        (p2 ph14:r)
        2u
        5u pl1:f1
        (d26 p1*2 ph0):f1 (p7*2 ph10):f2
        2u
        5u pl2:f1
        (p2 ph14:r)
        20u
        p12:gp0         ;GRAD( 60, POSITIV, 8.0)
;****   d6              ; if no selection on HNa / HNb      
	d8
	(p7 ph19):f2

# 178 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/trosy15n_T2_v3.fjw"
	45.2u pl31:f2


# 183 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/trosy15n_T2_v3.fjw"
     	go=2 ph31 ;cpds2:f2
	3u
	3u
	1m setnmr3^0 setnmr0^34^32^33 ctrlgrad 7
	d13 do:f2
	d11 wr #0 if #0 zd
        d12 ip7
        d12 ip7
        d12 ip15
        d12 ip15
        d12 ip16
        d12 ip16
	d12 iu1
	lo to 3 times 2
        d12; ip3
        d12; ip3
        d12; ip31
        d12; ip31
	d12 id0
	d12 ru1
	lo to 4 times l3
# 212 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/trosy15n_T2_v3.fjw"

d12 do:f3
d12 do:f2
d12 setnmr3^0 setnmr0^34^32^33 ctrlgrad 7
exit

ph0=0
ph1=0
ph2=3
ph4=1
ph5=3
ph6=1
ph7=3
ph8=1
ph9=1;  adjusted -x hl2
ph10=0
ph14=2; adjusted -x hl2
ph15=0; adjusted -x hl2
ph16=2
ph17=2
ph18=2; adjusted -x hl2
ph19=2
# 241 "/opt/topspin3.7.0/exp/stan/nmr/lists/pp/user/trosy15n_T2_v3.fjw"
ph3=0 3 2 1
ph13=0 1 2 3
ph31=0 1 2 3
