program code:
original_im=imread('Picture1.tif');
pad_org=padarray(original_im,[1 1],'both'); figure(3);imshow(pad_org);title('With Zero Padding Original Image at Boundary')
for i=1:size(pad_org,1)-2 for j=1:size(pad_org,2)-2 window=[1 2 1;2 4 2;1 2 1]; %% Matrix to store the value of 3 by 3 window win_inc=1;%%initial value of window matrix for k=1:size(window)/3 for l=1:size(window)/3 window(win_inc)=pad_org(i+k-1,j+l-1); win_inc=win_inc+1; end end mean=(1/9)*sum(window); new_image(i,j)=mean; end end new_image=uint8(new_image); figure(4);imshow(new_image);title('Image After Mean Filtering')
