Equações de Lotka-Volterra Estocásticas: mudanças entre as edições

De Física Computacional
Ir para navegação Ir para pesquisar
Sem resumo de edição
 
(47 revisões intermediárias por 3 usuários não estão sendo mostradas)
Linha 22: Linha 22:
*<math>b</math>: taxa de predação;
*<math>b</math>: taxa de predação;
*<math>c</math>: taxa de mortalidade livre do predador;
*<math>c</math>: taxa de mortalidade livre do predador;
*<math>f</math>: taxa de crescimento do predador devido à predação.
*<math>f</math>: taxa de crescimento do predador devido à predação. <ref>Nos gráficos e no código que seguem, <math>f</math> é identificado como <math>d</math>, mas aqui optou-se por usar <math>f</math> para não confundir com um diferencial.</ref>


É interessante notar que o sistema apresenta um ponto fixo não trivial em <math>(x^\ast, y^\ast) = \left(\frac{c}{f},\frac{a}{b}\right)</math>. Pode-se mostrar também que as demais soluções (além da trivial) são órbitas fechadas no espaço de fase.
É interessante notar que o sistema apresenta um ponto fixo não trivial em <math>(x^\ast, y^\ast) = \left(\frac{c}{f},\frac{a}{b}\right)</math>. Pode-se mostrar também que as demais soluções (além da trivial) são órbitas fechadas no espaço de fase.
Linha 45: Linha 45:
onde os <math>\xi_i</math> são os ruídos brancos de cada variável, e <math>\epsilon_i</math>, a intensidade dos mesmos.
onde os <math>\xi_i</math> são os ruídos brancos de cada variável, e <math>\epsilon_i</math>, a intensidade dos mesmos.


Ao escrever o diferencial total, obtemos
 
===Itô===
Executando um processo análogo ao realizado na seção seguinte obtém-se as equações diferenciais estocásticas no sentido de Itô:


<math>
<math>
\begin{cases}
\begin{cases}


dX = X(a - bY)dt + \epsilon_x X \bullet dW_x \\
dX = X(a - bY + \frac{1}{2} {\epsilon_x}^2)dt + \epsilon_x X \bullet dW_x \\
dY = Y(-c + fX)dt + \epsilon_y Y \bullet dW_y
dY = Y(-c + fX + \frac{1}{2} {\epsilon_y}^2)dt + \epsilon_y Y \bullet dW_y \\


\end{cases}
\end{cases}
</math>
</math>


Analisaremos o modelo proposto no sentido de Itô e no sentido de Stratonovich.
Observa-se que, além de um incremento de Wiener proporcional a <math>X</math> e <math>Y</math>, obtém-se parâmetros determinísticos "efetivos" <math>a \to a + \frac{1}{2}{\epsilon_x}^2</math> e <math>c \to c - \frac{1}{2}{\epsilon_y}^2</math>.
 
 
==Ruído nos parâmetros==
Uma outra maneira de explorar o ruído nas equações de Lotka-Volterra é substituir os parâmetros determinísticos do modelo por parâmetros estocásticos. Analisaremos esse modelo proposto no sentido de Itô e no sentido de Stratonovich.


===Itô===
===Itô===
Transformando as equações acima para equações diferenciais estocásticas no sentido de Itô, obtemos
Para este caso, colocaremos o ruído de tal maneira que <math> a \to a + {\epsilon_x}X\xi_x(t)</math> e <math> c \to c + {\epsilon_y}Y\xi_y(t)</math>, onde <math>\epsilon_x</math> e <math>\epsilon_y</math> são constantes e <math>\xi_i(t)</math> é o ruído branco definido pelo processo de Wiener. Esse novo modelo descreveria um sistema com populações em níveis vizinhos da cadeia alimentar, abrangendo uma biodiversidade representada por parâmetros efetivos estocásticos nas taxas  <math>a</math> e <math>c</math>, proporcional ao número de presas e predadores. Ou seja, há uma diversidade de taxas de reprodutibilidade das presas e mortalidades dos predadores, o que representaria diferentes populações de diferentes espécies.
 
A nova equação diferencial é dada, então, por:
 
 
<math>
\begin{cases}
 
\dot{X} = X(a - bY) + \epsilon_x \xi_x(t) X^2\\
\dot{Y} = Y(-c + fX) - \epsilon_y \xi_y(t) Y^2
 
\end{cases}
</math>
 
Seja <math>A_x(X(t), Y(t)) = X(a - bY)</math>, <math>A_y(X(t), Y(t))=Y(-c + fX)</math>, <math> B_x(X(t)) = \epsilon_x X^2</math> e <math>B_y(Y(t)) = \epsilon_x Y^2</math>. Integra-se essa equação em ambos os lados
de tal forma que:
 
<math>
\begin{cases}
 
\int _t ^{t + \Delta t}{dX}  = \int _t ^{t + \Delta t}{X(a - bY)dt'} + \epsilon_x \int _t ^{t + \Delta t} {X^2 \xi_x(t')dt'} \\
\int _t ^{t + \Delta t}{dY}  = \int _t ^{t + \Delta t}{Y(-c + fX)dt'} + \epsilon_y \int _t ^{t + \Delta t} {Y^2 \xi_y(t')dt'}
\end{cases}
</math>
 
A parte determinista é integrada trivialmente, porém para integrar o segundo termo das equações é necessário aproximar <math>B_x(X(t)) \to B_x \left(X + \frac{1}{2}\Delta X \right)</math> no intervalo <math>\Delta t</math>, e o mesmo para <math>B_y(Y(t))</math>. Expande-se <math>B_i</math> em série de Taylor, conforme o cálculo de Itô, e então obtém-se as equações diferenciais estocásticas ao tomar o limite <math>\Delta t \to dt</math>:
 
<math>
\begin{cases}
 
dX = X(a - bY + {\epsilon_x}^2 X^2)dt + \epsilon_x X^2 \bullet dW_x \\
dY = Y(-c + fX +{\epsilon_y}^2 Y^2)dt - \epsilon_y Y^2 \bullet dW_y \\
 
\end{cases}
</math>
 
Ao integrá-las de <math>t</math> a <math>t + \Delta t</math> obtém-se o método numérico utilizado para fazer as simulações computacionais. Nota-se que a integral dos segundos termos são aproximadas para <math>B_i\Delta W_i</math> no intervalo <math>\Delta t</math>. Então, é utilizado o método de Heun para integrar a parte determinística da equação, obtendo portanto o seguinte método:
 
<math>
\begin{cases}
 
X_{n+1} = X_n + \frac{1}{2}(k_{1x} + k_{2x})\Delta t + \epsilon_x X_n^2 \Delta W_x \\
Y_{n+1} = Y_n +\frac{1}{2}(k_{1y} + k_{2y})\Delta t - \epsilon_y Y_n^2 \Delta W_y \\
 
\end{cases}
</math>
 
onde


<math>
<math>
\begin{cases}
\begin{cases}


dX = X(a - bY + \frac{1}{2} {\epsilon_x}^2)dt + \epsilon_x X dW_x \\
k_{1x} = X_n(a - bY_n + {\epsilon_x}^2 X_n^2)\\
dY = Y(-c + fX + \frac{1}{2} {\epsilon_y}^2)dt + \epsilon_y Y dW_y \\
k_{2x} = (X_n + k_{1x}\Delta t)(a - b(Y_n + k_{1y}\Delta t) + {\epsilon_x}^2 (X_n + k_{1x}\Delta t)^2)\\
k_{1y} = Y_n(-c + dX_n + {\epsilon_y}^2 Y_n^2)\\
k_{2x} = (Y_n + k_{1y}\Delta t)(-c + d(X_n + k_{1x}\Delta t) + {\epsilon_y}^2 (Y_n + k_{1y}\Delta t)^2)\\


