Diferenças

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

--- roteiro:meta_chuva [2012/05/28 16:47] – adalardo
+++ roteiro:meta_chuva [2012/05/28 17:16] – mortara
@@ Linha 47: / Linha 47: @@
 paisag[,,1]<-sample(c(ocor,nocor))
 paisag[,,1]
+image(paisag[,,1], col=c("white", "green"))
 </code>
 Agora sim, estamos prontos para a simulação.
@@ Linha 66: / Linha 67: @@
 Se você observar atentamente, algumas manchas que estavam ocupadas (1) ficaram vazias (0):
 <code>
-paisag[,,1] # paisagem no tempo inicial
+par(mfrow=c(1,2))
-paisag[,,2] # paisagem depois de um passo no tempo
+image(paisag[,,1], col=c("white", "green"))
+image(paisag[,,2], col=c("white", "green"))
 </code>
 Estes foram eventos de extinção local. Note que o número de manchas ocupadas diminuiu.
@@ Linha 124: / Linha 127: @@
 Agora, para ficar mais bonito ainda, vamos criar um gráfico com esses resultados:
 <code>
+par(mfrow=c(1,1))
 plot(1:10,resultado$f,type="l",xlab="Tempo",ylab="Fração de manchas ocupadas",
 ylim=c(0,1),main="Dinâmica de ocupação de manchas",font.lab=2,lwd=2)