function [H,Htilde] = histoIMAG(I,N); 

% function [H,Htilde] = histoIMAG(I,N);
% 
% Calcule et affiche l'histogramme et l'histogramme cumule 
% d'une image au format noir et blanc codee sur N canaux de gris.   

V = []; 
for i=1:size(I,1)
    V = [V I(i,:)]; 
end 
X = [0:N-1]/(N-1); 
H=histc(V,X);
size(H);
Htilde = H(1); 
for i=2:N;
    Htilde = [Htilde, Htilde(i-1) + H(i)];     
end
Htilde=Htilde/(size(I,1)*size(I,2)); 
figure 
hist(V,X) 
axis([0 1 0 max(H)]);
figure
plot(X,Htilde);
axis([0 1 0 max(Htilde)])
