/*************************************************************************//*								  	 *//*	Routine for printing confusion matrices				 *//*	---------------------------------------				 *//*								  	 *//*************************************************************************/#include "defns.i"#include "types.i"#include "extern.i"    PrintConfusionMatrix(ConfusionMat)/*  --------------------  */    ItemNo *ConfusionMat;{    short Row, Col;    if ( MaxClass > 20 ) return;  /* Don't print nonsensical matrices */    /*  Print the heading, then each row  */    printf("\n\n\t");    ForEach(Col, 0, MaxClass)    {	printf("  (%c)", 'a' + Col);    }    printf("\t<-classified as\n\t");    ForEach(Col, 0, MaxClass)    {	printf(" ----");    }    printf("\n");    ForEach(Row, 0, MaxClass)    {	printf("\t");	ForEach(Col, 0, MaxClass)	{	    if ( ConfusionMat[Row*(MaxClass+1) + Col] )	    {		printf("%5d", ConfusionMat[Row*(MaxClass+1) + Col]);	    }	    else	    {		printf("     ");	    }	}	printf("\t(%c): class %s\n", 'a' + Row, ClassName[Row]);    }    printf("\n");}