legend11_a.m

matlab - image processing - averaging filter

% legend11 - Averaging Filter
clear;clc;
x=imread('Fig3.36(a).jpg');
[a b]=size(x);
for k=1:100;
r=input('filter size: ')
s=[0:255];
s=input('threshold : ')
t=padarray(x,[(r-1)/2 (r-1)/2],0,'both');
t=double(t);
for i=1:a;
    for j=1:b;
        p=sum(sum(t(i:i+(r-1),j:j+(r-1))));
        f(i,j)=p/(r^2);
    end
end
d=(1/(r^2))*ones(r,r);
g=conv2(x,d,'same');
for m=1:a;
    for n=1:b;
        if f(m,n)<=s;
           h(m,n)=0;
        else
            h(m,n)=255;
        end
    end
end
disp('filtre matrisiniz : ');
disp(d);
disp('---------------------');
figure,imagesc(f);title('averaging program');colormap(gray);
figure,imagesc(g);title('averaging conv2');colormap(gray);
figure,imagesc(h);title('thresholding');colormap(gray);
end