# 1 "/Bruker/35/exp/stan/nmr/lists/pp/ko_HSQCWFBC.3"
; HSQC using the WFB method
;				Junji Iwahara


# 1 "/Bruker/35/exp/stan/nmr/lists/pp/Avance.incl" 1
;Avance2.incl
;   for 1
;
;avance-version (03/02/17)





















































































































;$Id: pulseprogram,v 1.1 2021/02/10 23:29:52 bmrbsvc Exp $
# 5 "/Bruker/35/exp/stan/nmr/lists/pp/ko_HSQCWFBC.3" 2

# 1 "/Bruker/35/exp/stan/nmr/lists/pp/Grad.incl" 1
;Grad2.incl  -  include file for Gradient Spectroscopy
;   for 1
;
;avance-version (02/05/31)



















define list<gradient> EA=<EA>



;$Id: pulseprogram,v 1.1 2021/02/10 23:29:52 bmrbsvc Exp $
# 6 "/Bruker/35/exp/stan/nmr/lists/pp/ko_HSQCWFBC.3" 2


; PFG length
; "p15=1.8m"
; "p16=1.4m"
; "p17=500u"

; transfer delay
"d2=2.25m"


;defined parameters.
"d5=p21-p1"
;"d6=p24/2.0-p1"
"d24=d2-p17-p5-125u"

"d15=p24/2.0-p1"
"d16=p24/2.0-p21"

;initial delay
;"d0=in0*1.0-p21*2.0/3.14-p24/2.0"	 
"d0=in0*0.5-p21*2.0/3.14"	 
;"d0=3u"

"l1=td1/2"

;pulse sequence.

  30m
1 ze
2 60m do:f3
3 30m
4 20u 
  d1 pl1:f1
  (p1 ph0):f1	
  d2 pl3:f3
  (d5 p1*2.0 ph1):f1 (p21*2.0 ph10):f3
  d2 setnmr3|0 setnmr0|34|32|33
  (p1 ph1):f1		
  5u
  20u pl5:f1	
  (p5 ph5:r):f1	 	

  	5u		;
  	p15:gp1		;
 	800u		;

  20u pl1:f1		
  20u pl2:f2		
  (d16 p21 ph11 d0 d0 p21 ph13 d16):f3 (d0 p24:sp1 ph10):f2 (d0 d15 p1*2.0 ph0):f1
;  (p21 ph11):f3		
;  d0
;  (d6 p1*2.0 ph0):f1 (p24:sp1 ph10):f2
;  d0
;  (p21 ph12):f3		

  	5u		;
  	p16:gp2		; 
  	800u		;

  20u pl5:f1		
  (p5 ph7:r):f1		
  5u
  20u pl1:f1		
  (p1 ph0):f1		
  5u

  	5u		;
  	p17:gp3		; 
  	95u		;

  d24 pl5:f1		
  (p5 ph8:r):f1	
  20u pl1:f1		
  (d5 p1*2.0 ph3):f1 (p21*2.0 ph12):f3
  20u pl5:f1		
  (p5 ph8:r):f1		
		
  	5u		;
  	p17:gp3		; 
  	95u		;

  d24 pl13:f3
  5u setnmr3^0 setnmr0^34^32^33
  go=2 ph31 cpd3:f3
  60m do:f3 wr #0 if #0 ip11 zd	
  lo to 3 times 2
  15m id0
  15m ip31*2
  lo to 4 times l1
  30m setnmr3^0 setnmr0^34^32^33
exit

;-- 1H pulse --
ph0=0
ph1=1 1 3 3
ph3=2 
;-- Water-selective pulse --
ph5=(360) 0		;  0 deg
ph7=(360) 180		;180 deg
ph8=(360) 0		;  0 deg
;-- 15N pulses --
ph10=0
ph11=0 2
ph12=0
ph13=0 0 0 0  2 2 2 2
;-- phases for receiver --
;ph31=0 2 2 0 
ph31=0 2 2 0  2 0 0 2 


;pl1: 1H hard pulse	-1~0dB
;p1:  1H hard pulse	9~10us
;pl5:  wfb pulse 	39~40dB (phcor5,7,8)
;p5:   wfb pulse	~1ms
;pl2: 13C shaped pulse		
;p24:  13C shaped pulse 	
;sp1:  13C shaped pulse
;pl3: 15N pulse		
;p21:  15N pulse		40~50us
;pl13: 15N decouple pulse		
;pcpd3:  15N decouple pulse	~250us