function histograma = histo(I)
%HISTOGRAMA calcula el histograma de la imag y lo guarda en vector                                                
%   Lo calcula recorriendo la imagen y contabilizando los n.de g.
%   histograma = histo(I)
%  Ejemplo:                                                                                                                       
%    I=imread('caja1.bmp');
%    h=histo(I);
%    plot(h);

%______________________________________________________________________%
% NOMBRE DEL FICHERO:      histo.m                                     %
% RECIBE: Imagen de 256 niveles de gris                                %
% DEVUELVE: Un vector de 256 componentes con el histograma             %
% ALGORITMO EMPLEADO: Recorre la imagen contabilizando los pixeles     %
%                     con cada nivel de gris. Esta funcion no dibuja   %
%                     el histograma. Hay que llamar luego a plot       %
% VARIABLES:   I = imagen introducida                                  %
%              histograma = vector que contabiliza los pixeles         %
%              filas = numero de filas de la imagen I (ancho)          %
%              columnas = numero de columnas de la imag. I  (alto)     %
%              i = contador que recorre las filas de la imagen         % 
%              j = contador que recorre las columnas de la imagen      % 
% SUPOSICIONES :  Se supone imagen de 256 niveles de gris              %
% LIBRO: VISION ARTIFICIAL INDUSTRIAL. UNIVERSIDAD DE VALLADOLID 2012  %   
% TEMA 2 LA IMAGEN DIGITAL pág.30 Algoritmo 2.1                        %
% AUTORES: Eusebio de la Fuente y Félix Miguel Trespaderne             %
%______________________________________________________________________%
%  Ejemplo de ejecucion:                                               %
% >> I=imread('caja1.bmp');
% >> h=histo(I);
% >> plot(h);
%______________________________________________________________________%
% Con funciones de matlab
% >> I=imread('caja1.bmp');
% >> h=imhist(I);
% >> plot(h);
%______________________________________________________________________%

[filas,columnas]=size(I);

histograma=zeros(1,256); %Suponemos que la imagenes seran de 256 n.de g.

for i=1:filas
   for j=1:columnas
       nivelGris=I(i,j)+1;
       histograma(nivelGris)= histograma(nivelGris)+1;
   end
end



