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"]}
{RJSP2[400,"CherryTones"],RJSP2[400,"BrightBands"]}
No comments:
Post a Comment