Digital Image Processing package is loaded.
In[52]:=
A sample image file is loaded by ImageRead[ ] function. ImageData object is returned.
In[53]:=
![i = ImageRead[$ImageDataDirectory <> "beans.tif"]](../HTMLFiles/index_216.gif){kind=small}
The data is shown.
In[54]:=
![Show[Graphics[i]]](../HTMLFiles/index_220.gif){kind=small}
Digital Image Processing package has many image filtering functions. Some of them is used.
In[55]:=
![TryFilters[data_] := Show[GraphicsArray[Graphics /@ { data, DiscreteConvolve[data, BoxFilter[ ... 15, 7], Centered -> True], DiscreteConvolve[data, LoGFilter[15, 15], Centered -> True] }]]](../HTMLFiles/index_221.gif)
In[56]:=
![TryFilters[i]](../HTMLFiles/index_225.gif){kind=small}
Converted by Mathematica (July 17, 2003)