/
13C_T1.cw
188 lines (155 loc) · 3.55 KB
/
13C_T1.cw
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
;13C_T1
; 13C T1 measurement
; starting with equilibrium 13Cz magnetisation
; T1 time = vc * 5ms
;
; with option for pseudo-2D measurement (-DONE_D), set td2=1
;
;avance-version (15/02/27)
;HSQC
;2D H-1/X correlation via double inept transfer
;phase sensitive using Echo/Antiecho-TPPI gradient selection
;with decoupling during acquisition
;constant time version
;using trim pulses in inept transfer
;using shaped pulses for inversion on f2 - channel
;
;(G.W. Vuister & A. Bax, J. Magn. Reson. 98, 428-435 (1992))
;
;$CLASS=HighRes
;$DIM=2D
;$TYPE=
;$SUBTYPE=
;$COMMENT=
prosol relations=<triple>
#include <Avance.incl>
#include <Grad.incl>
#include <Delay.incl>
"p2=p1*2"
"p0=p1*125/90" ; NOE saturation 125 degree pulse
"p4=p3*2"
"d3=1s/(cnst2*6.58)"
"d4=1s/(cnst2*4)"
"d11=30m"
"d12=20u"
"in0=inf2"
#ifdef ONE_D
"d0=0.1u"
#else
"d0=in0/2-p3*0.6366"
#endif
"DELTA1=d3-4u-p17-d16-larger(p1,p3)"
"DELTA2=d4-4u-p16-d16-larger(p1,p3)"
; loop counter for NOE during recycle period
"d30=2.5m-p0*0.5"
"l4=d31/(p0+2*d30)"
"acqt0=0.6366*p1"
baseopt_echo
1 ze
d11 pl12:f2
2 d1 do:f2
4u UNBLKGRAD
4u pl1:f1 pl2:f2
; NOE buildup
4 d30
(p0 ph1)
d30
lo to 4 times l4
; 13C inversion and relaxation
(p3 ph1):f2
(p3 ph11):f2 ; x/-x
5 d30
(p0 ph1)
d30
lo to 5 times c
4u
p16:gp1
; t1 evolution (with 1H CPD)
d16 pl8:f1
(p3 ph12):f2
d0 cpd1:f1
; back-transfer
4u do:f1
p17:gp2
d16
DELTA1 pl1:f1
(center (p2 ph1) (p4 ph1):f2 )
4u
DELTA1
p17:gp2
d16
(p3 ph13):f2
; zz-filter
4u
p16:gp3
d16
; second INEPT back-transfer
(p1 ph1):f1
4u
p16:gp4
d16
DELTA2
(center (p2 ph1) (p4 ph1):f2 )
DELTA2
p16:gp4
d16 pl12:f2
4u BLKGRAD
; acquisition
go=2 ph31 cpd2:f2
d1 do:f2 mc #0 to 2
F1QF(ivc)
F2PH(ip12, id0)
exit
ph1 =0
ph2 =1
ph11=0 2
ph12=1 1 1 1 3 3 3 3
ph13=0 0 2 2
ph31=0 2 2 0 2 0 0 2
;pl0 : 0W
;pl1 : f1 channel - power level for pulse (default)
;pl2 : f2 channel - power level for pulse (default)
;pl12: f2 channel - power level for CPD/BB decoupling
;sp3 : f2 channel - shaped pulse 180 degree (on resonance)
;sp5 : f2 channel - shaped pulse 180 degree (off resonance)
;sp13: f2 channel - shaped pulse 180 degree (adiabatic)
;p1 : f1 channel - 90 degree high power pulse
;p2 : f1 channel - 180 degree high power pulse
;p3 : f2 channel - 90 degree high power pulse
;p8 : f2 channel - 180 degree shaped pulse for inversion (adiabatic)
;p14: f2 channel - 180 degree shaped pulse
;p16: homospoil/gradient pulse
;p17: gradient pulse [300 usec]
;d0 : incremented delay (2D)
;d1 : relaxation delay; 1-5 * T1 (excluding NOE buildup)
;d31: saturation period for NOE enhancement
;d4 : 1/(4J)XH
;d11: delay for disk I/O [30 msec]
;d12: delay for power switching [20 usec]
;d16: delay for homospoil/gradient recovery
;cnst2: = J(XH)
;cnst21: CO chemical shift (offset, in ppm)
;inf1: 1/SW(X) = 2 * DW(X)
;in0: 1/(SW(X)) = DW(X)
;ns: 8 * n
;ds: 8
;td1: number of experiments
;FnMODE: states-tppi
;cpd2: decoupling according to sequence defined by cpdprg2
;pcpd2: f2 channel - 90 degree pulse for decoupling sequence
;use gradient ratio: gp 1 : gp 2
; 80 : 20.1 for C-13
; 80 : 8.1 for N-15
;for z-only gradients:
;gpz1: 80%
;gpz2: 30.1% for C-13
;gpz3: 35% (zz filters)
;gpz4: 13% (180 refocusing)
;gpz5: 10% (180 refocusing)
;use gradient files:
;gpnam1: SMSQ10.100
;gpnam2: SMSQ10.100
;gpnam3: SMSQ10.100
;gpnam4: SMSQ10.100
;gpnam5: SMSQ10.100
;$Id: hsqcctetgpsp,v 1.8.2.1 2015/03/03 11:21:23 ber Exp $