% sphere.m % erode and dilate with spherical structuring elements % I think can use % ORDFILT2 'unfinished !' % spherical erode result = ordfilt2( source_image, 1, circle(r), sphere(r) ); % end sphere.m