--- mod1:mat_apoio:dist_suc [2010/09/14 22:26] – adalardo
+++ mod1:mat_apoio:dist_suc [2024/01/11 15:21] (atual) – edição externa 127.0.0.1
@@ Linha 1: / Linha 1: @@
 ====== Distúrbio e Sucessão ======
+{{:mod1:mat_apoio:noiteestrelada.jpg?200  |}}
 Vamos investigar nesse exercício modelos de sucessão e incorporar neles distúrbio. No exercício de coexistência simulamos distúrbio através da taxa de extinção. Vamos partir desse modelo e avaliar o que acontece com a coexistência conforme aumento da intensidade do distúrbio.
-Vamos relembrar o modelo de coexistência e o exercício que fizemos. Tínhamos duas espécie, a primeira era melhor competidora pois podia colonizar manchas já ocupadas pela segunda, enquanto a segunda só colonizava manchas vazias. A variação na ocupação de manchas era dada por:
+Vamos relembrar o modelo de coexistência e o exercício que fizemos. Tínhamos duas espécie, sendo a primeira  melhor competidora pois podia colonizar manchas já ocupadas pela outra, enquanto a segunda só colonizava manchas vazias. A variação na ocupação de manchas era dada por:
 $$  (df_1)/dt  =  i_1f_1(1-f_1)-p_e f_1 $$
@@ Linha 73: / Linha 73: @@
 <code>
-par(mfrow=c(2,3))
+par(mfrow=c(2,3)) ## dividindo a tela gráfica em seis partes
 meta.comp(tf=100,c=100,l=100,fi1=0.1,fi2=0.1,i1=0.4,i2=0.8,pe=0.10, plot.eq=FALSE)
 meta.comp(tf=100,c=100,l=100,fi1=0.1,fi2=0.1,i1=0.4,i2=0.8,pe=0.20, plot.eq=FALSE)
@@ Linha 87: / Linha 87: @@
 ===== Modelo Multiespécies =====
-{{:mod1:mat_apoio:rman10556l.jpg.png?200|  }}
+{{:mod1:mat_apoio:rman10556l.jpg.png?200  |  }}
-Para criar um modelo onde exista demanda conflitante (trade-off) entre colonização e competição em um sistema multiespécies, precisamos primeiro criar uma cenário onde há um variação na habilidade de colonização/competição das espécies.
+Para criar um modelo onde exista demanda conflitante (tradeoff) entre colonização e competição em um sistema multiespécies, precisamos primeiro criar uma cenário onde há um variação na habilidade de colonização/competição das espécies.
-Para tanto vamos imaginar um sistema onde a habilidade competitiva e inversamente relacionada a habilidade de colonização em uma clássica demanda conflitante.
+Para tanto vamos criar um sistema onde a habilidade competitiva é inversamente relacionada a habilidade de colonização, uma clássica demanda conflitante.
-No equilíbrio ou em intensidades baixas de distúrbios, nossa comunidade virtual teria a espécie melhor competidora com maior proporção de manchas ocupadas, assim como no modelo de coexistência de duas espécies. Vamos estabelecer que essa proporção seja 20% de manchas ocupadas e em seguida estabelecer uma sequência ordenada hierárquica onde a próxima melhor competidora ocupará 20% das manchas restantes e a seguinte 20% do que restou depois, até nossa última espécie ocupar uma fração de 20% daquelas ultimas manchas não ocupadas por nenhuma das outras espécies.
+No equilíbrio ou em intensidades baixas de distúrbios, nossa comunidade virtual teria a espécie melhor competidora com maior proporção de manchas ocupadas, assim como no modelo de coexistência de duas espécies. Vamos estabelecer que essa proporção seja 20% de manchas ocupadas e em seguida estabelecer uma sequência ordenada hierárquica onde a próxima melhor competidora ocupará 20% das manchas restantes e a seguinte 20% do que restou depois, até nossa última espécie (pior competidora) ocupar uma fração de 20% daquelas últimas manchas não ocupadas por nenhuma das outras espécies.
 Nesse caso, teríamos o seguinte cenário na distribuição de abundâncias das nossas espécies:
@@ Linha 102: / Linha 102: @@
 <code>
-s=10
+x11() # abre uma nova janela gráfica
-i=1:s
+s=10 # número de espécies no sistema no início da simulaçao
+i=1:s # posição da espécie no classificação de competição
 i
-d=0.2
+d=0.2 # potencial de manchas ocupadas pela melhor competidora
-p=d*(1-d)^(i-1)
+p=d*(1-d)^(i-1) # proporção de manchas ocupadas por cada espécie no equilíbrio
 p
-plot(i, p, type="b", ylab="Proporção de manchas ocupadas", xlab="Ordem das espécie")
+plot(i, p, type="b", ylab="Proporção de manchas ocupadas", xlab="Ordem das espécies")
 </code>
