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}