Displaying 2 results from an estimated 2 matches for "k_q".
Did you mean:
_q
2013 Mar 02
3
if value is in vector, perform this function
...) #all time values, experiment ran for 60 days
#feeding sequence - every "3.5 days"
feed_days = seq(1,60,by=3.5)
Daphnia <- function(t,x,params){
C_D = x[2];
C_A = 0;
for(t %in% feed_days){
if t == TRUE {
C_A = 1.5
}
else{
C_A = 0
}}
gamma = params[1]; m_D = params[2]; K_q = params[3]; q_max = params[4];
M_D = m_D * C_D
I_A = (C_D * q_max * C_A) / (K_q + C_A)
r_D = gamma * I_A
return(
list(c(
- I_A,
r_D - M_D
)))
}
library(deSolve)
results <- ode(init, t, Daphnia, params, method = "lsoda")
Let me know if there's any other info that would...
2020 Feb 27
2
[PATCH] Update the 5 year logo to 10 year logo
...xyaMWD=!z
z(Qw?cvRBkHCGUa&Bk(YGWRDK5L(dB_Y<i6sE@Z^>qDix7ZlYqYu=xh#b>9&!&0$Cm
z=y>J&g;Z7K4nVIGE?-#OK<q2es_2`Vqro+m4+I_@+t)3y+jq&9)q;o{OYKu)1yH7Q
zzQMV+AG0~iss&3X(picKgmV9Fr5&A>rPFcg;`{OZ3mkWWT3hUFwhhb9JHmfXRYWs_
zRq@3%7P*n{6}}(Q3NeaRFR5xBLlt%hE)5{7>Yo!k_q{BRybc_Hf=z9Z*zbz*scK3F
zGA=Jr>f>Z%1EV=g=>+HV<ybk@2stQtIF9e?_@vFAdsG&vFlS|6FU7w<MZ|h=K!Ez>
zTCsdHj#aqrF=4(>d?e8GS+=IQ2$56~8R9>SGfd+&p)OOc5l6am`9=<l#C2Iaa-x5w
zV`&!4fkD8q1X#BBCx)cYx-R3;If}TWV_lB214~(L%W#KWhu0DOz?WFOq5mHm!JFLg
z!)cw~(6OLzWu89i=tItIv}nWA#$TB86zbV#...