WOLFRAM NOTEBOOK

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[]=
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
Wolfram Cloud

You are using a browser not supported by the Wolfram Cloud

Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.


I understand and wish to continue anyway »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.