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