@@ Linha 115: / Linha 116: @@
 $$ c_(i)= e/(1-d)^(2i-1)$$
-Além disso, o mesmo pesquisador generalizou a equação de variação da proporção de manchas ocupadas ao longo do tempo para //n// espécies, como sendo:
-$$ (dp_(i))/dt = c_(i)p_(i)(1-sum_(j=1)^i(p_i)) - m_ip_i - sum_(j=1)^(i-1)(c_jp_jp_i)$$
 Vamos adicionar os valores de taxas de colonização no nosso gráfico anterior, calculados para uma taxa de extinção igual a 0.04 para todas as espécies:
@@ Linha 130: / Linha 127: @@
 </code>
-Essa é nossa situação de equilíbrio na comunidade, uma distribuição geométrica de abundâncias com a mais abundante chegando a 20%  e com um taxa de extinção de 4% para todas as espécies. Vamos montar essa comunidade e ver como é sua dinâmica ao longo do tempo. A nossa função tem os seguintes passos:
+Essa é nossa situação de equilíbrio na comunidade, uma distribuição geométrica de abundâncias com a mais abundante chegando a 20%  e com um taxa de extinção de 4% para todas as espécies.
+Além disso, o mesmo pesquisador generalizou a equação de variação da proporção de manchas ocupadas ao longo do tempo para //n// espécies, como sendo:
+$$ (dp_(i))/dt = c_(i)p_(i)(1-sum_(j=1)^i(p_i)) - m_ip_i - sum_(j=1)^(i-1)(c_jp_jp_i)$$
+Vamos montar essa comunidade simulando sua dinâmica ao longo do tempo. A nossa função tem os seguintes passos:
   - cria a ordenação das espécies
   - calcula a coeficiente de colonização como acima
-  - se o //fi// é um valor único, preenche essa proporção de manchas com (s) espécies ao acaso
+  - se o //fi// (proporção de manchas ocupadas no início) é um valor único, preenche essa proporção de manchas com (s) espécies ao acaso
-  - se //fi// é um vetor de //s// valores, esses são utilizados para o preenchimento inicial das manchas sendo as proporções do vetor //fi// relacionadas à ordem das espécies começando com a espécie melhor competidora para a pior
+  - se //fi// é um vetor de //s// valores, esses são utilizados para o preenchimento inicial das manchas sendo as proporções no vetor //fi// relacionadas à ordem das espécies, começando com a espécie melhor competidora para a pior
   - inicia ciclos até //tf//
   - a cada ciclo calcula a extinção para cada espécie e sua colonização respeitando a hierarquia de competição para decidir qual espécie é deslocada da mancha e qual permanece
   - guarda a proporção de manchas ocupadas por cada espécie a cada ciclo
-  - produz o gráfico e retorna o resultado
+  - produz o gráfico e retorna o resultado de número de manchas ocupadas por cada espécie a cada tempo
 Copie e cole o código abaixo no R para rodar a função //com.compete//
@@ Linha 201: / Linha 204: @@
 		}
 matplot(1:tf,t(resulta),type="l",lty=1:s, col=rainbow(s),ylim=c(0,max(resulta)+0.2), xlab="Tempo", ylab="Fração de manchas ocupadas",main=paste("Competição x Colonização \n d=",d," pe=",pe, "fr= ",fr, "int= ", int))
-legend("topright", legend=paste("sp", 1:s, sep="_"), lty=1:s, col=terrain.colors(s), bty="n", cex=0.5)
+legend("topright", legend=paste("sp", 1:s, sep="_"), lty=1:s, col=rainbow(s), bty="n", cex=0.5)
 invisible(resulta)
 }
@@ Linha 207: / Linha 210: @@
 </code>
+Nossa função tem os seguintes argumentos:
+  - tf= tempo final da simulação,
+  - l= número de linhas no espaço de manchas,
+  - c= número de colunas no espaço de manchas,
+  - s= número de espécies no tempo inicial,
+  - fi= proporção de manchas ocupadas no tempo inicial,
+  - d= proporção de manchas ocupadas pela espécie melhor competidora no equilibrio,
+  - pe= taxa de extinção das manchas,
+  - fr= frequencia de distúrbio (usada somento mais a frente no exercício),
+  - int= intensidade do distúrbio (idem)
 ==== Testando o Modelo ====
