clear
figure
I=imread('pout.tif');
subplot(3,4,1)
subimage(I);
subplot(3,4,2)
imhist(I);
%Add salt & pepper Noise
K1=imnoise(I,'salt & pepper',0.02);
subplot(3,4,3)
subimage(K1);
%Median Filter
K2=medfilt2(K1,[5 5]);
subplot(3,4,4)
subimage(K2);
%Brighten
K3=imadjust(I,[],[0.3 1]);
subplot(3,4,5)
subimage(K3);
subplot(3,4,6)
imhist(K3);
%Increase Contrast
K4=imadjust(K3,[0.25 0.75],[]);
subplot(3,4,7)
subimage(K4);
subplot(3,4,8)
imhist(K4);
%Histogram Equlization
K5=histeq(K4);
subplot(3,4,9)
subimage(K5);
subplot(3,4,10)
imhist(K5);