Run Code
|
API
|
Code Wall
|
Users
|
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
Please
log in
to post a comment.
PUP LDA
Ex21-01-21
Predict the prices
Linear regression Model [The spring constant]
College
31-08-2020-Exemplo AjusteNaoL
SAMPLING
stats and fats survey histograms
Gab1A(resumido)
automat komorkowy
Please log in to post a comment.