region[n_]:=Apply[Xor,
Table[(x-.5 Cos[m 2Pi/n])^2+(y-.5Sin[m 2Pi/n])^2<.1,
{m,0,n-1}]];
RegionPlot[region[12],{x,-1,1},{y,-1,1},
PlotPoints->100,ColorFunction->Function[{x,y},
ColorData["BrightBands"][(x^2+y^2)/2^.5]]]
RegionPlot[Abs[Nest[(#^7+x+I y) &,x+I y,8]]<8,
{x,-1.2,1.2},{y,-1.2,1.2},PlotPoints->200,
PlotStyle->Texture[ExampleData[{"ColorTexture",
ExampleData["ColorTexture"][[11,2]]}]]]
No comments:
Post a Comment