63 lines
970 B
Modula-2
63 lines
970 B
Modula-2
:Comment : L6
|
|
:Reference : : Adams et al. 1982 - M-currents and other potassium currents in bullfrog sympathetic neurones
|
|
:Comment: corrected rates using q10 = 2.3, target temperature 34, orginal 21
|
|
: **Modified to use 'celsius' for temperature to correct rates by Aman Aberra**
|
|
NEURON {
|
|
SUFFIX Im
|
|
USEION k READ ek WRITE ik
|
|
RANGE gImbar, gIm, ik
|
|
}
|
|
|
|
UNITS {
|
|
(S) = (siemens)
|
|
(mV) = (millivolt)
|
|
(mA) = (milliamp)
|
|
}
|
|
|
|
PARAMETER {
|
|
gImbar = 0.001000 (S/cm2)
|
|
}
|
|
|
|
ASSIGNED {
|
|
v (mV)
|
|
ek (mV)
|
|
ik (mA/cm2)
|
|
gIm (S/cm2)
|
|
celsius (degC)
|
|
mInf
|
|
mTau
|
|
mAlpha
|
|
mBeta
|
|
}
|
|
|
|
STATE {
|
|
m
|
|
}
|
|
|
|
BREAKPOINT {
|
|
SOLVE states METHOD cnexp
|
|
gIm = gImbar*m
|
|
ik = gIm*(v-ek)
|
|
}
|
|
|
|
DERIVATIVE states {
|
|
rates()
|
|
m' = (mInf-m)/mTau
|
|
}
|
|
|
|
INITIAL{
|
|
rates()
|
|
m = mInf
|
|
}
|
|
|
|
PROCEDURE rates(){
|
|
LOCAL qt
|
|
qt = 2.3^((celsius-21)/10)
|
|
UNITSOFF
|
|
mAlpha = 3.3e-3*exp(2.5*0.04*(v - -35))
|
|
mBeta = 3.3e-3*exp(-2.5*0.04*(v - -35))
|
|
mInf = mAlpha/(mAlpha + mBeta)
|
|
mTau = (1/(mAlpha + mBeta))/qt
|
|
UNITSON
|
|
}
|