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
19-08-2020-JacobiSistemaEuler
confidence interval stuff
Numbers game from British game show Countdown
EulerEx2
26-08-2020Teste
jcruet_bi variate regression model
Correlation
Sqrt - Bisection
ModeloSirdItaly-17-02-2021
Linear regression wall