File: Mandelbrot.R

package info (click to toggle)
r-cran-animation 2.7%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 1,268 kB
  • sloc: javascript: 873; sh: 15; makefile: 2
file content (21 lines) | stat: -rw-r--r-- 524 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
local({
  jet.colors = colorRampPalette(c(
    '#00007F', 'blue', '#007FFF', 'cyan', '#7FFF7F', 'yellow', '#FF7F00', 'red',
    '#7F0000'))
  m = 400
  C = complex(real = rep(seq(-1.8, 0.6, length.out = m), each = m), 
              imag = rep(seq(-1.2, 1.2, length.out = m), m))
  C = matrix(C, m, m)
  Z = 0
  X = array(0, c(m, m, 20))
  for (k in 1:20) {
    Z = Z^2 + C
    X[, , k] = exp(-abs(Z))
  }
  par(mar = rep(0, 4), ann = FALSE)
  for (k in 1:20) {
    dev.hold()
    image(X[, , k])
    ani.pause(0.01)
  }
})