R source:

set.seed(272803)
a0 <- 0.2
a1 <- 0.7
N <- 800
e <- rnorm(N)
s <- rep(0,N)
x <- rep(0,N)
for (t in 2:N) {
  s[t] = sqrt(a0 + a1*x[t-1]^2)
  x[t] = s[t]*e[t]
}

svg()
t <- 501:800
plot(1:300, x[t], type="l", xlab="t", col="grey")
points(1:300, x[t], col="red", pch=20)
dev.off()

Ben, bu işin telif sahibi, burada işi aşağıdaki lisans altında yayımlıyorum:

Bu dosya, Creative Commons Atıf-Benzer Paylaşım 3.0 Taşınmamış lisansı ile lisanslanmıştır

Şu seçeneklerde özgürsünüz:

• paylaşım – eser paylaşımı, dağıtımı ve iletimi
• içeriği değiştirip uyarlama – eser adaptasyonu

Aşağıdaki koşullar geçerli olacaktır:

• atıf – Esere yazar veya lisans sahibi tarafından belirtilen (ancak sizi ya da eseri kullanımınızı desteklediklerini ileri sürmeyecek bir) şekilde atıfta bulunmalısınız.
• benzer paylaşım – Maddeyi yeniden düzenler, dönüştürür veya inşa ederseniz, katkılarınızı özgünüyle aynı veya uyumlu lisans altında dağıtmanız gerekir.

https://creativecommons.org/licenses/by-sa/3.0CC BY-SA 3.0 Creative Commons Attribution-Share Alike 3.0 truetrue