view 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
line wrap: on
line source


% data -- cell array of strings for each cell
function textTable(data,divCol, divColWeight, divRow, divRowWeight)

    % Find column widths
    colWidth = {};
    for i = 1:size(data, 2)
        for j = 1:size(data, 1)
            c(j) = length(data{j,i});
        end
        colWidth{i} = max(c);
    end

    error('not done')

    eW = 0;
    qW = 0;
    for i = 1:length(orders)
        log_e{i} = log10(e{i});
        eW = max(eW, findFieldWidth('%.2f',log_e{i}));
        qW = max(qW, findFieldWidth('%.2f',q{i}));
    end

    mW = findFieldWidth('%d',m);
    orderHeaderWidth = eW + qW + 1;

    fprintf('method: %s\nT: %d\n',methodName, T);

    % Print order headers
    fprintf(' %*s |',mW,'')
    for i = 1:length(orders)
        fprintf(' %-*s |', orderHeaderWidth, sprintf('Order %d', orders{i}));
    end
    fprintf('\n');


    % Print eq headers
    fprintf(' %*s |',mW,'m');
    for i = 1:length(orders)
        fprintf(' %*s %*s |', eW, 'e', qW, 'q');
    end
    fprintf('\n');


    % Print devider
    m_dev = repmat('-',1,mW);
    column_dev = repmat('-',1,orderHeaderWidth);
    fprintf('-%s-+',m_dev);
    for i = 1:length(orders)
        fprintf('-%s-+', column_dev);
    end
    fprintf('\n');



    % Print each row
    for i = 1:length(m)
        fprintf(' %*d |',mW,m(i));
        for j = 1:length(orders)
            if i == 1
                fprintf(' %*.2f %*s |', eW, log_e{j}(i), qW, '');
            else
                fprintf(' %*.2f %*.2f |', eW, log_e{j}(i), qW, q{j}(i-1));
            end
        end
        fprintf('\n');
    end

    fprintf('\n');

end