m2l.m

function m2l(A, fname, type)
    if nargin < 3
        type = 'bmatrix';
    end
    [ m, n ] = size(A);
    fp = fopen(fname, 'w');
    fprintf(fp, '\\begin{%s}\n', type);
    for i = 1:m
        fprintf(fp, '\t\\num{%.4g}', A(i, 1));
        for j = 2:n
            fprintf(fp, ' & \\num{%.4g}', A(i, j));
        end
        fprintf(fp, ' \\\\ \n');
    end
    fprintf(fp, '\\end{%s}', type);
    fclose(fp);
end