Displaying 1 result from an estimated 1 matches for "k_as".
Did you mean:
_as
2013 Feb 18
1
attempt to apply non-function
...1+exp(-(0.0435 * v + 0.026 * m_Ca)) * (1 +
exp(-(0.2 * v + 3.2 + 0.12 * m_Ca))) * (2.5 + m_Ca)) - m_KCa)
dh_KCa <- (21 / (0.6 + m_Ca)) - (35 * h_KCa)
dm_A <- 40 / (1+exp(-(0.0667 * (v - vA)))-140 * m_A)
dh_Af <- k_Af * (1 / ((1 + exp(0.167 * (v + 31))))) - h_Af
dh_As <- k_As * (1 / ((1 + exp(0.167 * (v + 31))))) - h_As
list(c())
})
}
times<-seq(from=1, to=100, by=0.1)
parms<-c(I_ext=6.5,
g_Af=0.7, g_As=1.2, g_K=0.42, g_KCa=5.9, g_CaT=0.21, g_CaS=0.047,
g_L=0.1, g_Na=2300,
E_K=-86, E_L=-50, E_Ca=40, E_Na=50,
vA=-43,
k_K...