Mercurial > hg > map
annotate utilities/UTIL_printTabTable.m @ 38:c2204b18f4a2 tip
End nov big change
author | Ray Meddis <rmeddis@essex.ac.uk> |
---|---|
date | Mon, 28 Nov 2011 13:34:28 +0000 |
parents | f233164f4c86 |
children |
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@38 | 5 % UTIL_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 |