-Vamos testar o nosso modelo com 10 espécies (s=10), 10000 manchas (l = 100, c= 100 ),, com a espécie competidora tendo o potencial de ocupar 20% das manchas, probabilidade de extinção pe=0.04. Vamos rodar primeiro com 200 ciclos de tempo e depois com 1000. Em ambas as simulações vamos começar com um proporção de manchas ocupadas no início baixa (//fi//=0.2), simulando uma situação onde o sistema está fora do equilíbrio.
+Vamos testar o nosso modelo com 10 espécies (s=10), 10000 manchas (l = 100, c= 100 ), com a espécie competidora tendo o potencial de ocupar 20% das manchas, probabilidade de extinção pe=0.04. Vamos rodar primeiro com 200 ciclos de tempo e depois com 1000. Em ambas as simulações vamos começar com uma proporção de manchas ocupadas no início baixa (//fi//=0.2), simulando uma situação onde o sistema está fora do equilíbrio.
 <code>
+par(mfrow=c(1,1))
 teste1=com.compete(tf=200,l=100,c=100, s=10, fi=0.2, d=0.2, pe=0.04)
+x11()
 teste2=com.compete(tf=1000,l=100,c=100, s=10, fi=0.2, d=0.2, pe=0.04)
@@ Linha 221: / Linha 237: @@
     - sucessão ecológica.
-## incluir aqui mais alguns exemplos variando parâmetros
 ==== Incluindo distúrbios ====
+{{:mod1:mat_apoio:disturbio.jpg?200  |}}
-Vamos simular agora um sistema com distúrbios. Nos modelos de metapopulação vimos que a probabilidade de extinção ($$p_e$$) podia ser interpretada como distúrbio, já que atingia uma parte das manchas que ficavam vagas para posterior colonização. Aqui, vamos interpretar o $$p_e$$ como a mortalidade basal das populações, não mais como distúrbio. Essa probabilidade de morte é constante e igual para todas as espécies no nosso modelo, somente para simplificar a simulação. Vamos criar distúrbios na nossa comunidade que acontecem com uma certa frequência de intervalos regulares (//fr//) e uma certa intensidade (//int//) relacionada à proporção de manchas afetadas.
+Vamos simular agora um sistema com distúrbios. Nos modelos de metapopulação vimos que a probabilidade de extinção ($$p_e$$) podia ser interpretada como distúrbio, já que atingia uma parte das manchas tornando-as vagas para posterior colonização. Aqui, vamos interpretar o $$p_e$$ como a mortalidade basal das populações, não mais como distúrbio. Essa probabilidade de morte é constante e igual para todas as espécies no nosso modelo, somente para simplificar a simulação. Vamos criar distúrbios na nossa comunidade que acontecem com uma certa frequência de intervalos regulares (//fr//) e uma certa intensidade (//int//) relacionada à proporção de manchas afetadas.
 ==== Aplicando distúrbios ====
-Antes de incluir o distúrbio no sistema, vamos fazer um gráfico do sistema de referência sem distúrbio. No exemplo 2 o resultado foi guardado no objeto //teste2//. Vamos usá-lo para não ter que rodar novamente a função (( como devem ter percebido a simulação e um pouco demorada pois demanda muita capacidade de processamento do computador )):
+Antes de incluir o distúrbio no sistema, vamos fazer um gráfico do sistema de referência sem distúrbio. No exemplo 2 o resultado foi guardado no objeto //teste2//. Vamos usá-lo para não ter que rodar novamente a função (( como devem ter percebido a simulação é um pouco demorada pois demanda muita capacidade de processamento do computador )):
 <code>
@@ Linha 248: / Linha 261: @@
+  * Responda as seguintes questões:
+    - Em que situações as melhores competidoras se dão melhor?
+    - E as piores competidoras?
+    - Consegue detectar algum padrão na coexistência de espécies com essas poucas simulações?
 ==== Distúrbio Intemediário ====
 É creditado ao pesquisador Joseph Connell (1978) a teoria do distúrbio intermediário, apesar dela ter sido proposta por J. Phillip Grime alguns anos antes em 1973, tratando de exclusão competitiva em plantas. O trabalho de Connel (veja referência) pode ter tido preferência na citação da teoria por ter contrastando dois ambientes muito distintos e reconhecidamente entre os mais diversos do planeta (recifes de corais e florestas tropicais). Nele o pesquisador advoga que o principal fator relacionado à manutenção da alta diversidade nesse ecossistemas é a presença de distúrbios em frequências e intensidade intermediárias.
 Faça simulações para testar essa teoria.
-<box red 70% | Dicas >
+<box red 80% | Dicas >
 Salve cada simulação em um objeto de nome diferente. Nos exemplos acima fizemos isso denominando cada simulação por um nome (teste1, teste2...) à direta do sinal de igualdade ou com o símbolo (<-), veja abaixo:
@@ Linha 265: / Linha 282: @@
 Podemos contar o número de espécies ao longo do tempo, da seguinte forma:
-  teste2a=teste2
+  apply(teste2>0, 2, sum)
-  teste2a[teste2>0]=1
-  apply(teste2, 2, sum)
-Caso queire fazer alguma outra operação com os dados resultantes das simulações, contate um monitor ou professor.
+Caso queira fazer alguma outra operação com os dados resultantes das simulações, contate um monitor ou professor.
 </box>

mod1/mat_apoio/dist_suc.1284503218.txt.gz · Última modificação: 2024/01/11 15:21 (edição externa)

Mostrar página Revisões anteriores

[unknown link type]Voltar ao topo