Mercurial > hg > map
annotate utilities/UTIL_printTabTable.m @ 24:a5e4a43c1673
major revision looks stable
author | Ray Meddis <rmeddis@essex.ac.uk> |
---|---|
date | Thu, 16 Jun 2011 16:43:49 +0100 |
parents | f233164f4c86 |
children | c2204b18f4a2 |
rev | line source |
---|---|
rmeddis@0 | 1 function UTIL_printTabTable(M, headers, format) |
rmeddis@0 | 2 % printTabTable prints a matrix as a table with tabs |
rmeddis@0 | 3 %headers are optional |
rmeddis@0 | 4 %headers=strvcat('firstname', 'secondname') |
rmeddis@0 | 5 % printTabTable([1 2; 3 4],strvcat('a1','a2')); |
rmeddis@0 | 6 |
rmeddis@0 | 7 if nargin<3 |
rmeddis@0 | 8 format='%g'; |
rmeddis@0 | 9 end |
rmeddis@0 | 10 |
rmeddis@0 | 11 if nargin>1 |
rmeddis@0 | 12 [r c]=size(headers); |
rmeddis@0 | 13 for no=1:r |
rmeddis@0 | 14 fprintf('%s\t',headers(no,:)) |
rmeddis@0 | 15 end |
rmeddis@0 | 16 fprintf('\n') |
rmeddis@0 | 17 end |
rmeddis@0 | 18 |
rmeddis@0 | 19 [r c]=size(M); |
rmeddis@0 | 20 |
rmeddis@0 | 21 for row=1:r |
rmeddis@0 | 22 for col=1:c |
rmeddis@0 | 23 fprintf('%s',num2str(M(row,col),format)) |
rmeddis@0 | 24 if col<c |
rmeddis@0 | 25 fprintf('\t') |
rmeddis@0 | 26 end |
rmeddis@0 | 27 end |
rmeddis@0 | 28 fprintf('\n') |
rmeddis@0 | 29 end |
rmeddis@0 | 30 |