-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathKdrIs.mod
83 lines (57 loc) · 1.12 KB
/
KdrIs.mod
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
: Delayed Rectifier Potassium Channels - Initial Segment
NEURON {
SUFFIX KdrIs
NONSPECIFIC_CURRENT ik
RANGE gkbar, gk, ek
RANGE n_inf
RANGE tau_n
RANGE theta_n , tn, shiftT
}
UNITS {
(mA) = (milliamp)
(mV) = (millivolt)
}
PARAMETER {
gkbar = 0.16552 (mho/cm2)
ek = -80.0 (mV)
theta_n = 28
kappa_n = -15
celsius = 20 (degC)
vtraub2 = -10 (mV)
tn = 5 (ms)
shiftT = 0 (degC)
}
STATE {
n
}
ASSIGNED {
dt (ms)
v (mV)
ik (mA/cm2)
gk (mho/cm2)
n_inf
tau_n (ms)
tadj3
}
BREAKPOINT {
SOLVE states METHOD cnexp
gk = gkbar * n*n*n*n
ik = gkbar * n*n*n*n * (v - ek)
}
DERIVATIVE states { : exact Hodgkin-Huxley equations
evaluate_fct(v)
n' = (n_inf - n) / tau_n :'
}
UNITSOFF
INITIAL {
: Q10 adjustment
tadj3 = 3.0 ^ ((celsius-36-shiftT)/ 10 )
evaluate_fct(v)
n = n_inf
}
PROCEDURE evaluate_fct(v(mV)) { LOCAL v2
v2 = v - vtraub2
tau_n = (tn * tadj3) / (exp((v2+40)/40)+exp(-(v2+40)/50))
n_inf = 1 / (1+exp((v2+theta_n)/kappa_n))
}
UNITSON