Nothing
vmandelbrot <- function(av, b0, lim) {
mandelbrot <- function(a0) {
a <- a0; b <- b0
a2 <- a * a
b2 <- b * b
n <- 0
while (a2 + b2 < 4 && n < lim) {
b <- 2 * a * b + b0
a <- a2 - b2 + a0
a2 <- a * a
b2 <- b * b
n <- n + 1
}
n
}
unlist(lapply(av, mandelbrot))
}
x <- seq(-2.0, 0.6, length.out=240)
y <- seq(-1.3, 1.3, length.out=240)
m <- 100
library(nws)
s <- sleigh()
opts <- list(chunkSize=10, loadFactor=4)
z <- eachElem(s, vmandelbrot, list(b0=y), list(av=x, lim=m), eo=opts)
z <- do.call(cbind, z)
if (dev.cur() == 1) get(getOption("device"))()
image(x, y, z, col=c(rainbow(m), '#000000'))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.