Find Big Waves

// Returns the name of any waves exceeding 'minSize' points wherever they are found in any directory.  Modified from RGerkin's code.
Function FindBigWaves(minSize[,df,depth,noShow])
	Variable minSize // A minimum number of points, e.g. 100000
	variable depth // Used by the function recursion.  Ignore.  
	variable noShow // Don't show the table at the end.  
	dfref df // A folder to use as the top level of the search.  Default is root:  
 
	if(paramisdefault(df))
		dfref df=root:
	endif
	if(depth==0)
		NewDataFolder /O root:Packages
		NewDataFolder /O root:Packages:FindBigWaves
		dfref packageDF=root:Packages:FindBigWaves
		Make /o/T/n=0 packageDF:names
		Make /o/n=0 packageDF:sizes
	else
		dfref packageDF=root:Packages:FindBigWaves
	endif
	variable i
	wave /T/sdfr=packageDF names
	wave /sdfr=packageDF sizes
	variable points=numpnts(names)
	for(i=0;iminSize)
			names[points]={GetWavesDataFolder(w,2)}
			sizes[points]={sizeOfWave(w)}
			points+=1
		endif
	endfor
	i=0
	Do
		string folder=GetIndexedObjNamedfr(df,4,i)
		if(strlen(folder))
			dfref subDF=df:$folder
			FindBigWaves(minSize,df=subDF,depth=depth+1)
		else
			break
		endif
		i+=1
	While(1)
	if(depth==0)
		sort /R sizes,sizes,names
		if(!noShow)
			if(wintype("BigWaves"))
				dowindow /f BigWaves
			else
				edit /K=1 /N=BigWaves names,sizes as "Big Waves"
			endif
		endif
	endif
End


// posted by Howard in the forums
Function sizeOfType(inType)
	Variable inType
 
	Variable size=1
	if(inType & 0x01)
		size*=2
	endif
 
	if(inType & 0x02)
		size*=4
	elseif(inType & 0x04)
		size*=8
	elseif(inType & 0x10)
		size*=2
	elseif(inType & 0x20)
		size*=4
	elseif(inType==0)
		size=nan
	endif
	return size
End

//My addition to account for multidimensional waves

Function SizeOfWave(w)
	wave w
	
	variable index, wavesize
	wavesize =1
	For(index=0;index

Function SizeOfWave(w)
	wave w
 
	variable index, wavesize
	wavesize =1
	For(index=0;index<wavedims(w);index +=1)
		wavesize *=DimSize(w,index)	
	endfor
	wavesize *=sizeOfType(wavetype(w))
	return wavesize
End

Function SizeOfWave(w)
	wave w
 	wavesize =numpnts(w) * sizeOfType(wavetype(w))
	return wavesize
End

/// Returns the name of any waves exceeding 'minSize' points wherever they are found in any directory.
///
/// Modified from RGerkin's and hegedus code.
Function FindBigWaves(minSizeInMB[,df,depth,noShow])
	Variable minSizeInMB // Minimum size in MB, e.g. 100 
	variable depth // Used by the function recursion.  Ignore.  
	variable noShow // Don't show the table at the end.  
	dfref df // A folder to use as the top level of the search.  Default is root:  
 
	if(paramisdefault(df))
		dfref df=root:
	endif
	if(depth==0)
		NewDataFolder /O root:Packages
		NewDataFolder /O root:Packages:FindBigWaves
		dfref packageDF=root:Packages:FindBigWaves
		Make /o/T/n=0 packageDF:names
		Make /o/n=0 packageDF:sizes
	else
		dfref packageDF=root:Packages:FindBigWaves
	endif
	variable i
	wave /T/sdfr=packageDF names
	wave /sdfr=packageDF sizes
	variable points=numpnts(names)
	for(i=0;i<CountObjectsDFR(df,1);i+=1)
		wave w=df:$getindexedobjnamedfr(df,1,i)
		variable size = sizeOfWave(w)
		if(size > minSizeInMB)
			names[points]={GetWavesDataFolder(w,2)}
			sizes[points]={size}
			points+=1
		endif
	endfor
	i=0
	Do
		string folder=GetIndexedObjNamedfr(df,4,i)
		if(strlen(folder))
			dfref subDF=df:$folder
			FindBigWaves(minSizeInMB,df=subDF,depth=depth+1)
		else
			break
		endif
		i+=1
	While(1)
	if(depth==0)
		sort /R sizes,sizes,names
		if(!noShow)
			if(wintype("BigWaves"))
				dowindow /f BigWaves
			else
				edit /K=1 /N=BigWaves names,sizes as "Big Waves"
			endif
		endif
	endif
End

Function SizeOfWave(wv)
	wave/Z wv

	variable i, numEntries
	
	variable total = NumberByKey("SIZEINBYTES", WaveInfo(wv, 0))

	if(WaveType(wv, 1) == 4)
		WAVE/WAVE temp = wv
		numEntries = numpnts(wv)
		for(i = 0; i < numEntries; i += 1)
			WAVE/Z elem = temp[i]
			if(!WaveExists(elem))
				continue
			endif
			total += SizeOfWave(elem)
		endfor
	endif

	return total / 1024 / 1024
End