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
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
|
//genesis
/* FILE INFORMATION
** Several versions of Mitral cell voltage-dependent channels.
** Implemented by : Upinder S. Bhalla.
**
** The mitral cell channels have been adapted from Traub's channels for
** the hippocampal pyramidal cell :
** R.D.Traub, Neuroscience Vol 7 No 5 pp 1233-1242 (1982)
**
** This file depends on functions and constants defined in defaults.g,
** purkchan.g, and ASTchan.g
*/
// CONSTANTS
float EK = -0.07
float ENA = 0.045
float SOMA_A = 1e-9
//========================================================================
// Adjusted LCa channel
//========================================================================
function make_LCa_mit_usb
if (({exists LCa_mit_usb}))
return
end
if (({exists LCa_purk_thsh}))
move LCa_purk_thsh LCa_mit_usb
make_LCa_purk_thsh
else
make_LCa_purk_thsh
move LCa_purk_thsh LCa_mit_usb
end
setfield LCa_mit_usb X_A->sy 2.0 X_B->sy 2.0
setfield LCa_mit_usb Y_A->sy 2.0 Y_B->sy 2.0
end
function make_LCa2_mit_usb
if (({exists LCa2_mit_usb}))
return
end
if (({exists LCa_purk_thsh}))
move LCa_purk_thsh LCa2_mit_usb
make_LCa_purk_thsh
else
make_LCa_purk_thsh
move LCa_purk_thsh LCa2_mit_usb
end
setfield LCa2_mit_usb X_A->sy 2.0 X_B->sy 2.0
setfield LCa2_mit_usb Y_A->sy 20.0 Y_B->sy 20.0
end
function make_LCa3_mit_usb
if (({exists LCa3_mit_usb}))
return
end
if (({exists LCa_purk_thsh}))
move LCa_purk_thsh LCa3_mit_usb
make_LCa_purk_thsh
else
make_LCa_purk_thsh
move LCa_purk_thsh LCa3_mit_usb
end
setfield LCa3_mit_usb X_A->sy 5.0 X_B->sy 5.0
setfield LCa3_mit_usb Y_A->sy 20.0 Y_B->sy 20.0
end
function make_K_mit_usb
if (({exists K_mit_usb}))
return
end
float EK = -0.07
if (({exists K_trit_agt}))
move K_trit_agt K_mit_usb
make_K_trit_agt
else
make_K_trit_agt
move K_trit_agt K_mit_usb
end
setfield K_mit_usb X_A->sy 5.0 X_B->sy 5.0 Y_A->sy 5.0 \
Y_B->sy 5.0 Ek {EK}
end
/**********************************************************************
** Mitral K current
** Heavily adapted from :
** K current activation from Thompson, J. Physiol 265, 465 (1977)
** (Tritonia (LPl 2 and LPl 3 cells)
** Inactivation from RW Aldrich, PA Getting, and SH Thompson,
** J. Physiol, 291, 507 (1979)
**
**********************************************************************/
function make_K_mit_usb// K-current
if ({exists K_mit_usb})
return
end
float EK = -0.07
create tabchannel K_mit_usb
setfield K_mit_usb Ek {EK} Gbar {1200*SOMA_A} Ik 0 Gk 0 Xpower 2 \
Ypower 1 Zpower 0
call K_mit_usb TABCREATE X 30 -0.100 0.050
settab2const K_mit_usb X_A 0 12 0.0 //-0.1 thru -0.045=>0.0
// -0.030
// -0.020
// -0.010
// 0.0
// 0.010
// 0.020
// 0.030
// 0.040
// 0.050
setfield K_mit_usb X_A->table[13] 0.00 X_A->table[14] 2.87 \
X_A->table[15] 4.68 X_A->table[16] 7.46 X_A->table[17] 10.07 \
X_A->table[18] 14.27 X_A->table[19] 17.87 X_A->table[20] 22.9 \
X_A->table[21] 33.6 X_A->table[22] 49.3 X_A->table[23] 65.6 \
X_A->table[24] 82.0 X_A->table[25] 110.0 X_A->table[26] 147.1 \
X_A->table[27] 147.1 X_A->table[28] 147.1 X_A->table[29] 147.1 \
X_A->table[30] 147.1
// -0.100 Volts
// -0.095 Volts
// -0.090 Volts
// -0.085 Volts
// -0.080 Volts
// -0.075 Volts
// -0.070 Volts
// -0.065 Volts
// -0.060 Volts
// -0.055 Volts
// -0.050 Volts
// -0.045 Volts
// -0.040 Volts
// -0.030
// -0.020
// -0.010
// 0.00
// 0.010
// 0.020
// 0.030
// 0.040
// 0.050
setfield K_mit_usb X_B->table[0] 36.0 X_B->table[1] 34.4 \
X_B->table[2] 32.8 X_B->table[3] 31.2 X_B->table[4] 29.6 \
X_B->table[5] 28.0 X_B->table[6] 26.3 X_B->table[7] 24.7 \
X_B->table[8] 23.1 X_B->table[9] 21.5 X_B->table[10] 19.9 \
X_B->table[11] 18.3 X_B->table[12] 16.6 X_B->table[13] 15.4 \
X_B->table[14] 13.5 X_B->table[15] 13.2 X_B->table[16] 11.9 \
X_B->table[17] 11.5 X_B->table[18] 10.75 X_B->table[19] 9.30 \
X_B->table[20] 8.30 X_B->table[21] 6.00 X_B->table[22] 5.10 \
X_B->table[23] 4.80 X_B->table[24] 3.20 X_B->table[25] 1.60 \
X_B->table[26] 0.00 X_B->table[27] 0.00 X_B->table[28] 0.00 \
X_B->table[29] 0.00 X_B->table[30] 0.00
/* Setting the calc_mode to NO_INTERP for speed */
setfield K_mit_usb X_A->calc_mode 0 X_B->calc_mode 0
/* tweaking the tables for the tabchan calculation */
tweak_tabchan K_mit_usb X
/* Filling the tables using B-SPLINE interpolation */
call K_mit_usb TABFILL X 3000 0
call K_mit_usb TABCREATE Y 30 -0.100 0.050
settab2const K_mit_usb Y_A 0 11 1.0 //-0.1 thru -0.035 => 1.0
// -0.040 Volts
//
// -0.030 Volts
// -0.020
// -0.010
// 0.00
// 0.010
// 0.020
// 0.030
// 0.040
// 0.050
setfield K_mit_usb Y_A->table[12] 1.00 Y_A->table[13] 0.97 \
Y_A->table[14] 0.94 Y_A->table[15] 0.88 Y_A->table[16] 0.75 \
Y_A->table[17] 0.61 Y_A->table[18] 0.43 Y_A->table[19] 0.305 \
Y_A->table[20] 0.220 Y_A->table[21] 0.175 Y_A->table[22] 0.155 \
Y_A->table[23] 0.143 Y_A->table[24] 0.138 Y_A->table[25] 0.137 \
Y_A->table[26] 0.136 Y_A->table[27] 0.135 Y_A->table[28] 0.135 \
Y_A->table[29] 0.135 Y_A->table[30] 0.135
settab2const K_mit_usb Y_B 0 11 0.0 //-0.1 thru -0.045 => 0.0
// -0.040 Volts
//
// -0.030 Volts
// -0.020
// -0.010
// 0.00
// 0.010
// 0.020
// 0.030
// 0.040
// 0.050
setfield K_mit_usb Y_B->table[12] 0.0 Y_B->table[13] 0.03 \
Y_B->table[14] 0.06 Y_B->table[15] 0.12 Y_B->table[16] 0.25 \
Y_B->table[17] 0.39 Y_B->table[18] 0.57 Y_B->table[19] 0.695 \
Y_B->table[20] 0.78 Y_B->table[21] 0.825 Y_B->table[22] 0.845 \
Y_B->table[23] 0.857 Y_B->table[24] 0.862 Y_B->table[25] 0.863 \
Y_B->table[26] 0.864 Y_B->table[27] 0.865 Y_B->table[28] 0.865 \
Y_B->table[29] 0.865 Y_B->table[30] 0.865
/* Setting the calc_mode to NO_INTERP for speed */
setfield K_mit_usb Y_A->calc_mode 0 Y_B->calc_mode 0
/* tweaking the tables for the tabchan calculation */
tweak_tabchan K_mit_usb Y
/* Filling the tables using B-SPLINE interpolation */
call K_mit_usb TABFILL Y 3000 0
setfield K_mit_usb X_A->sy 5.0 X_B->sy 5.0 Y_A->sy 5.0 \
Y_B->sy 5.0 Ek {EK}
end
function make_K2_mit_usb
if (({exists K2_mit_usb}))
return
end
float EK = -0.07
if (({exists K_mit_usb}))
move K_mit_usb K2_mit_usb
make_K_mit_usb
else
make_K_mit_usb
move K_mit_usb K2_mit_usb
end
setfield K2_mit_usb X_A->sy 20.0 X_B->sy 20.0 Y_A->sy 20.0 \
Y_B->sy 20.0 Ek {EK}
end
//========================================================================
// Tabchan Na Mitral cell channel
//========================================================================
function make_Na_mit_usb
if (({exists Na_mit_usb}))
return
end
/* offset both for erest and for thresh */
float THRESH = -0.055
/* Sodium reversal potl */
float ENA = 0.045
create tabchannel Na_mit_usb
// V
// S
// A
// S
setfield ^ Ek {ENA} Gbar {1.2e3*SOMA_A} Ik 0 Gk 0 \
Xpower 3 Ypower 1 Zpower 0
setup_tabchan Na_mit_usb X {320e3*(0.013 + THRESH)} -320e3 -1.0 \
{-1.0*(0.013 + THRESH)} -0.004 {-280e3*(0.040 + THRESH)} \
280e3 -1.0 {-1.0*(0.040 + THRESH)} 5.0e-3
setup_tabchan Na_mit_usb Y 128.0 0.0 0.0 {-1.0*(0.017 + THRESH)} \
0.018 4.0e3 0.0 1.0 {-1.0*(0.040 + THRESH)} -5.0e-3
end
//========================================================================
function make_Na2_mit_usb
if (({exists Na2_mit_usb}))
return
end
/* offset both for erest and for thresh */
float THRESH = -0.060
/* Sodium reversal potl */
float ENA = 0.045
create tabchannel Na2_mit_usb
// V
// S
// A
// S
setfield ^ Ek {ENA} Gbar {1.2e3*SOMA_A} Ik 0 Gk 0 \
Xpower 3 Ypower 1 Zpower 0
setup_tabchan Na2_mit_usb X {320e3*(0.013 + THRESH)} -320e3 -1.0 \
{-1.0*(0.013 + THRESH)} -0.004 {-280e3*(0.040 + THRESH)} \
280e3 -1.0 {-1.0*(0.040 + THRESH)} 5.0e-3
setup_tabchan Na2_mit_usb Y 128.0 0.0 0.0 \
{-1.0*(0.017 + THRESH)} 0.018 4.0e3 0.0 1.0 \
{-1.0*(0.040 + THRESH)} -5.0e-3
end
//========================================================================
|
