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;icmaxl)
					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>

Here is a slight tweak of Wave2LaTex!

This snippet takes a 2D wave with x and y dimension labels, i.e.

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

and then makes a table from it, including the text labels. The LaTex code is directly put to Clipboard from where it can be pasted in to a text editor. Not extensively tested!!

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