\end{cases}
\end{cases}
</math>
</math>


Observa-se que, além de um incremento de Wiener proporcional a <math>X</math> e <math>Y</math>, obtém-se parâmetros determinísticos "efetivos" <math>a \to a + \frac{1}{2}{\epsilon_x}^2</math> e <math>c \to c - \frac{1}{2}{\epsilon_y}^2</math>.
O índice <math>n</math> representa o passo <math>\Delta t</math> na iteração do método.


===Stratonovich===
===Stratonovich===
O ruído também pode ser adicionado nos parâmetros <math> b </math> e <math> d </math>, de forma que <math> b \to b + \epsilon_x \xi_x(t)</math> e <math> d \to d + \epsilon_y \xi_y(t)</math>, onde o ruído segue a forma de Stratonovich. Essa mudança pode ser interpretada como a predação de diferentes predadores sobre uma mesma presa, considerando que não há competição entre as diferentes espécies. Esse ruído também pode ser pensado como uma variação do efeito da caça de um mesmo predador, ocasionado, por exemplo, a um certo número de presas escaparem à caça.
Dessa forma, a dinâmica populacional se comporta como:
<math>
\begin{cases}


==Ruído nos parâmetros==
\dot{X} = X(a - bY) - \epsilon_x X Y \xi_x(t) \\
\dot{Y} = Y(-c + fX) + \epsilon_y X Y \xi_y(t)


Uma outra maneira de explorar o ruído nas equações de Lotka-Volterra é substituir o ruído de tal maneira que <math> a \to a + {\epsilon_x}X\xi_x(t)</math> e <math> c \to c + {\epsilon_y}Y\xi_y(t)</math>, onde <math>\epsilon_x</math> e <math>\epsilon_y</math> são constantes e <math>\xi_i(t)</math> é o ruído branco definido pelo processo de Wiener. O que modelaria um sistema que relaciona as populações entre dois níveis vizinhos da cadeia alimentar, abrangendo uma biodiversidade representada por parâmetros efetivos estocásticos nas taxas  <math>a</math> e <math>c</math> proporcional ao número de presas e predadores, ou seja, há uma diversidade de taxas de reprodutibilidade das presas e mortalidades dos predadores, o que representaria diversas populações de especíes diferentes. Dessa maneira, obtém-se a seguinte equação diferencial:
\end{cases}
</math>


onde <math> \xi (t) </math> é um ruído branco e <math>\epsilon_i \geq 0 </math>. Considerando que <math> \bullet </math> denota a integral de Stratonovich e <math> W_n(t) </math> um escalar oriundo de processos de Wiener independentes, utiliza-se para aplicação no método numérico a seguinte equação diferencial estocástica:


<math>
<math>
\begin{cases}
\begin{cases}


\dot{X} = X(a - bY) + \epsilon_x \xi_x(t) X^2\\
\dot{X} = X(a - bY)dt - \epsilon_x X Y \bullet dW_x\\
\dot{Y} = Y(-c + fX) - \epsilon_y \xi_y(t) Y^2
\dot{Y} = Y(-c + fX)dt + \epsilon_y X Y \bullet dW_y


\end{cases}
\end{cases}
</math>
</math>


Seja <math>A_x(X(t), Y(t)) = X(a - bY)</math>, <math>A_y(X(t), Y(t))=Y(-c + fX)</math>, <math> B_x(X(t)) = \epsilon_x X^2</math> e <math>B_y(Y(t)) = \epsilon_x Y^2</math>. Integra-se essa equação em ambos os lados
Utilizando o método de Heun tem-se:
de tal forma que:


<math>
<math>
\begin{cases}
\begin{cases}


\int _t ^{t + \Delta t}{dX} = \int _t ^{t + \Delta t}{X(a - bY)dt'} + \epsilon_x \int _t ^{t + \Delta t} {X^2 \xi_x(t')dt'} \\
X_{n+1} = X_n + \frac{1}{2}(A(x_n) + A(X_1))\Delta t + \frac{1}{2}\Delta W_x(B(x_n)+B(X_1)) \\
\int _t ^{t + \Delta t}{dY} = \int _t ^{t + \Delta t}{Y(-c + fX)dt'} + \epsilon_y \int _t ^{t + \Delta t} {Y^2 \xi_y(t')dt'}
Y_{n+1} = Y_n +\frac{1}{2}(A(y_n) + A(Y_1))\Delta t +   \frac{1}{2}\Delta W_y(B(y_n)+B(Y_1)) \\
 
\end{cases}
\end{cases}
</math>
</math>


onde
<math>
\begin{cases}
A(x_n)= x_n(a - b y_n) \\
A(y_n)= y_n(-c + f x_n)\\\\
B(x_n)= \epsilon_x x_n y_n\\
B(y_n)= - \epsilon_y x_n y_n\\\\


X_1 = x_n + \sqrt{\Delta t} A(x_n) + \Delta W_n B(x_n)\\
Y_1 = y_n + \sqrt{\Delta t} A(y_n) + \Delta W_n B(y_n)\\\\
A(X_1)= X_1(a - b Y_1) \\
A(Y_1)= Y_1(-c + f X_1)\\\\
B(X_1)= - \epsilon_x X_1 Y_1\\
B(Y_1)=  \epsilon_y X_1 Y_1\\
\end{cases}
</math>


=Código=
=Código=
A estrutura do código foi a mesma para os três casos considerados, mudando apenas os detalhes da equação diferencial utilizada. A integração numérica da parte determinística foi feita pelo Método de Heun.
A estrutura do código foi a mesma para os três casos considerados, mudando apenas os detalhes da equação diferencial utilizada. A integração numérica da parte determinística foi feita pelo Método de Heun. Todas as análises foram realizadas a partir de um número N de realizações independentes, de onde se calcula a média e a variância para cada passo de tempo destas realizações. Assim, pode-se analisar as tendências do sistema de maneira estatística.
 
<br />
<source lang="julia">
using LaTeXStrings
using Plots
using Random
using Statistics
 
 
module model
function Lotka_Q_Ito(x,y,a,b,c,d,ϵ1,ϵ2,Δt) #Modelo Quadrático (Lucas)
 
#Parte determinista da equação (Sem o ΔW)
A_x = x*(a - b*y + (ϵ1^2)*x^2)
A_y = y*(-c + d*x + (ϵ2^2)*y^2)
#Parte Estocástica
B_x = ϵ1*x^2
B_y = -ϵ2*y^2
 
return A_x, A_y, B_x, B_y
end
function Lotka_Ito(x,y,a,b,c,d,ϵ1,ϵ2,Δt) #Modelo Linear Ito (Vini)
#Parte determinista
A_x = x*(a - b*y + (ϵ1^2)/2)
A_y = y*(-c + d*x + (ϵ2^2)/2)
#Parte Estocástica
B_x = ϵ1*x
B_y = ϵ2*y
return A_x, A_y, B_x, B_y
end
function Lotka_Strato_I(x,y,a,b,c,d,ϵ1,ϵ2,Δt) #Modelo Linear Stratonovich (André)
#Parte determinista
A_x = x*(a - b*y)
A_y = y*(-c+d*x)
#Parte Estocástica
B_x = -ϵ1*x*y
B_y = ϵ2*y*x
return A_x, A_y, B_x, B_y
end
end
 
module simula
 
using LaTeXStrings
using Plots
using Random
using Statistics
using Main.model
 
function Lotka(Δt, tmax, a, b, c, d, ϵ1, ϵ2, x0, y0)
 
n = floor(Int64, tmax/Δt) #Tamanho dos meus vetores
rng = MersenneTwister() ##Chave para gerar números aleatórios
ΔW_1 = sqrt(Δt)*randn(rng, n)
ΔW_2 = sqrt(Δt)*randn(rng, n)
x = zeros(n)
y = zeros(n)
x[1] = x0
y[1] = y0
i=1
while i<n
##Método de Heun (Runge Kutta 2)
#Caso queira mudar o modelo utilizado, basta trocar o Lotka_Q_Ito pelo respectivo nas duas chamadas.
 
k1_x, k1_y, B_x, B_y = model.Lotka_Ito(x[i],y[i],a,b,c,d,ϵ1,ϵ2, Δt)
x_aux = x[i] + k1_x*Δt
y_aux = y[i] + k1_y*Δt
k2_x, k2_y = model.Lotka_Q_Ito(x_aux,y_aux,a,b,c,d,ϵ1,ϵ2, Δt)
 
x[i+1] = x[i] +(k1_x + k2_x)*0.5*Δt + B_x*ΔW_1[i]
y[i+1] = y[i] + (k1_y + k2_y)*0.5*Δt + B_y*ΔW_2[i]
##Método de Heun (Stratonovich)
#k1_x, k1_y, B_x, B_y = model.Lotka_Strato_I(x[i],y[i],a,b,c,d,ϵ1,ϵ2, Δt)
#x_aux = x[i] + k1_x*sqrt(Δt) + B_x*ΔW_1[i]
#y_aux = y[i] + k1_y*sqrt(Δt) + B_y*ΔW_2[i]
#k2_x, k2_y, ka_x, ka_y = model.Lotka_Strato_I(x_aux,y_aux,a,b,c,d,ϵ1,ϵ2, Δt)
 
#x[i+1] = x[i] +(k1_x + k2_x)*0.5*Δt + 0.5*(B_x+ka_x)*ΔW_1[i]
#y[i+1] = y[i] + (k1_y + k2_y)*0.5*Δt + 0.5*(B_y+ka_y)*ΔW_2[i]
if x[i+1]<0
x[i+1]=0
end
if y[i+1]<0
y[i+1]=0
end
 
##Método de Euler
#x[i+1] = x[i] + k1_x*Δt + B_x*ΔW_1[i]
#y[i+1] = y[i] + k1_y*Δt + B_y*ΔW_2[i]
#Método de Euler Determinístico
#x[i+1] = x[i] + x[i]*(a - b*y[i])*Δt
#y[i+1] = y[i] + y[i]*(-c + d*x[i])*Δt
i+=1
end
return x,y
end
function realiza(N, Δt,tmax, a, b, c, d, ϵ1, ϵ2, x0, y0)
##Teste sobre N realizações
n = floor(Int64, tmax/Δt)
 
X = zeros(N, n) #Matrizes que armazenam valores de x para cada tempo em N realizações
Y = zeros(N, n)
mean_X = zeros(n)
mean_Y = zeros(n)
var_X = zeros(n)
var_Y = zeros(n)
 
 
i=1
while i<=N
X[i,:],Y[i,:] = simula.Lotka(Δt,tmax, a, b, c, d, ϵ1, ϵ2, x0, y0)
i+=1
end
 
i=1
while i<=n
mean_X[i] = mean(X[:, i])
mean_Y[i] = mean(Y[:, i])
var_X[i] = var(X[:,i])
var_Y[i] = var(Y[:,i])
i+=1
end
 
return mean_X, mean_Y, var_X, var_Y
end
end
 
module plotar
 
using LaTeXStrings
using Plots
using Main.simula
 
 
function mapa(N, Δt, tmax, a, b, c, d, ϵ1, ϵ2, x0, y0)
##Essa função faz o mapa de fase para cada par de condições iniciais para x0 e y0
##x0 e y0 devem ser vetores (mesmo que possuam somente um elemento), os outros todos devem ser escalares.
##O plot é feito com a colorbar indicando a passagem de tempo conforme a progessão do tempo
 
t = LinRange(0, tmax, floor(Int64, tmax/Δt))
titulo = L"$a=$"*string(a) * L"$\: , b=$"*string(b) * L"$\: , c=$"*string(c) * L"$\:, d=$"*string(d) * L"$\:, \epsilon_1=$"*string(ϵ1) * L"$\: , \epsilon_2=$"*string(ϵ2)
p=plot(title=titulo, xlabel="<X>", ylabel="<Y>", tickfontsize=11, guidefontsize=15, size=(1000,600))
i=1
while i<=length(y0)
j=1
while j<=length(x0)
x, y, var_x, var_y = simula.realiza(N, Δt, tmax, a, b, c, d, ϵ1, ϵ2, x0[j], y0[i])
legenda = L"$x_0=$"*string(x0[j])*L", $y_0=$"*string(y0[i])
plot!(x, y, linez=t, color=:thermal,label=legenda, legendfont=font(15))
j+=1
end
i+=1
end
display(p)
savefig(p,"mapa_exemplo5.png")
 
end
 
function series(N, Δt, tmax, a, b, c, d, ϵ1, ϵ2, x0, y0)
##Plota a série temporal da média/variância de X sobre N realizações
##Se quiser fazer para várias condições iniciais no mesmo gráfico fazer loop conforme mapa, mas a priori acho que não será necessário. Por isso, pego só o primeiro elemento de x0
 
x, y, var_x, var_y = simula.realiza(N, Δt, tmax, a, b, c, d, ϵ1, ϵ2, x0[1], y0[1])
 
n = floor(Int64, tmax/Δt)
t = LinRange(0, tmax, n)
 
titulo = L"$a=$"*string(a) * L"$\: , b=$"*string(b) * L"$\: , c=$"*string(c) * L"$\:, d=$"*string(d) * L"$\:, \epsilon_1=$"*string(ϵ1) * L"$\: , \epsilon_2=$"*string(ϵ2) *L"$\: ,x_0=$"*string(x0[1]) * L"$\: , y_0=$"*string(y0[1])
px = plot(t, x, ylabel="<X>", xlabel=L"t", legend=false, color=:red)
py = plot(t, y, ylabel="<Y>", xlabel=L"t", legend=false)
px_var = plot(t, var_x, ylabel="Variância de X", xlabel=L"t", legend=false, color=:red)
py_var = plot(t, var_y, ylabel="Variância de Y", xlabel=L"t", legend=false)
p = plot(px, py, px_var, py_var, layout=(2,2), tickfontsize=11, guidefontsize=15, size=(1200, 600), plot_title=titulo)
display(p)
savefig(p,"series_exemplo5.png")
 
end
 
function anima(N, Δt, tmax, a, b, c, d, ϵ1, ϵ2, x0, y0)
t = LinRange(0, tmax, floor(Int64, tmax/Δt))
titulo = L"$a=$"*string(a) * L"$\: , b=$"*string(b) * L"$\: , c=$"*string(c) * L"$\:, d=$"*string(d) * L"$\:, \epsilon_1=$"*string(ϵ1) * L"$\: , \epsilon_2=$"*string(ϵ2) *L"$\: ,x_0=$"*string(x0[1]) * L"$\: , y_0=$"*string(y0[1])
p=plot(title=titulo, xlabel="<X>", ylabel="<Y>", tickfontsize=11, guidefontsize=15, size=(1000,600))
 
