function h=istogramma(I)
[n, m]=size(I);
g=max(max(I));
h=zeros(g+1, 1);
for i=1:n
    for j=1:m
        pv=I(i, j);
        h(pv+1)=h(pv+1)+1;
    end
end
bar(h)
        