%Function para a construcao do histograma das componentes (R,G,B) da
%cores da figura aries  
function y;
h=imread('aries.tif');    %leitura da imagem
[x y z]=size(h);          %x,y,z dimensoes da imagem
for i=1:256               %zera os vetores de contegem
   v1(i)=0;
   v2(i)=0;
   v3(i)=0;
end
for i=1:x
   for j=1:y
      %contagem de nivel vermelho
      v1(double(h(i,j,1))+1)=v1(double(h(i,j,1))+1)+1;
      %contagem de nivel verde
      v2(double(h(i,j,2))+1)=v2(double(h(i,j,2))+1)+1;
      %contagem de nivel azul
      v3(double(h(i,j,3))+1)=v3(double(h(i,j,3))+1)+1;
   end
end
stem(v3);
%Mostra o histograma para o nivel azul
      