function ist=istogramma(im,L);
%tyfiyift
ist=zeros(L,1);
%ggh
figure; hold on; 
for i=1:L, 
    ist(i)=sum(sum(im==i-1)); 
    plot([i-1+0.5,i-1+0.5,i+0.5,i+0.5],[0,ist(i),ist(i),0]);  
end;
axis([0, L-1, 0, max(ist(:)+10)]);