x, y, var_x, var_y = simula.realiza(N, Δt, tmax, a, b, c, d, ϵ1, ϵ2, x0[1], y0[1])
i=2
anim = @animate while i<=length(t)
#legenda = L"$x_0=$"*string(x0[j])*L", $y_0=$"*string(y0[i])
titulo = L"$a=$"*string(a) * L"$\: , b=$"*string(b) * L"$\: , c=$"*string(c) * L"$\:, d=$"*string(d) * L"$\:, \epsilon_1=$"*string(ϵ1) * L"$\: , \epsilon_2=$"*string(ϵ2) *L"$\: ,x_0=$"*string(x0[1]) * L"$\: , y_0=$"*string(y0[1])
p=plot(title=titulo, xlabel="<X>", ylabel="<Y>", tickfontsize=11, guidefontsize=15, xlim=(0,200), ylim=(0,300), size=(1000,600))
plot!(x[1:i], y[1:i])
#display(p)
i+=1000
end
arquivo = "Nomedesejado.gif"
gif(anim, arquivo, fps=500)
 
end
 
 
end
 
 
function main()
 
##Condições Iniciais
#Valores escolhidos conforme exemplo de paper
a = 2.
b = 0.5
c = 0.5
d = 1.
 
Δt = 0.0001 ##Tem que ser pequeno mesmo
tmax =200
β = 1 #Fator de escala do ruído
ϵ1 = β*0.001
ϵ2 = β*0.001
 
x0 = [10]#Número de presas iniciais #equilíbrio: d/c
y0 = [100]#Número de predadores iniciais #equilibrio:a/b
 
N = 50
 
plotar.series(N, Δt, tmax, a, b, c, d, ϵ1, ϵ2, x0, y0) #Se quiser plotar série basta trocar anima por serie, por exemplo.
plotar.mapa(N, Δt, tmax, a, b, c, d, ϵ1, ϵ2, x0, y0)
end
 
main()
</source><br />
 
Uma outra versão do código, para o modelo linear de Itô, está disponível em https://github.com/Vini-BM/StochLV


=Resultados=
=Resultados=
Nesta seção, serão abordados diversos aspectos sobre o comportamento numérico dos sistemas simulados. Avalia-se qualitativamente a estabilidade e o comportamento do sistema conforme a variação dos parâmetros <math>a, \ b, \ c, \ f</math>, das condições iniciais e também da intensidade do ruído.


==Ruído externo==
==Ruído externo==
O modelo com ruído externo foi tratado apenas no sentido de Itô. As simulações foram feitas com o intuito de observar o efeito das condições iniciais e da intensidade do ruído.
===Condições iniciais===
Foram escolhidas algumas condições iniciais diferentes, com os mesmos parâmetros e ruído, a fim de observar o comportamento do sistema quanto ao ponto fixo. O espaço de fases e as séries temporais estão representados abaixo:
[[Arquivo:SLV_PhaseSpace_a2.0_b0.1_c0.25_f0.1_ex0.01_ey0.02_xo40.0_yo60.0_N50.png|800px|thumb|center|Espaço de fases para a condição inicial <math>(x^\ast,y^\ast) = (40.0,60.0)</math>]]
[[Arquivo:SLV_PhaseSpace_a2.0_b0.1_c0.25_f0.1_ex0.01_ey0.02_xo2.5_yo20.0_N50.png|800px|thumb|center|Espaço de fases para a condição inicial <math>(x^\ast,y^\ast) = (2.5,20.0)</math>]]
[[Arquivo:SLV_Stats_a2.0_b0.1_c0.25_f0.1_ex0.01_ey0.02_xo40.0_yo60.0_N50.png|800px|thumb|center|Séries temporais para a condição inicial <math>(x^\ast,y^\ast) = (40.0,60.0)</math>]] 
[[Arquivo:SLV_Stats_a2.0_b0.1_c0.25_f0.1_ex0.01_ey0.02_xo2.5_yo20.0_N50.png|800px|thumb|center|Séries temporais para a condição inicial <math>(x^\ast,y^\ast) = (2.5,20.0)</math>]] 
Desses resultados, percebe-se que o sistema estocástico não tem mais órbitas fechadas, e o ponto de equilíbrio se torna um atrator. Isso fica muito claro no primeiro mapa de fase, onde a trajetória do sistema até o ponto fixo é bastante direta e pouco ruidosa. Por outro lado, é interessante notar que o ponto de equilíbrio se torna instável, como visto nos gráficos da direita: ao começar em cima do ponto fixo, o ruído leva o sistema para uma "órbita" em torno dele. Observando as séries temporais, percebe-se que a média do sistema fica em torno do ponto de equilíbrio mas com uma variância alta, evidenciando o efeito do ruído sobre a estabilidade do sistema.
===Intensidade do ruído===
Passamos, então, ao estudo do ruído no sistema. Para tanto, fixamos os parâmetros e as condições iniciais e variamos a intensidade do ruído. Os resultados estão representados abaixo:
[[Arquivo:SLV_PhaseSpace_a1.5_b0.1_c0.25_f0.1_ex0.01_ey0.02_xo20_yo10_N50.png|800px|thumb|center|Espaço de fases para o ruído <math>\epsilon_x = 0.01, \ \epsilon_y = 0.02</math>]]
[[Arquivo:SLV_PhaseSpace_a1.5_b0.1_c0.25_f0.1_ex0.1_ey0.2_xo20_yo10_N50.png|800px|thumb|center|Espaço de fases para o ruído <math>\epsilon_x = 0.1, \ \epsilon_y = 0.2</math>]]
[[Arquivo:SLV_Stats_a1.5_b0.1_c0.25_f0.1_ex0.01_ey0.02_xo20_yo10_N50.png|800px|thumb|center|Séries temporais para o ruído <math>\epsilon_x = 0.01, \ \epsilon_y = 0.02</math>]] 
[[Arquivo:SLV_Stats_a1.5_b0.1_c0.25_f0.1_ex0.1_ey0.2_xo20_yo10_N50.png|800px|thumb|center|Séries temporais para o ruído <math>\epsilon_x = 0.1, \ \epsilon_y = 0.2</math>]]
Observamos que o sistema se comporta relativamente bem com um ruído da ordem de <math>10^{-2}</math>, de acordo com as análises feitas anteriormente. Contudo, ao aumentar o ruído por um fator de <math>10^{1}</math>, a variância do sistema alcança valores maiores por um fator de <math>10^{3}</math>. O sistema ainda parece ter sua média em torno do ponto de equilíbrio, mas a variância é tão grande que o comportamento dele quase não é ditado por esse ponto.
Outro fator importante de se ressaltar é o fato de que <math>X</math> e <math>Y</math> não podem ser negativos. O ruído, sendo um processo de Wiener, é simétrico em torno do zero, portanto o sistema poderia divergir para <math>\pm\infty</math>. Porém, devido à condição <math>X, Y \geq 0</math>, que foi imposta sobre a integração numérica, o sistema dificilmente fica equilibrado em torno de zero, pois qualquer ruído negativo será descartado. Assim, para valores pequenos do ponto de equilíbrio, a média do sistema tem um comportamento assimétrico em torno dele. Quanto aos pontos de equilíbrio, isso significa que, enquanto o ponto fixo não trivial se torna uma espécie de ciclo limite, o ponto fixo trivial <math>(0,0)</math> deixa de ser uma solução de equilíbrio.


