Diferenças

Aqui você vê as diferenças entre duas revisões dessa página.

--- exercicios:exe3 [2012/05/17 14:28] – adalardo
+++ exercicios:exe3 [2024/01/09 18:18] (atual) – edição externa 127.0.0.1
@@ Linha 177: / Linha 177: @@
 <code>
 plot(res[,1], res[,2], main="Crescimento Logístico", type="l", xlab="Tempo", ylab="N", col="red" )
-legend("topleft", "N0=1;r = 1; K = f100", bty="n")
+legend("topleft", "N0=1;r = 1; K = 100", bty="n")
 </code>
@@ Linha 188: / Linha 188: @@
 ====== Estocasticidade Ambiental ======
-Vamos partir da equação logística acima e sua solução integração numérica para criar uma situação com estocasticidade ambiental. Nessa função teremos três parâmetros:
+Vamos partir da equação logística acima e sua solução integração numérica para criar uma situação com estocasticidade ambiental. No caso do modelo exponencial a estocasticidade estava representada por uma variação no //r//, na logística vamos modelar a uma variação aleatória na capacidade de suporte.
-  * rmedio: uma taxa média do crescimento populacional
+Nessa função teremos três parâmetros:
-  * varr: uma variância do rmedio
+  * r: taxa de crescimento populacional
   * K: capacidade de suporte
+  * varK: uma variância do K
 <code>
@@ Linha 197: / Linha 198: @@
   {
    n<-y[1]
-   r<-rnorm(1,mean=parms[1],sd=sqrt(parms[2]))
+   r<-parms[1]
-   K<-parms[3]
+   K<-rnorm(1,mean=parms[2],sd=sqrt(parms[3]))
    dN.dt<-r* n* (1- n/K)
    return(list(c(dN.dt)))
   }
-y0 = c(1)
+y0 = c(10)
-prmt=c(rmedio=0.1, varr=0.1, K=10)
+prmt=c(r=0.15, K=30, varK=20)
-st=seq(0.1,200,by=0.01)
+st=seq(0,100,by=0.01)
 res.clogEst= ode(y=y0,times=st, func=clogEst,parms=prmt)
 plot(res.clogEst[,1], res.clogEst[,2], type="l", col="red",lwd=2, xlab="tempo", ylab="y")
@@ Linha 212: / Linha 213: @@
   * Use as simulações com estocasticidade ambiental para reponder:
-  * Qual parâmetros aumentam a amplitude da oscilação e qual o paralelo com a biologia?
+  * Qual parâmetros aumentam a amplitude da oscilação e qual a interpretação biológica?
   * É possível ocorrer extinção da população com taxas de crescimento positivo? Demonstre com simulações.
 </box>
 ====== Crescimento Logístico com Retardo ======