Atividade 2 da disciplina Simulação

Objetivo Principal

• Analisar o comportamento de uma sequência correlacionada.

Objetivos Específicos

1. Seja x um vetor de tamanho 1000;
2. Seja e um vetor de tamanho 1000 com distribuição Normal(0,1);
3. Estudar o comportamento da sequência (1)
4. Plotar diagrama de Poincaré (x[n+1] vs x[n])

\[(1) \ \ x_{(n+1)} = x_{(n)}^2 + e.\]

x <- rep(NA, 1000)

e = rnorm(1000,0,1)

x[1] <- e[1]

 for (n in 1:999) {
  x[n+1] = x[n]^2%%100 + e[n+1] 
 }

plot(x[-1000], x[-1], col = rainbow(16))