==Ruído nos parâmetros==
==Ruído nos parâmetros==
O modelo com os parâmetros estocásticos foi analisado no sentido de Itô e no sentido de Stratonovich, conforme a dedução anterior.
===Itô===
Primeiramente realizou-se simulações variando o número de presas iniciais para um número fixo de predadores, representando o sistema em um mapa de fase da média de 50 realizações:
<center>
[[Arquivo:Mapacondiniciais.png]]
</center>
Nota-se um comportamento característico de atratores, onde o ponto fixo das equações de Lotka-Volterra determinística é o mesmo (ponto vermelho). Evidencia-se que esse ponto fixo não depende das condições iniciais.
O comportamento atrativo fica claro ao analisar a média e a variância em função do tempo:
<center>
[[Arquivo:Serie1.png|1000px]]
</center>
As amplitudes para os predadores e as presas diminuem conforme o tempo, porém nota-se que o ruído passa a se tornar mais evidente quando as amplitudes das órbitas são menores.
Com a finalidade de testar a coerência do sistema com o determinístico, integrou-se as equações para um ruído da ordem de <math>10^{-9}</math>.
<center>
[[Arquivo:Serie4.png|1000px]]
</center>
Mostrando, portanto, que o sistema estocástico se reduz ao determinístico no limite em que o ruído é muito pequeno, dado que se observam órbitas fechadas. Espera-se que a variância seja nula em um sistema determinístico, porém numericamente obteve-se oscilações que são da ordem do ruído ou menor, corroborando para a convergência do sistema estocástico ao determinístico com pequenos ruídos.
Ao realizar as simulações notou-se que o sistema é bastante sensível ao ruído, convergindo para valores bem estritos de parâmetros, ruído e condição inicial. Portanto, embora esse sistema modele uma interação entre dois níveis da cadeia alimentar, ele possui alguns graves problemas, como a fácil divergência -- devido, provavelmente, aos termos cúbicos das equações. Porém, também houve resultados interessantes como os atratores, que podem representar uma espécie de equilíbrio ecológico, onde não há extinções com o passar do tempo. Um dos problemas mais sérios com relação ao modelo é que mesmo na ausência de presas a população de predadores pode crescer indefinidamente, o que não condiz com a realidade.
As simulações realizadas variando os parâmetros trouxeram pequenas modificações no comportamento do sistema, como a alteração do período, a quantidade de órbitas bem definidas e suas amplitudes.
<center>
[[Arquivo:Serie a1.png|1000px]]
</center>
<center>
[[Arquivo:Serie a2.png|1000px]]
</center>
<center>
[[Arquivo:Serie a3.png|1000px]]
</center>
Nota-se que os períodos e as amplitudes diminuem conforme <math>a</math> aumenta. Os ruídos se tornaram mais presentes com grandes variâncias nas simulações com <math>a</math> pequeno. Outra tendência observada foi de que o regime ruidoso parece ocorrer mais tarde para valores de <math>a</math> maiores, o que provavelmente está associado ao fato de o ruído se tornar mais presente para pequenas oscilações temporais do número de presas, o que ocorre na região próxima do ponto fixo.
===Stratonovich===
Com o objetivo de comparar a influência de diferentes ruídos com mesmos parâmetros, foi realizado o gráfico com condições iniciais iguais ao exemplo de Itô.
<center>
[[Arquivo:strato_mapa_vci.png]]
</center>
Percebe-se que as órbitas se distribuem de forma menos espaçada radialmente em relação à simulação de Itô e possuem trajetórias menos ruidosas.
Em seguida, fez-se o gráfico do comportamento da média e variância das densidades populacionais. Pode-se observar que os valores médios convergem para os valores do ponto fixo e continuam variando em torno dele numa forma de batimento. A amplitude das variações da variância não se estabilizou.
<center>
[[Arquivo:strato_series_p1.png]]
</center>
No próximo teste, variou-se o valor do ruído procurando um valor máximo para a simulação não divergir. Encontrou-se o valor <math> \epsilon = 0.00046 </math>, porém os sistema pode não convergir para tempos de integração muito grandes. Observou-se que isso independe da condição inicial.
<center>
[[Arquivo:Strato_series_ruido.png]]
</center>
Por fim, a variação dos parâmetros <math>a</math>, <math>b</math>, <math>c</math> e <math> d </math> pode comprometer a convergência da simulação, como, por exemplo, para os casos de taxa de crescimento do predador muito alta. Simulou-se as equações com parâmetros distintos para evidenciar o comportamento bastante convergente do método em condições iniciais extremas:
<center>
[[Arquivo:Strato_series_convergencia.png]]
</center>
=Notas=
<references>
</references>


=Referências=
=Referências=
Linha 115: Linha 556:
# SCHERER, C. Métodos computacionais da física. 2. ed ed. São Paulo: Liv. da Física, 2010.  
# SCHERER, C. Métodos computacionais da física. 2. ed ed. São Paulo: Liv. da Física, 2010.  
# KHASMINSKII, R. Z.; KLEBANER, F. C. Long term behavior of solutions of the Lotka-Volterra system under small random perturbations. The Annals of Applied Probability, v. 11, n. 3, 1 ago. 2001.
# KHASMINSKII, R. Z.; KLEBANER, F. C. Long term behavior of solutions of the Lotka-Volterra system under small random perturbations. The Annals of Applied Probability, v. 11, n. 3, 1 ago. 2001.
# KOERS, L. Geometric integration of stochastic Lotka-Volterra equations. BSc Thesis Applied Mathematics, 8 ago. 2024.

Edição atual tal como às 15h26min de 27 de agosto de 2024

Grupo: André Luis Della Valentina, Lucas dos Santos Assmann, Vinícius Bayne Müller

Introdução

O modelo de Lotka-Volterra foi desenvolvido originalmente na década de 1920, de maneira independente por Vito Volterra e Alfred Lotka, e é utilizado para descrever a dinâmica de populações com relações de predatismo. Em sua forma mais simples, as equações de Lotka-Volterra podem ser escritas como

onde e denotam, respectivamente, a densidade populacional de presas e de predadores, e , , e são constantes positivas.

Pode-se interpretar os parâmetros da seguinte maneira:

  • : taxa de crescimento livre da presa;
  • : taxa de predação;
  • : taxa de mortalidade livre do predador;
  • : taxa de crescimento do predador devido à predação. [1]

É interessante notar que o sistema apresenta um ponto fixo não trivial em . Pode-se mostrar também que as demais soluções (além da trivial) são órbitas fechadas no espaço de fase.

Nesse modelo simples, não há competição entre indivíduos de uma mesma espécie e não há limite ecológico para o sustento das populações; ou seja, a população de presas cresce exponencialmente na ausência de predadores. A fim de tornar esse modelo mais realista, pretendemos estudar versões estocásticas do mesmo, que podem ser construídas de diferentes maneiras, e analisar o efeito do ruído sobre o comportamento dinâmico.

Modelo estocástico

Buscamos construir um modelo estocástico de Lotka-Volterra utilizando um processo de Wiener; contudo, a adição de ruído branco nas equações diferenciais pode ser feita de várias maneiras. Consideraremos, aqui, duas delas: ruído adicionado nos parâmetros e ruído externo ao sistema.

Ruído externo

