Re: table latex output

[Michael Creel]

Gorazd Brumen wrote:

> hi,
>
> does there exist a matrix output into latex format?
> example: x = [1 2; 3 4] and when you save one gets
>
> 1 & 2
> \\
> 3 & 4
>
> this would be a great feature, since these things go
> directly into .latex documents? i had to save as text,
> import into gnumeric, export as text with another separator
> and manually correct the file a bit.
>
> regards,
> gorazd
This question came up not long ago. The attached file will do this. I 
can add this to o-f, and in fact Paul K. and I were discussing names for 
the function. I forget what we agreed upon. Maybe matrix2latex.m? If 
anyone has an opinion, let me know.
## Copyright (C) 1996, 1997  Andreas Weingessel 2005 Michael Creel 
<address@hidden>
## 
## This program is free software; you can redistribute it and/or modify
## it under the terms of the GNU General Public License as published by
## the Free Software Foundation; either version 2, or (at your option)
## any later version.
## 
## This program is distributed in the hope that it will be useful, but
## WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
## General Public License for more details. 
## 
## You should have received a copy of the GNU General Public License
## along with this file.  If not, write to the Free Software Foundation,
## 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

## usage:  save2tex (X, file, cname, rname, prec, align, lines)
##
## Saves the data of the matrix X in a latex tabular environment to
## file. cname and rname are matrices whose rows are the column
## respectively row headings, if c/rname == "" (default), no headings
## are printed. prec gives the number of digits printed after the
## comma. If prec<0 (default) the number is printed unformatted. align
## gives the alignment of the data, default is "r" (flush right). If
## lines == 0 or == "none", no lines are printed in the
## tabular; if lines == 2 or == "full" there are lines around each cell,
## otherwise (default) there are lines at the border and between the headings 
and
## the data.
##
## Example:
## a = rand(3,2);
## cnames = str2mat("c1, "c2");
## rnames = str2mat("r1, "r2", "r3");
## save2tex(a, "test.tex", cnames, rnames); 

## Author:  AW <address@hidden>
## Author:  MC <address@hidden> (minor format modifications)

## Description:  Save to a file in a LaTeX tabular environment

function save2tex(tabledata, file, cname, rname, prec, align, lines)

        if ((nargin == 1) || (nargin > 7))
                printf("usage: save2tex (X, file, cname, rname, prec, align, 
lines)\n");
        endif

        if (nargin < 7) lines = 1; endif
        if (nargin < 6) align = "r"; endif
        if (nargin < 5) prec = -1; endif
        if (nargin < 4) rname = ""; endif
        if (nargin < 3) cname = ""; endif

        if (isstr (lines))
                if (strcmp (lines, "full"))
                        lines = 2;
                elseif (strcmp (lines, "none"))
                        lines = 0;
                else
                        lines = 1;
                endif
        endif

        nr = rows(tabledata);
        nc = columns(tabledata);

        is_rn = columns(rname);
        is_cn = columns(cname);

        if ((is_rn) && (rows(rname) != nr))
                error ("save2tex: Numbers of rows and row names do not match.");
        endif

        if ((is_cn) && (rows(cname) != nc))
                error ("save2tex: Numbers of columns and column names do not 
match.");
        endif


        ### open output file
        FN = fopen (file, "w");
        if (FN < 0)
                error ("save2tex: Can not open File %s", file);
        endif

        ### create format line
        LSTR = "";
        LFSTR = "";
#       if (lines)
#               LSTR = "|";
#               if (lines == 2)
#                       LFSTR = "|";
#               endif
#       endif
        STR = ["\\begin{tabular}{", LSTR];
        if (is_rn)
                STR = [STR, "l", LSTR];
        endif

        for i=1:nc
                STR = [STR, align, LFSTR];
        endfor
        
        if (lines == 2)
                STR = [STR, "}\n"];
        else
                STR = [STR, LSTR, "}\n"];
        endif
        fprintf (FN, STR);
        
        if (lines)
                fprintf (FN, "\\hline\n");
        endif

        
        ### print column headers
        if (is_cn)
                if (is_rn)
                        STR = "  & ";
                else
                        STR = "  ";
                endif
                
                for i = 1:nc
                        STR = [STR, cname(i,:), " & "];
                endfor
                
                les=length(STR);
                fprintf(FN, [STR(1:les-2), "\\\\\n"]);
                
                if (lines)
                        fprintf (FN, "\\hline\\hline\n");
                endif
        endif

        ### print data
        for i = 1:nr
                if (is_rn)
                        STR = [rname(i,:), "  & "];
                else
                        STR = "  ";
                endif
                
                if (prec >= 0)
                        form = sprintf("%%.%df & ", prec);
                else
                        form = "%f & ";
                endif
                
                for j = 1:nc
                        STR = [STR, sprintf(form,tabledata(i,j))];
                endfor
                
                les=length(STR);
                
                if (i < nr)
                        if (lines == 2)
                                fprintf(FN, [STR(1:les-2), "\\\\\n\\hline\n"]);
                        else
                                fprintf(FN, [STR(1:les-2), "\\\\\n"]);
                        endif
                else
                        if (lines)
                                fprintf(FN, [STR(1:les-2), "\\\\\n\\hline\n"]);
                        else
                                fprintf(FN, [STR(1:les-2), "\n"]);
                        endif
                endif
        endfor
        
        ### finish output
        fprintf(FN, "\\end{tabular}\n");
        fclose(FN);

endfunction