1function echoCatVar (distrInfo)
2{
3	D = Columns(distrInfo);
4	E = 0.0;
5	for (k=0; k<D; k=k+1)
6	{
7		E = distrInfo[0][k]*distrInfo[1][k]+E;
8	}
9	sampleVar = 0.0;
10	for (k=0; k<D; k=k+1)
11	{
12		sampleVar = sampleVar+(distrInfo[0][k]-E)*(distrInfo[0][k]-E);
13	}
14	sampleVar = sampleVar/(D-1);
15	fprintf  (stdout,"\n\nSample mean = ",E, " (sample variance = ",sampleVar,")\n");
16	for (k=0; k<D; k=k+1)
17	{
18		fprintf (stdout,"\nRate[",Format(k,0,0),"]=",Format(distrInfo[0][k],12,8), " (weight=",
19						  Format(distrInfo[1][k],9,7),")");
20	}
21	fprintf (stdout,"\n------------------------------------------------\n");
22	return 0.0;
23}