function Newimg = histe(I)
% Program Adi : Goruntuye Histogram Esitleme uygulayan M-Fonksiyonu
%
% Degisken tanimlanmasi :
% I   -- Histogram esitleme uygulayarak iyileştirmek istedigimiz goruntu.
% Gorunutuyu unsigned 8-bit interger(uint8) sinifi kabul ediyoruz.
error(nargchk(1,2,nargin)) % giris parametrelerinin sayisi kontrol ediliyor.
 
% histogram hesaplaniyor
hist=zeros(1,256);
if isa(I, 'uint8'),     
    I = double(I);
end
for i=1:size(I,1)
    for j=1:size(I,2)
        k=I(i,j);
        hist(k+1)=hist(k+1)+1;
    end
end
 
% toplam histogram hesaplaniyor
sum=0;
for i=0:255
    sum=sum+hist(i+1);
    sum_of_hist(i+1)=sum;
end
 
% giris goruntusu cikis goruntusune donusturulur
area = size(I,1)*size(I,2);
Glevel = 256;
for i=1:size(I,1)
    for j=1:size(I,2)
        k=I(i,j);
        X(i,j)=(Glevel/area)*sum_of_hist(k+1);
    end
end
Newimg=uint8(X);
 
% End of funtion histe