Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Mandelbrot 2
n<-175 x<-9*ppoints(n)/4-1.75 y<-2*ppoints(n)-1 comb<-function(x,y) complex(real=x,imaginary=y) i<-comb(0,1) z<-outer(x,y,comb) c<-z h<-matrix(rep(2,n^2),n,n) count<-h for (k in 1:30) { z[Mod(z)<=2]<-z[Mod(z)<=2]^2+c[Mod(z)<=2]; count[Mod(z)<=2]<-count[Mod(z)<=2]+1 } z[Mod(z)<=2]<-h[Mod(z)<=2] image(x,y,count-log(log(Mod(z))/log(2)),col=c(rainbow(10),'black'))
run
|
edit
|
history
|
help
0
Call option formula for Laplace distributed outcomes
Chapter 1:Hiring Discrimination
Grad-sistemab
Mathematical operations 1
Scatterplot using Ggplot Sample
absolute.R
Ex15-12
Julia set variant 2
sinimona
Chapter 5: Sample from N(0,1)