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.
Sequence position finder2
21-09-2020Intpoli
Distribucion binominal matematica discreta r
Stock Data - Basics
Ass2 q2
print name and age
05-08-2020-Resolução-equaçao
Chev-nodes
2
Sample R program of all basic functions
Please log in to post a comment.