%Programa: Histograma.m
%Descripción: Calcula el histograma de una imagen
%Autor: FJHL
%Fecha Inicial: 31/Agosto/2015
%Fecha Actualización: 24/Agosto/2016

close all;clear all;clc;

%Lee imagen desde un archivo
I=imread('../images/flowers8.png');
%I_Gray=rgb2gray(I);
I_Gray=rgb2gray(I);


[hI]=CalculaHistograma(I_Gray);

%Resultados
figure('name','Imagen Original en Gris');
imagesc(I_Gray);
colormap gray;
figure('name','Histograma');
%plot(hI);
bar(hI);

% %Ecualización del Histograma
% J_Gray=histeq(I_Gray);
% 
% hIm=imhist(I_Gray);
% hJm=imhist(J_Gray);
% 
% figure('name','Imagen con histograma ecualizado');
% imagesc(J_Gray);
% colormap gray;
% figure('name','Histograma de matlab');
% bar(hIm);
% figure('name','Histograma ecualizado de matlab');
% bar(hJm);