Como primeiro modelo, simplesmente adicionaremos um ruído externo nas equações diferenciais. Esse ruído pode ser interpretado como fatores ambientais independentes das populações, causando tanto benefícios (abundância de alimento, condições climáticas favoráveis para reprodução etc.) como prejuízos (escassez, condições climáticas desfavoráveis etc.). Como as equações tratam de densidades populacionais, devemos utilizar um ruído _multiplicativo_, pois os efeitos dos fatores externos sentidos pelas populações devem ser proporcionais ao tamanho dela. Assim, escrevemos o modelo como

onde os são os ruídos brancos de cada variável, e , a intensidade dos mesmos.


Itô

Executando um processo análogo ao realizado na seção seguinte obtém-se as equações diferenciais estocásticas no sentido de Itô:

Observa-se que, além de um incremento de Wiener proporcional a e , obtém-se parâmetros determinísticos "efetivos" e .


Ruído nos parâmetros

Uma outra maneira de explorar o ruído nas equações de Lotka-Volterra é substituir os parâmetros determinísticos do modelo por parâmetros estocásticos. Analisaremos esse modelo proposto no sentido de Itô e no sentido de Stratonovich.

Itô

Para este caso, colocaremos o ruído de tal maneira que e , onde e são constantes e é o ruído branco definido pelo processo de Wiener. Esse novo modelo descreveria um sistema com populações em níveis vizinhos da cadeia alimentar, abrangendo uma biodiversidade representada por parâmetros efetivos estocásticos nas taxas e , proporcional ao número de presas e predadores. Ou seja, há uma diversidade de taxas de reprodutibilidade das presas e mortalidades dos predadores, o que representaria diferentes populações de diferentes espécies.

A nova equação diferencial é dada, então, por:


Seja , , e . Integra-se essa equação em ambos os lados de tal forma que:

A parte determinista é integrada trivialmente, porém para integrar o segundo termo das equações é necessário aproximar no intervalo , e o mesmo para . Expande-se em série de Taylor, conforme o cálculo de Itô, e então obtém-se as equações diferenciais estocásticas ao tomar o limite :

Ao integrá-las de a obtém-se o método numérico utilizado para fazer as simulações computacionais. Nota-se que a integral dos segundos termos são aproximadas para no intervalo . Então, é utilizado o método de Heun para integrar a parte determinística da equação, obtendo portanto o seguinte método:

onde

O índice representa o passo na iteração do método.

Stratonovich

O ruído também pode ser adicionado nos parâmetros e , de forma que e , onde o ruído segue a forma de Stratonovich. Essa mudança pode ser interpretada como a predação de diferentes predadores sobre uma mesma presa, considerando que não há competição entre as diferentes espécies. Esse ruído também pode ser pensado como uma variação do efeito da caça de um mesmo predador, ocasionado, por exemplo, a um certo número de presas escaparem à caça.

Dessa forma, a dinâmica populacional se comporta como:


onde é um ruído branco e . Considerando que denota a integral de Stratonovich e um escalar oriundo de processos de Wiener independentes, utiliza-se para aplicação no método numérico a seguinte equação diferencial estocástica:

Utilizando o método de Heun tem-se:

onde

Código

A estrutura do código foi a mesma para os três casos considerados, mudando apenas os detalhes da equação diferencial utilizada. A integração numérica da parte determinística foi feita pelo Método de Heun. Todas as análises foram realizadas a partir de um número N de realizações independentes, de onde se calcula a média e a variância para cada passo de tempo destas realizações. Assim, pode-se analisar as tendências do sistema de maneira estatística.


using LaTeXStrings
using Plots
using Random
using Statistics


module model
	function Lotka_Q_Ito(x,y,a,b,c,d,ϵ1,ϵ2,Δt) #Modelo Quadrático (Lucas)

		#Parte determinista da equação (Sem o ΔW)
		A_x = x*(a - b*y + (ϵ1^2)*x^2) 
		A_y = y*(-c + d*x + (ϵ2^2)*y^2)
		#Parte Estocástica
		B_x = ϵ1*x^2
		B_y = -ϵ2*y^2

		return A_x, A_y, B_x, B_y
	end
	function Lotka_Ito(x,y,a,b,c,d,ϵ1,ϵ2,Δt) #Modelo Linear Ito (Vini)
		#Parte determinista
		A_x = x*(a - b*y + (ϵ1^2)/2) 
		A_y = y*(-c + d*x + (ϵ2^2)/2)
		#Parte Estocástica
		B_x = ϵ1*x
		B_y = ϵ2*y
		return A_x, A_y, B_x, B_y
	end
	
	function Lotka_Strato_I(x,y,a,b,c,d,ϵ1,ϵ2,Δt) #Modelo Linear Stratonovich (André)
		#Parte determinista
		A_x = x*(a - b*y)
		A_y = y*(-c+d*x)
		#Parte Estocástica
		B_x = -ϵ1*x*y
		B_y = ϵ2*y*x
		return A_x, A_y, B_x, B_y
	end	
	
end

module simula

using LaTeXStrings
using Plots
using Random
using Statistics
using Main.model

	function Lotka(Δt, tmax, a, b, c, d, ϵ1, ϵ2, x0, y0)

		n = floor(Int64, tmax/Δt) #Tamanho dos meus vetores
		rng = MersenneTwister() ##Chave para gerar números aleatórios
		ΔW_1 = sqrt(Δt)*randn(rng, n)
		ΔW_2 = sqrt(Δt)*randn(rng, n)
		
		x = zeros(n)
		y = zeros(n)
		x[1] = x0
		y[1] = y0
		
		i=1
		while i<n
			##Método de Heun (Runge Kutta 2)
			#Caso queira mudar o modelo utilizado, basta trocar o Lotka_Q_Ito pelo respectivo nas duas chamadas.

			k1_x, k1_y, B_x, B_y = model.Lotka_Ito(x[i],y[i],a,b,c,d,ϵ1,ϵ2, Δt)
			x_aux = x[i] + k1_x*Δt
			y_aux = y[i] + k1_y*Δt
			k2_x, k2_y = model.Lotka_Q_Ito(x_aux,y_aux,a,b,c,d,ϵ1,ϵ2, Δt)

			x[i+1] = x[i] +(k1_x + k2_x)*0.5*Δt + B_x*ΔW_1[i]
			y[i+1] = y[i] + (k1_y + k2_y)*0.5*Δt + B_y*ΔW_2[i]
			
			##Método de Heun (Stratonovich)
			#k1_x, k1_y, B_x, B_y = model.Lotka_Strato_I(x[i],y[i],a,b,c,d,ϵ1,ϵ2, Δt)
			#x_aux = x[i] + k1_x*sqrt(Δt) + B_x*ΔW_1[i]
			#y_aux = y[i] + k1_y*sqrt(Δt) + B_y*ΔW_2[i]
			#k2_x, k2_y, ka_x, ka_y = model.Lotka_Strato_I(x_aux,y_aux,a,b,c,d,ϵ1,ϵ2, Δt)

			#x[i+1] = x[i] +(k1_x + k2_x)*0.5*Δt + 0.5*(B_x+ka_x)*ΔW_1[i]
			#y[i+1] = y[i] + (k1_y + k2_y)*0.5*Δt + 0.5*(B_y+ka_y)*ΔW_2[i]
			
			if x[i+1]<0
				x[i+1]=0
			end
			if y[i+1]<0
				y[i+1]=0
			end

			##Método de Euler
			#x[i+1] = x[i] + k1_x*Δt + B_x*ΔW_1[i]
			#y[i+1] = y[i] + k1_y*Δt + B_y*ΔW_2[i]
			
			#Método de Euler Determinístico
			#x[i+1] = x[i] + x[i]*(a - b*y[i])*Δt 
			#y[i+1] = y[i] + y[i]*(-c + d*x[i])*Δt 
			
		i+=1
		end
		return x,y
	end
		
	function realiza(N, Δt,tmax, a, b, c, d, ϵ1, ϵ2, x0, y0)
		##Teste sobre N realizações
		n = floor(Int64, tmax/Δt)

		X = zeros(N, n) #Matrizes que armazenam valores de x para cada tempo em N realizações
		Y = zeros(N, n)
		mean_X = zeros(n)
		mean_Y = zeros(n)
		var_X = zeros(n)
		var_Y = zeros(n)


		i=1
		while i<=N
			X[i,:],Y[i,:] = simula.Lotka(Δt,tmax, a, b, c, d, ϵ1, ϵ2, x0, y0)
			i+=1
		end

		i=1
		while i<=n
			mean_X[i] = mean(X[:, i])
			mean_Y[i] = mean(Y[:, i])
			var_X[i] = var(X[:,i])
			var_Y[i] = var(Y[:,i])
			i+=1
		end

		return mean_X, mean_Y, var_X, var_Y
	end
