Mercurial > repos > public > sbplib

comparison textTable.m @ 271:3c25601f1fe3 feature/textTable

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Started adding a function for texttables.
author Jonatan Werpers <jonatan@werpers.com>
date Mon, 05 Sep 2016 16:41:13 +0200
parents
children fdee7f66a5e9
comparison
equal deleted inserted replaced
228:7f54cef985de 271:3c25601f1fe3
1
2 % data -- cell array of strings for each cell
3 function textTable(data,divCol, divColWeight, divRow, divRowWeight)
4
5 % Find column widths
6 colWidth = {};
7 for i = 1:size(data, 2)
8 for j = 1:size(data, 1)
9 c(j) = length(data{j,i});
10 end
11 colWidth{i} = max(c);
12 end
13
14 error('not done')
15
16 eW = 0;
17 qW = 0;
18 for i = 1:length(orders)
19 log_e{i} = log10(e{i});
20 eW = max(eW, findFieldWidth('%.2f',log_e{i}));
21 qW = max(qW, findFieldWidth('%.2f',q{i}));
22 end
23
24 mW = findFieldWidth('%d',m);
25 orderHeaderWidth = eW + qW + 1;
26
27 fprintf('method: %s\nT: %d\n',methodName, T);
28
29 % Print order headers
30 fprintf(' %*s |',mW,'')
31 for i = 1:length(orders)
32 fprintf(' %-*s |', orderHeaderWidth, sprintf('Order %d', orders{i}));
33 end
34 fprintf('\n');
35
36
37 % Print eq headers
38 fprintf(' %*s |',mW,'m');
39 for i = 1:length(orders)
40 fprintf(' %*s %*s |', eW, 'e', qW, 'q');
41 end
42 fprintf('\n');
43
44
45 % Print devider
46 m_dev = repmat('-',1,mW);
47 column_dev = repmat('-',1,orderHeaderWidth);
48 fprintf('-%s-+',m_dev);
49 for i = 1:length(orders)
50 fprintf('-%s-+', column_dev);
51 end
52 fprintf('\n');
53
54
55
56 % Print each row
57 for i = 1:length(m)
58 fprintf(' %*d |',mW,m(i));
59 for j = 1:length(orders)
60 if i == 1
61 fprintf(' %*.2f %*s |', eW, log_e{j}(i), qW, '');
62 else
63 fprintf(' %*.2f %*.2f |', eW, log_e{j}(i), qW, q{j}(i-1));
64 end
65 end
66 fprintf('\n');
67 end
68
69 fprintf('\n');
70
71 end