I = imread('Lena.tif');
R=I(:,:,1);
G=I(:,:,2);
B=I(:,:,3);
figure
subplot(411)
imshow(I)
title('Original image')
subplot(412)
T=imhist(R)
bar(T,'r')
subplot(413)
Y=imhist(G)
bar(Y,'g')
subplot(414)
U=imhist(B)
bar(U,'b')


P=histeq(R,64);
O=histeq(B,64);
L=histeq(G,64);
figure
subplot(411)
imshow(cat(3,P,O,L))
title('Final')
subplot(412)
M=imhist(P)
bar(M,'r')
subplot(413)
N=imhist(O)
bar(N,'g')
subplot(414)
Z=imhist(L)
bar(Z,'b')