end

module plotar

using LaTeXStrings
using Plots
using Main.simula


	function mapa(N, Δt, tmax, a, b, c, d, ϵ1, ϵ2, x0, y0)
		##Essa função faz o mapa de fase para cada par de condições iniciais para x0 e y0
		##x0 e y0 devem ser vetores (mesmo que possuam somente um elemento), os outros todos devem ser escalares.
		##O plot é feito com a colorbar indicando a passagem de tempo conforme a progessão do tempo

		t = LinRange(0, tmax, floor(Int64, tmax/Δt))
		titulo = L"$a=$"*string(a) * L"$\: , b=$"*string(b) * L"$\: , c=$"*string(c) * L"$\:, d=$"*string(d) * L"$\:, \epsilon_1=$"*string(ϵ1) * L"$\: , \epsilon_2=$"*string(ϵ2)
		p=plot(title=titulo, xlabel="<X>", ylabel="<Y>", tickfontsize=11, guidefontsize=15, size=(1000,600))
		
		i=1
		while i<=length(y0)
			j=1
			while j<=length(x0)
				x, y, var_x, var_y = simula.realiza(N, Δt, tmax, a, b, c, d, ϵ1, ϵ2, x0[j], y0[i])
				legenda = L"$x_0=$"*string(x0[j])*L", $y_0=$"*string(y0[i])
				plot!(x, y, linez=t, color=:thermal,label=legenda, legendfont=font(15))
				j+=1
			end
			i+=1
		end
		display(p)
		savefig(p,"mapa_exemplo5.png")

	end

	function series(N, Δt, tmax, a, b, c, d, ϵ1, ϵ2, x0, y0)
		##Plota a série temporal da média/variância de X sobre N realizações
		##Se quiser fazer para várias condições iniciais no mesmo gráfico fazer loop conforme mapa, mas a priori acho que não será necessário. Por isso, pego só o primeiro elemento de x0

		x, y, var_x, var_y = simula.realiza(N, Δt, tmax, a, b, c, d, ϵ1, ϵ2, x0[1], y0[1])

		n = floor(Int64, tmax/Δt)
		t = LinRange(0, tmax, n)

		titulo = L"$a=$"*string(a) * L"$\: , b=$"*string(b) * L"$\: , c=$"*string(c) * L"$\:, d=$"*string(d) * L"$\:, \epsilon_1=$"*string(ϵ1) * L"$\: , \epsilon_2=$"*string(ϵ2) *L"$\: ,x_0=$"*string(x0[1]) * L"$\: , y_0=$"*string(y0[1])
		
		px = plot(t, x, ylabel="<X>", xlabel=L"t", legend=false, color=:red)
		py = plot(t, y, ylabel="<Y>", xlabel=L"t", legend=false)
		px_var = plot(t, var_x, ylabel="Variância de X", xlabel=L"t", legend=false, color=:red)
		py_var = plot(t, var_y, ylabel="Variância de Y", xlabel=L"t", legend=false)
		
		p = plot(px, py, px_var, py_var, layout=(2,2), tickfontsize=11, guidefontsize=15, size=(1200, 600), plot_title=titulo)
		display(p)
		savefig(p,"series_exemplo5.png")

	end

	function anima(N, Δt, tmax, a, b, c, d, ϵ1, ϵ2, x0, y0)
		t = LinRange(0, tmax, floor(Int64, tmax/Δt))
		titulo = L"$a=$"*string(a) * L"$\: , b=$"*string(b) * L"$\: , c=$"*string(c) * L"$\:, d=$"*string(d) * L"$\:, \epsilon_1=$"*string(ϵ1) * L"$\: , \epsilon_2=$"*string(ϵ2) *L"$\: ,x_0=$"*string(x0[1]) * L"$\: , y_0=$"*string(y0[1])
		p=plot(title=titulo, xlabel="<X>", ylabel="<Y>", tickfontsize=11, guidefontsize=15, size=(1000,600))
		

		x, y, var_x, var_y = simula.realiza(N, Δt, tmax, a, b, c, d, ϵ1, ϵ2, x0[1], y0[1])
		i=2
		anim = @animate while i<=length(t)
			#legenda = L"$x_0=$"*string(x0[j])*L", $y_0=$"*string(y0[i])
			titulo = L"$a=$"*string(a) * L"$\: , b=$"*string(b) * L"$\: , c=$"*string(c) * L"$\:, d=$"*string(d) * L"$\:, \epsilon_1=$"*string(ϵ1) * L"$\: , \epsilon_2=$"*string(ϵ2) *L"$\: ,x_0=$"*string(x0[1]) * L"$\: , y_0=$"*string(y0[1])
			p=plot(title=titulo, xlabel="<X>", ylabel="<Y>", tickfontsize=11, guidefontsize=15, xlim=(0,200), ylim=(0,300), size=(1000,600))
			plot!(x[1:i], y[1:i])
			#display(p)
			i+=1000
		end
		
		arquivo = "Nomedesejado.gif"
		gif(anim, arquivo, fps=500)

	end


end


function main() 

	##Condições Iniciais
	#Valores escolhidos conforme exemplo de paper
	a = 2.
	b = 0.5
	c = 0.5
	d = 1.

	Δt = 0.0001 ##Tem que ser pequeno mesmo
	tmax =200
	β = 1 #Fator de escala do ruído
	ϵ1 = β*0.001
	ϵ2 = β*0.001
	

	x0 = [10]#Número de presas iniciais	#equilíbrio: d/c
	y0 = [100]#Número de predadores iniciais	#equilibrio:a/b

	N = 50

	plotar.series(N, Δt, tmax, a, b, c, d, ϵ1, ϵ2, x0, y0) #Se quiser plotar série basta trocar anima por serie, por exemplo.
	plotar.mapa(N, Δt, tmax, a, b, c, d, ϵ1, ϵ2, x0, y0)
end

main()


Uma outra versão do código, para o modelo linear de Itô, está disponível em https://github.com/Vini-BM/StochLV

Resultados

Nesta seção, serão abordados diversos aspectos sobre o comportamento numérico dos sistemas simulados. Avalia-se qualitativamente a estabilidade e o comportamento do sistema conforme a variação dos parâmetros , das condições iniciais e também da intensidade do ruído.

Ruído externo

O modelo com ruído externo foi tratado apenas no sentido de Itô. As simulações foram feitas com o intuito de observar o efeito das condições iniciais e da intensidade do ruído.

