Wolfram Cloud Document

In[]:=

Image[Table[1-CenterArray[{1,1,1},30],30]]

Out[]=

In[]:=

NestList[Sharpen[Blur[#]]&,Image[Table[1-CenterArray[{1,1,1},30],30]],50]

Out[]=



,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,



In[]:=

ListLinePlot[First[ImageData[#]]&/@%185,PlotRange->All]

Out[]=

In[]:=

ListLinePlot[First[ImageData[#]]&/@Take[%185,5],PlotRange->All]

Out[]=

In[]:=

NestList[Sharpen[Blur[#]]&,Image[Table[1-CenterArray[Table[1,8],100],30]],50]

Out[]=



,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,



In[]:=

NestList[Sharpen[Blur[#]]&,Image[Table[1-CenterArray[Table[1,20],100],30]],50]

Out[]=



,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

,

