New in Wolfram Mathematica 7: Built-in Image Processing & Analysis  previous | next 
Use Iterative Nonlinear Filtering
This computes the root median of a grayscale image.
In[1]:=

Click for copyable input
Out[1]=