数字图像处理matlab版m文件

《冈萨雷斯数字图像处理matlab版》源码

function f = adpmedian（g Smax）
%ADPMEDIAN Perform adaptive median filtering.
%   F = ADPMEDIAN（G SMAX） performs adaptive median filtering of
%   image G.  The median filter starts at size 3-by-3 and iterates up
%   to size SMAX-by-SMAX. SMAX must be an odd integer greater than 1.

%   Copyright 2002-2004 R. C. Gonzalez R. E. Woods & S. L. Eddins
%   Digital Image Processing Using MATLAB Prentice-Hall 2004
%   $Revision: 1.5 $  $Date: 2003/11/21 14:19:05 $

% SMAX must be an odd positive integer greater than 1.
if （Smax <= 1） | （Smax/2 == round（Smax/2）） | （Smax ~= round（Smax））
   error（‘SMAX must be an odd integer > 1.‘）
end
[M N] = size（g）;

% Initial setup.
f = g;
f（:） = 0;
alreadyProcessed = false（size（g））;

% Begin filtering.
for k = 3:2:Smax
   zmin = ordfilt2（g 1 ones（k k） ‘symmetric‘）;
   zmax = ordfilt2（g k * k ones（k k） ‘symmetric‘）;
   zmed = medfilt2（g [k k] ‘symmetric‘）;
   
   processUsingLevelB = （zmed > zmin） & （zmax > zmed） & ...
       ~alreadyProcessed; 
   zB = （g > zmin） & （zmax > g）;
   outputZxy  = processUsingLevelB & zB;
   outputZmed = processUsingLevelB & ~zB;
   f（outputZxy） = g（outputZxy）;
   f（outputZmed） = zmed（outputZmed）;
   
   alreadyProcessed = alreadyProcessed | processUsingLevelB;
   if all（alreadyProcessed（:））
      break;
   end
end

% Output zmed for any remaining unprocessed pixels. Note that this
% zmed was computed using a window of size Smax-by-Smax which is
% the final value of k in the loop.
f（~alreadyProcessed） = zmed（~alreadyProcessed）;

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       1572  2004-12-16 13:36  DIPUM Toolbax V1.1.3\adpmedian.m

     文件        651  2004-12-16 13:36  DIPUM Toolbax V1.1.3\average.m

     文件       3034  2004-12-16 13:36  DIPUM Toolbax V1.1.3\bayesgauss.m

     文件       3063  2004-12-16 13:36  DIPUM Toolbax V1.1.3\bound2eight.m

     文件       2477  2004-12-16 13:36  DIPUM Toolbax V1.1.3\bound2four.m

     文件       2224  2004-12-16 13:36  DIPUM Toolbax V1.1.3\bound2im.m

     文件       5776  2004-12-16 13:36  DIPUM Toolbax V1.1.3\boundaries.m

     文件       3966  2004-12-16 13:36  DIPUM Toolbax V1.1.3\bsubsamp.m

     文件        592  2004-12-16 13:36  DIPUM Toolbax V1.1.3\changeclass.m

     文件       2353  2004-12-16 13:36  DIPUM Toolbax V1.1.3\colorgrad.m

     文件       2428  2004-12-16 13:36  DIPUM Toolbax V1.1.3\colorseg.m

     文件       1177  2004-12-16 13:36  DIPUM Toolbax V1.1.3\compare.m

     文件       1040  2004-12-16 13:36  DIPUM Toolbax V1.1.3\connectpoly.m

     文件       6128  2004-12-16 13:36  DIPUM Toolbax V1.1.3\Contents.m

     文件        799  2004-12-16 13:36  DIPUM Toolbax V1.1.3\conwaylaws.m

     文件        977  2004-12-16 13:36  DIPUM Toolbax V1.1.3\covmatrix.m

     文件        687  2004-12-16 13:36  DIPUM Toolbax V1.1.3\dftcorr.m

     文件        882  2004-12-16 13:36  DIPUM Toolbax V1.1.3\dftfilt.m

     文件        736  2004-12-16 13:36  DIPUM Toolbax V1.1.3\dftuv.m

     文件       6622  2004-12-16 13:36  DIPUM Toolbax V1.1.3\diameter.m

     文件        874  2004-12-16 13:36  DIPUM Toolbax V1.1.3\endpoints.m

     文件       1028  2004-12-16 13:36  DIPUM Toolbax V1.1.3\entropy.m

     文件       8758  2004-12-16 13:36  DIPUM Toolbax V1.1.3\fchcode.m

     文件       1454  2004-12-16 13:36  DIPUM Toolbax V1.1.3\frdescp.m

     文件        992  2004-12-16 13:36  DIPUM Toolbax V1.1.3\fwtcompare.m

     文件        447  2004-12-16 13:36  DIPUM Toolbax V1.1.3\gmean.m

     文件       2087  2004-12-16 13:36  DIPUM Toolbax V1.1.3\gscale.m

     文件        920  2004-12-16 13:36  DIPUM Toolbax V1.1.3\histroi.m

     文件       2707  2004-12-16 13:36  DIPUM Toolbax V1.1.3\hough.m

     文件       2886  2004-12-16 13:36  DIPUM Toolbax V1.1.3\houghlines.m

............此处省略13个文件信息