// ListDataFolder(dfr, level)
// Recursively lists objects in data folder.
// Pass data folder path for dfr and 0 for level.
// Example: ListDataFolder(root:, 0)
Function ListDataFolder(dfr, level)
	DFREF dfr
	Variable level			// Pass 0 to start
 
	String name
 
	if (level == 0)
		name = GetDataFolder(1, dfr)
		Printf "%s\r", name
	endif
 
	Variable i
 
	String indentStr = "\t"
	for(i=0; i<level; i+=1)
		indentStr += "\t"
	endfor
 
	Variable numWaves = CountObjectsDFR(dfr, 1)
	for(i=0; i<numWaves; i+=1)
		name = GetIndexedObjNameDFR(dfr, 1, i)

// Creates a date control that uses YYYY-MM-DD format.
// Sticking to one standard date format simplifies life immensely.
// You can enter a date directly in YYYY-MM-DD format. You can also use up/down
// buttons. And you can also use the mouse scroll wheel.
// Two SetVariable controls are used - one to display the date and to accept a date string
// and the other to provide the up/down buttons.
// Does not support fractional dates or date and time.
// To try it, execute:
//	DemoDateControlPanel()
 
static Constant kDebugDateControl = 0	// Set to 1 for debug printouts

function convertByLookUpWave(wave2d,lookupWave[,reverseColors])
	wave wave2d			// the wave to be transformed
	wave lookupWave		// the lookup wave that is used
	variable reverseColors	// pass reverseColors=1 if the original image is shown with a reversed color table
 
	if(wavedims(wave2d)!=2)

#pragma rtGlobals=1		// Use modern global access method.
//http://en.wikipedia.org/wiki/Propagation_of_uncertainty
 
Function EP_add(a, da, b, db, c, dc, [covar])
wave a, da, b, db, c, dc
variable covar
    // C = A + B
	duplicate/free a, tempa
	duplicate/free b, tempb
	duplicate/free da, tempda
	duplicate/free db, tempdb
 
	redimension/n=(dimsize(a, 0), dimsize(a, 1), dimsize(a, 2), dimsize(a, 3)) c, dc
	if(paramisdefault(covar))
		covar = 0
	endif
 
	multithread c = tempa + tempb

#include <Graph Utility Procs>
 
// Make a list of all traces that have points that fall within the marquee
Function/S ListTracesInMarquee(graphname)
	String graphname
 

//**
// Determine the version of a compiled procedure window
// named procedureWinTitleStr.
// The version is defined using the #pragma version
// compiler directive.  For example,
// #pragma version=1.05.
//
// As stated in the Igor documentation, the line must
// start flush with the left of the window (that is, there
// can be no leading whitespace).  Spaces
// and tabs within the directive are ignored.
//
// Returns NaN if procedure window doesn't exist,
// 1.00 if no version is defined in the procedure window,