function [sorted_element, element_count] = countele(in)
%COUNTELE Count elements in a vector.
%	Type "countele" for a self demo.

%	Roger Jang, 3-27-1997

if nargin == 0,
	in = [0.4 0.3 0.3 0.2 0.1 0.4 0.4 0.3 0.4];
	fprintf('The input vector "in" is\n');
	for i = 1:length(in),
		fprintf('%g ', in(i));
	end
	fprintf('\n\n"[sorted_element, element_count] = countele(in)" produces the following output:\n');
	[sorted_element, element_count] = countele(in)
	return;
end

[m,n] = size(in);
in1 = sort(in(:)');
in1 = [in1 in1(length(in1))+1];
index = find(diff(in1) ~= 0);
sorted_element = in1(index);
element_count = diff([0, index]);
if n == 1,
	sorted_element = sorted_element';
	element_count = element_count';
end