#
# This file contains the files:
# hncacbse.fa
# fahncacbse.r
# Gradfa.incl
#
# To unbundle, sh this file
#
echo hncacbse.fa 1>&2
cat >hncacbse.fa <<'End of hncacbse.fa'
;hncacbse.fa
;3D HNCaCb - Gradient enhanced.
;Wittekind and Mueller, J. Magn. Reson. B 101, 201-205 (1993)
;Muhandiran and Kay, J. Magn. Reson. B 103, 203-216 (1994)
;Bruker Avance/Xwin-nmr version
;Written up by F. Abildgaard, NMRFAM (abild@nmrfam.wisc.edu)
;Version: 033195, 071895
; Disclaimer: This pulse program is provided "as is" for your
; information. Support for the use of this pulse program is only
; provided to users of the National Magnetic Resonance Facility
; at Madison (NMRFAM). Users of this pulse program employ it at
; their own risk. Neither NMRFAM or University of Wisconsin-Madison
; are liable for any physical or other damage incurred during the
; use of this pulse program.
;BMRB Pulse Sequence Accession Number: 9
;
;f2: 15N, f3: 13C, f4: 13C
;use gradient program fahncacbse
;p15=500u
;p16=1.0m
;p17=100u
;p18=2.5m
;p19=250u
;p31 low power pulse at pl16 for N-GARP
;
;pl10 H1 DIPSI-2
;ds=2m*ns, m=1, 2, ..., ns=8, 16, ...
;
;d2=2.25m
;d3=5.4m
;d4=12.4m
;d5=3.5m
;d8=500u
;d9=10m (ip, id, rd)
;d11=100m (disk i/o)
;d12=10u
;d13=5u
;d16=300u
;d17=50u
;in0=1/2SW(Cab)
;in10=in20=1/2SW(N)
;d10=d4
;d20=d4-d3
"p22=p2*2"
"p23=p3*2"
"d6=p1"
"d7=p2"
"d14=d4-d3-d13*2-d12"
"d15=d5-p17-d17"
"d25=d5-p17-d17-d13*2-d12"
"d18=d8-p19-d13"
"d22=d2-p15"
"d23=d3-p17-d17"
"d24=d3-p18-p15-d13*3-d12"
"d26=p2-p3"
"d29=p2-p1"
#include <Avance.incl>
#include <Gradfa.incl>
#define SED_ON d13 \n d12 pl0:f4 \n d13 cpds4:f4
#define SED_OFF d13 do:f4
#define DIP_ON d13 \n d12 pl10:f1 \n d13 cpds1:f1
#define DIP_OFF d13 do:f1 \n d12 pl1:f1
1 ze
2 d11 do:f2
d9*2
3 d9
d9*5
4 d9
d9*3
5 d9
d9*2
6 20u LOCKH_OFF
d1 pl1:f1 pl2:f2 pl3:f3
p13:c13
(p2 ph0):f2
d13
(p3 ph0):f3
20u LOCKH_ON
d13
GRADIENT15(cnst21)
d16
(p1 ph0):f1
d13
GRADIENT15(cnst22)
d22
(d29 p1*2 ph0):f1 (p22 ph0):f2
d13
GRADIENT15(cnst22)
d22
(p1*55 ph0):f1
d13
(p1 ph1):f1
d13
GRADIENT16(cnst23)
d16
(p2 ph11):f2
d13
GRADIENT17(cnst24)
d17
SED_ON
d23
DIP_ON
d14
(p22 ph0):f2 (d26 p23 ph0):f3
d4
SED_OFF
DIP_OFF
d13
GRADIENT17(cnst24)
d17
(p2 ph0):f2
d13
GRADIENT15(cnst21)
d16
(p3 ph12):f3
d13
GRADIENT17(cnst24)
d17
DIP_ON
SED_ON
d15
(p23 ph0):f3
SED_OFF
DIP_OFF
d13
GRADIENT17(cnst24)
d17
DIP_ON
SED_ON
d25
(p3 ph1):f3
d0
(p22 ph0):f2
d0
(p3 ph13):f3
SED_OFF
DIP_OFF
d13
GRADIENT17(cnst24)
d17
DIP_ON
SED_ON
d25
(p23 ph14):f3
SED_OFF
DIP_OFF
d13
GRADIENT17(cnst24)
d17
DIP_ON
SED_ON
d25
(p3 ph14):f3
(p2 ph15):f2
d10
(p22 ph16):f2 (d26 p23 ph0):f3
d20
DIP_OFF
d24
SED_OFF
d13
GRADIENT18(cnst25)
d16
(p2 ph17):f2
d6
(p1 ph0):f1
d13
GRADIENT15(cnst21)
d22
(p22 ph0):f2
(p1*2 ph0):f1
d13
GRADIENT15(cnst21)
d22
d7
(p2 ph1):f2
(p1 ph1):f1
d13
GRADIENT15(cnst21)
d22
(d29 p1*2 ph0):f1 (p22 ph0):f2
d13
GRADIENT15(cnst21)
d22
(p1 ph0):f1
d8
(p1*2 ph0):f1
d13
GRADIENT19(cnst27)
d18 pl16:f2
go=2 ph31 cpd2:f2
d11 do:f2 wr #0 if #0 zd
d9 ip17
d9 ip17
lo to 3 times 2
d9 dd10
d9 id20
d9 ip15
d9 ip15
d9 ip31
d9 ip31
lo to 4 times l4
d9 rd10
d9 rd20
d9 ip13
d9 ip14
lo to 5 times 2
d9 id0
d9 ip31
d9 ip31
lo to 6 times l6
20u LOCKH_OFF
exit
ph0=0
ph1=1
ph2=2
ph3=3
ph11=0 2
ph12=0 0 2 2
ph13=1
ph14=0
ph15=0
ph16=0 0 0 0 2 2 2 2
ph17=0
ph31=0 2 2 0
End of hncacbse.fa
echo fahncacbse.r 1>&2
cat >fahncacbse.r <<'End of fahncacbse.r'
loop ns
{
p15 { (0) | (0) | (0)+(cnst21) }
{ (0) | (0) | (0) }
p15 { (0) | (0) | (0)+(cnst22) }
{ (0) | (0) | (0) }
p15 { (0) | (0) | (0)+(cnst22) }
{ (0) | (0) | (0) }
p16 { (0) | (0) | (0)+(cnst23) }
{ (0) | (0) | (0) }
p17 { (0) | (0) | (0)+(cnst24) }
{ (0) | (0) | (0) }
p17 { (0) | (0) | (0)+(cnst24) }
{ (0) | (0) | (0) }
p15 { (0) | (0) | (0)+(cnst21) }
{ (0) | (0) | (0) }
p17 { (0) | (0) | (0)+(cnst24) }
{ (0) | (0) | (0) }
p17 { (0) | (0) | (0)+(cnst24) }
{ (0) | (0) | (0) }
p17 { (0) | (0) | (0)+(cnst24) }
{ (0) | (0) | (0) }
p17 { (0) | (0) | (0)+(cnst24) }
{ (0) | (0) | (0) }
p18 { (0) | (0) | (0)+(cnst25) }
{ (0) | (0) | (0) }
p15 { (0) | (0) | (0)+(cnst21) }
{ (0) | (0) | (0) }
p15 { (0) | (0) | (0)+(cnst21) }
{ (0) | (0) | (0) }
p15 { (0) | (0) | (0)+(cnst21) }
{ (0) | (0) | (0) }
p15 { (0) | (0) | (0)+(cnst21) }
{ (0) | (0) | (0) }
p19 { (0) | (0) | (0)+(cnst27) }
{ (0) | (0) | (0) }
}
loop ns
{
p15 { (0) | (0) | (0)+(cnst21) }
{ (0) | (0) | (0) }
p15 { (0) | (0) | (0)+(cnst22) }
{ (0) | (0) | (0) }
p15 { (0) | (0) | (0)+(cnst22) }
{ (0) | (0) | (0) }
p16 { (0) | (0) | (0)+(cnst23) }
{ (0) | (0) | (0) }
p17 { (0) | (0) | (0)+(cnst24) }
{ (0) | (0) | (0) }
p17 { (0) | (0) | (0)+(cnst24) }
{ (0) | (0) | (0) }
p15 { (0) | (0) | (0)+(cnst21) }
{ (0) | (0) | (0) }
p17 { (0) | (0) | (0)+(cnst24) }
{ (0) | (0) | (0) }
p17 { (0) | (0) | (0)+(cnst24) }
{ (0) | (0) | (0) }
p17 { (0) | (0) | (0)+(cnst24) }
{ (0) | (0) | (0) }
p17 { (0) | (0) | (0)+(cnst24) }
{ (0) | (0) | (0) }
p18 { (0) | (0) | (0)+(cnst25) }
{ (0) | (0) | (0) }
p15 { (0) | (0) | (0)+(cnst21) }
{ (0) | (0) | (0) }
p15 { (0) | (0) | (0)+(cnst21) }
{ (0) | (0) | (0) }
p15 { (0) | (0) | (0)+(cnst21) }
{ (0) | (0) | (0) }
p15 { (0) | (0) | (0)+(cnst21) }
{ (0) | (0) | (0) }
p19 { (0) | (0) | (0)+(cnst28) }
{ (0) | (0) | (0) }
}
End of fahncacbse.r
echo Gradfa.incl 1>&2
cat >Gradfa.incl <<'End of Gradfa.incl'
;Gradfa.incl - include file for Gradient Spectroscopy
;avance-version
;version 94/06/27
#define GRADIENT15(ampl) p15:ngrad:c34
#define GRADIENT16(ampl) p16:ngrad:c34
#define GRADIENT17(ampl) p17:ngrad:c34
#define GRADIENT18(ampl) p18:ngrad:c34
#define GRADIENT19(ampl) p19:ngrad:c34
#define GRADIENT20(ampl) p20:ngrad:c34
#define BLKGRAD setnmr2^0 setnmr0^34
#define UNBLKGRAD setnmr2|0 setnmr0|34
#define BLKGRAMP setnmr0^34
#define UNBLKGRAMP setnmr0|34
End of Gradfa.incl