Wave2LaTeX

macro TabletoLatex()
    print WaveList("*",";","WIN:")
    print Wave2LaTeX(WaveList("*",";","WIN:"))
    PutScrapText Wave2LaTeX(WaveList("*",";","WIN:"))
end


// Create a LaTeX table from waves
//This string function returns values from numeric waves into a simple LaTeX table format.
// Operates in current data folder and returns theTable as a string
// ==> waves: a semicolon list of wave names to tabulate
// ==> rowend: (optional) string to add to the end of each row
Function/S Wave2LaTeX(waves,[rowend]) //jjweimer on IgorForum
    string waves, rowend
    string theTable = "", theText = "" 
    variable ic, nt, maxl, jc, theValue,WT
    if (ParamIsDefault(rowend))
        rowend = ""
    endif
    nt = ItemsInList(waves)
    make/T/n=(nt)/FREE theWaves
    make/n=(nt)/FREE theLengths
    for(ic=0;ic<nt;ic+=1)
        theWaves[ic] = StringFromList(ic,waves)
        theLengths[ic] = numpnts($theWaves[ic])
    endfor
 
    maxl = wavemax(theLengths)
    //Add the header, include centering option c, l or r and insert vertical lines with | as needed
    theTable ="\begin{tabular}{"
    for(ic=0;ic<nt;ic+=1)
        theTable+="c "
    endfor
    theTable+="}"
    sprintf theTable, "%s\r", theTable
    for(ic=0;ic<maxl;ic+=1)
        theText = ""
        for(jc=0;jc<nt-1;jc+=1)
            if(wavetype($theWaves[jc],1)==1)
                wave theOne = $theWaves[jc]
                if (numpnts(theOne)>maxl)
                    sprintf theText, "%s\t&", theText
                else
                    if((numtype( theOne[ic])==2))
                        sprintf theText, "%s%s \t& ", theText," "
                    else
                        sprintf theText, "%s%g\t& ", theText, theOne[ic]
                    endif
                endif
            elseif(wavetype($theWaves[jc],1)==2)
        wave/t  theOneS=$theWaves[jc]
                if (numpnts(theOneS)>maxl)
                    sprintf theText, "%s\t&", theText
                else
                    sprintf theText, "%s %s \t & ", theText, theOneS[ic]
                endif
            endif
        endfor
        if(wavetype($theWaves[jc],1)==1)
            wave theOne =  $theWaves[jc]
            if (numpnts(theOne)>maxl)
                sprintf theText, "%s \\\\ %s\r", theText, rowend
            else
                if((numtype( theOne[ic])==2))
                    sprintf theText, "%s%s\\\\ %s\r", theText," " , rowend
                else
                    sprintf theText, "%s%g\\\\ %s\r", theText, theOne[ic], rowend
                endif
            endif
        elseif(wavetype($theWaves[jc],1)==2)
             wave/t  theOneS=$theWaves[jc]
            if (numpnts(theOneS)>maxl)
                sprintf theText, "%s \\\\ %s\r", theText, rowend
            else
                sprintf theText, "%s%s \\\\ %s\r", theText, theOneS[ic], rowend
            endif
        endif
        theTable += theText
    endfor
    theTable+="\end{tabular}"
    return theTable
end

<\igor>

make/O/N=(3,3) data = abs(round(enoise(100)))
setdimlabel 1, 0, X, data
setdimlabel 1, 1, Y, data
setdimlabel 1, 2, Z, data
setdimlabel 0, 0, run1, data
setdimlabel 0, 1, run2, data
setdimlabel 0, 2, run3, data
edit data.ld

function/S Matrix2LaTeX(w2d)
    // w2d is expected to have x and y dimension labels
    wave w2d
   
    variable rows = DimSize(w2d,0)
    variable cols = DimSize(w2d,1)
    variable i, j
   
    // make a blank line
    print "\r"
   
    // initiate the table
    String theTable ="\begin{tabular}{"
    for(j=0; j < cols+1; j+=1)
       theTable += "c "
   endfor
    theTable+="}\r"
    // add some formatting
    theTable+="\hline\r"
   
    // the first "row" consists of column headers, y dim labels
    // the first column header remains empty
    theTable += " &"
    for(j=0; j < cols; j+=1)
        if (j < cols-1)
            theTable += GetDimLabel(w2d, 1, j) +" &"
        else
            theTable += GetDimLabel(w2d, 1, j) +" \\\ \r"  
        endif
   endfor
   
    // add some formatting
    theTable+="\hline\r"
   
    // now add the data
    for(i=0; i < rows; i+=1)
        // the first table column consists of x dimension labels
        theTable += GetDimLabel(w2d, 0, i) +" &"
   
    // now data follows
        for(j=0; j < cols; j+=1)
            if (j < cols-1)
            theTable += num2str(w2d[i][j]) +" &"
        else
            theTable += num2str(w2d[i][j]) +" \\\ \r"  
        endif      
    endfor
    endfor
   
    // do some formatting and close table  
    theTable+="\hline\r"
    theTable+="\end{tabular}"
   
    // put table to clipboard
    PutScrapText theTable
   
    return theTable
end