Condições iniciais

Foram escolhidas algumas condições iniciais diferentes, com os mesmos parâmetros e ruído, a fim de observar o comportamento do sistema quanto ao ponto fixo. O espaço de fases e as séries temporais estão representados abaixo:


Espaço de fases para a condição inicial
Espaço de fases para a condição inicial


Séries temporais para a condição inicial
Séries temporais para a condição inicial


Desses resultados, percebe-se que o sistema estocástico não tem mais órbitas fechadas, e o ponto de equilíbrio se torna um atrator. Isso fica muito claro no primeiro mapa de fase, onde a trajetória do sistema até o ponto fixo é bastante direta e pouco ruidosa. Por outro lado, é interessante notar que o ponto de equilíbrio se torna instável, como visto nos gráficos da direita: ao começar em cima do ponto fixo, o ruído leva o sistema para uma "órbita" em torno dele. Observando as séries temporais, percebe-se que a média do sistema fica em torno do ponto de equilíbrio mas com uma variância alta, evidenciando o efeito do ruído sobre a estabilidade do sistema.


Intensidade do ruído

Passamos, então, ao estudo do ruído no sistema. Para tanto, fixamos os parâmetros e as condições iniciais e variamos a intensidade do ruído. Os resultados estão representados abaixo:

Espaço de fases para o ruído
Espaço de fases para o ruído


Séries temporais para o ruído
Séries temporais para o ruído


Observamos que o sistema se comporta relativamente bem com um ruído da ordem de , de acordo com as análises feitas anteriormente. Contudo, ao aumentar o ruído por um fator de , a variância do sistema alcança valores maiores por um fator de . O sistema ainda parece ter sua média em torno do ponto de equilíbrio, mas a variância é tão grande que o comportamento dele quase não é ditado por esse ponto.

Outro fator importante de se ressaltar é o fato de que e não podem ser negativos. O ruído, sendo um processo de Wiener, é simétrico em torno do zero, portanto o sistema poderia divergir para . Porém, devido à condição , que foi imposta sobre a integração numérica, o sistema dificilmente fica equilibrado em torno de zero, pois qualquer ruído negativo será descartado. Assim, para valores pequenos do ponto de equilíbrio, a média do sistema tem um comportamento assimétrico em torno dele. Quanto aos pontos de equilíbrio, isso significa que, enquanto o ponto fixo não trivial se torna uma espécie de ciclo limite, o ponto fixo trivial deixa de ser uma solução de equilíbrio.

Ruído nos parâmetros

O modelo com os parâmetros estocásticos foi analisado no sentido de Itô e no sentido de Stratonovich, conforme a dedução anterior.

Itô

Primeiramente realizou-se simulações variando o número de presas iniciais para um número fixo de predadores, representando o sistema em um mapa de fase da média de 50 realizações:

Mapacondiniciais.png


Nota-se um comportamento característico de atratores, onde o ponto fixo das equações de Lotka-Volterra determinística é o mesmo (ponto vermelho). Evidencia-se que esse ponto fixo não depende das condições iniciais.

O comportamento atrativo fica claro ao analisar a média e a variância em função do tempo:

Serie1.png

As amplitudes para os predadores e as presas diminuem conforme o tempo, porém nota-se que o ruído passa a se tornar mais evidente quando as amplitudes das órbitas são menores.

Com a finalidade de testar a coerência do sistema com o determinístico, integrou-se as equações para um ruído da ordem de .

Serie4.png

Mostrando, portanto, que o sistema estocástico se reduz ao determinístico no limite em que o ruído é muito pequeno, dado que se observam órbitas fechadas. Espera-se que a variância seja nula em um sistema determinístico, porém numericamente obteve-se oscilações que são da ordem do ruído ou menor, corroborando para a convergência do sistema estocástico ao determinístico com pequenos ruídos.

Ao realizar as simulações notou-se que o sistema é bastante sensível ao ruído, convergindo para valores bem estritos de parâmetros, ruído e condição inicial. Portanto, embora esse sistema modele uma interação entre dois níveis da cadeia alimentar, ele possui alguns graves problemas, como a fácil divergência -- devido, provavelmente, aos termos cúbicos das equações. Porém, também houve resultados interessantes como os atratores, que podem representar uma espécie de equilíbrio ecológico, onde não há extinções com o passar do tempo. Um dos problemas mais sérios com relação ao modelo é que mesmo na ausência de presas a população de predadores pode crescer indefinidamente, o que não condiz com a realidade.

As simulações realizadas variando os parâmetros trouxeram pequenas modificações no comportamento do sistema, como a alteração do período, a quantidade de órbitas bem definidas e suas amplitudes.


Serie a1.png

Serie a2.png

Serie a3.png

Nota-se que os períodos e as amplitudes diminuem conforme aumenta. Os ruídos se tornaram mais presentes com grandes variâncias nas simulações com pequeno. Outra tendência observada foi de que o regime ruidoso parece ocorrer mais tarde para valores de maiores, o que provavelmente está associado ao fato de o ruído se tornar mais presente para pequenas oscilações temporais do número de presas, o que ocorre na região próxima do ponto fixo.

Stratonovich

Com o objetivo de comparar a influência de diferentes ruídos com mesmos parâmetros, foi realizado o gráfico com condições iniciais iguais ao exemplo de Itô.

Strato mapa vci.png

Percebe-se que as órbitas se distribuem de forma menos espaçada radialmente em relação à simulação de Itô e possuem trajetórias menos ruidosas.

Em seguida, fez-se o gráfico do comportamento da média e variância das densidades populacionais. Pode-se observar que os valores médios convergem para os valores do ponto fixo e continuam variando em torno dele numa forma de batimento. A amplitude das variações da variância não se estabilizou.

Strato series p1.png

No próximo teste, variou-se o valor do ruído procurando um valor máximo para a simulação não divergir. Encontrou-se o valor , porém os sistema pode não convergir para tempos de integração muito grandes. Observou-se que isso independe da condição inicial.

Strato series ruido.png

Por fim, a variação dos parâmetros , , e pode comprometer a convergência da simulação, como, por exemplo, para os casos de taxa de crescimento do predador muito alta. Simulou-se as equações com parâmetros distintos para evidenciar o comportamento bastante convergente do método em condições iniciais extremas:

Strato series convergencia.png

Notas

  1. Nos gráficos e no código que seguem, é identificado como , mas aqui optou-se por usar para não confundir com um diferencial.


Referências

  1. BRAUER, F.; CASTILLO-CHAVEZ, C. Mathematical Models in Population Biology and Epidemiology. New York, NY: Springer New York, 2012. v. 40
  2. COELHO, P. J. de O. Equações de Lotka–Volterra Estocásticas: Simulações com o Matlab. 25 de junho de 2015. Disponível em https://www.academia.edu/52185574/Sistema_de_competi%C3%A7%C3%A3o_Lotka_Volterra_sob_ru%C3%ADdo_branco. Acesso em ago. 2024.
  3. SCHERER, C. Métodos computacionais da física. 2. ed ed. São Paulo: Liv. da Física, 2010.
  4. KHASMINSKII, R. Z.; KLEBANER, F. C. Long term behavior of solutions of the Lotka-Volterra system under small random perturbations. The Annals of Applied Probability, v. 11, n. 3, 1 ago. 2001.
  5. KOERS, L. Geometric integration of stochastic Lotka-Volterra equations. BSc Thesis Applied Mathematics, 8 ago. 2024.