Nothing
MandelIterate <-
function(z_0) {
#
# Return number of iterations before
# the value escapes to infinity
#
#
i <- 1
z <- 0
ins <- 1
while(i < 51) {
i <- i+1
z <- z*z + z_0
if(abs(z) > 2 ) { ins <- i; break; }
}
return(ins);
}
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.