search for: g_cat

Displaying 1 result from an estimated 1 matches for "g_cat".

Did you mean: 3_cat
2013 Feb 18
1
attempt to apply non-function
...non-function Code: library(deSolve) G1999 <- function(time, init, parms) { with(as.list(c(init, parms)),{ m_Na <- function(v) 1 / (1 + 15 * exp(-0.769 * (v+34)) * ((1 - exp(-0.05(v+6)/0.11 * v + 0.66)))) dv <- I_ext - ( + g_Na * (m_Na(v))^3 * h_Na * (E_Na - v) + ((g_CaT * m_CaT * h_CaT) + (g_CaS * m_CaS)) * (E_Ca - v) + (g_K * m_K^4) * (E_K - v) + (g_KCa * m_KCa * h_KCa * (E_K - v)) + (g_Af * h_Af + g_As * h_As) * m_A^3 * (E_K - v) + (g_L * (E_L - v))) dh_Na <- k_h * (0.08 * (1 - h_Na) * exp(-0.125 * (v + 39)) - h_Na / (1 + exp(-(0....