legend11_m.m

来自「matlab - image processing - median filte」· M 代码 · 共 26 行

% legend11 - Median Filter
clear;clc;
x=imread('Fig3.37(a).jpg');
[a b]=size(x);
for k=1:100;
r=input('filter size : ')
% median program rxr
t=padarray(x,[(r-1)/2 (r-1)/2],0,'both');
t=double(t);
m=r^2;
n=(m+1)/2;
for i=1:a;
    for j=1:b;
        c=[t(i:i+(r-1),j:j+(r-1))];
        d=reshape(c,1,m);
        e=sort(d);
        f(i,j)=e(1,n);
    end
end
y=medfilt2(x,[r r]);
% goruntulemeler
disp('----------------------------');
figure,imagesc(x);title('original');colormap(gray);
figure,imagesc(f);title('median program rxr');colormap(gray);
figure,imagesc(y);title('median medfilt2 rxr');colormap(gray);
end