function plotpie(rank, message)
% Plotpie Plot of pie chart to show CBMR test results
num1		= sum(rank==1);
num2_3		= sum(2<=rank & rank<=3);
num4_10		= sum(4<=rank & rank<=10);
num11_20	= sum(11<=rank & rank<=20);
num21_50	= sum(21<=rank & rank<=50);
num51_100	= sum(51<=rank & rank<=100);
num101_1000	= sum(101<=rank & rank<1000);
num1001_inf	= sum(1001<=rank);
x = [num1 num2_3 num4_10 num11_20 num21_50 num51_100 num101_1000, num1001_inf];
x(find(x==0)) = eps;
pie(x, [1 0 0 0 0 0 0 0]);
legend('Rank=1','Rank=2~3','Rank=4~10','Rank=11~20','Rank=21~50','Rank=51~100','Rank=101~1000', 'Rank=1001~\infty', 2);
%colormap cool;
colormap gray;
map = colormap;
colormap(flipud(map));
if nargin==1,
	titleStr=sprintf('No. of wave files = %g', length(rank));
else
	titleStr=sprintf('No. of wave files = %g, %s', length(rank), message);
end
title(titleStr);