wolffd@0: function plotmat(matrix, textcolour, gridcolour, fontsize)
wolffd@0: %PLOTMAT Display a matrix.
wolffd@0: %
wolffd@0: %	Description
wolffd@0: %	PLOTMAT(MATRIX, TEXTCOLOUR, GRIDCOLOUR, FONTSIZE) displays the matrix
wolffd@0: %	MATRIX on the current figure.  The TEXTCOLOUR and GRIDCOLOUR
wolffd@0: %	arguments control the colours of the numbers and grid labels
wolffd@0: %	respectively and should follow the usual Matlab specification. The
wolffd@0: %	parameter FONTSIZE should be an integer.
wolffd@0: %
wolffd@0: %	See also
wolffd@0: %	CONFFIG, DEMMLP2
wolffd@0: %
wolffd@0: 
wolffd@0: %	Copyright (c) Ian T Nabney (1996-2001)
wolffd@0: 
wolffd@0: [m,n]=size(matrix);
wolffd@0: for rowCnt=1:m,
wolffd@0:   for colCnt=1:n,
wolffd@0: 	numberString=num2str(matrix(rowCnt,colCnt));
wolffd@0: 	text(colCnt-.5,m-rowCnt+.5,numberString, ...
wolffd@0: 	  'HorizontalAlignment','center', ...
wolffd@0: 	  'Color', textcolour, ...
wolffd@0: 	  'FontWeight','bold', ...
wolffd@0: 	  'FontSize', fontsize);
wolffd@0:   end;
wolffd@0: end;
wolffd@0: 
wolffd@0: set(gca,'Box','on', ...
wolffd@0:   'Visible','on', ...
wolffd@0:   'xLim',[0 n], ...
wolffd@0:   'xGrid','on', ...
wolffd@0:   'xTickLabel',[], ...
wolffd@0:   'xTick',0:n, ...
wolffd@0:   'yGrid','on', ...
wolffd@0:   'yLim',[0 m], ...
wolffd@0:   'yTickLabel',[], ...
wolffd@0:   'yTick',0:m, ...
wolffd@0:   'DataAspectRatio',[1, 1, 1], ...
wolffd@0:   'GridLineStyle',':', ...
wolffd@0:   'LineWidth',3, ...
wolffd@0:   'XColor',gridcolour, ...
wolffd@0:   'YColor',gridcolour);
wolffd@0: