function [H]=parc(I);
[m,n]=size(I);
#print(m," ",n)
H=zeros(1,256);
#for lig=1:m
#	for col=1:n
#		val=double(I(lig,col)+1);
#		H(val)=H(val)+1;
#end;
#end;
endfunction;
