Saturday, December 14, 2019

JuliaSetPlot Examples 2


RJSP2[s_,col_]:=Module[{a,n},a=.1*Random[];n=RandomInteger[{10,15}] ;
JuliaSetPlot[z^2/(z^n-.5-a),z,ImageSize->s,
ColorFunction->col,PlotLabel->{a,n}]];
{RJSP2[400,"CherryTones"],RJSP2[400,"BrightBands"]}


No comments:

Post a Comment