Home > NoiseTools > nt_whoss.m

nt_whoss

PURPOSE ^

size=nt_whoss - total Gbytes used by variables

SYNOPSIS ^

function varargout=nt_whoss

DESCRIPTION ^

size=nt_whoss - total Gbytes used by variables

  size: number of Gbytes

 If nargout==0, display Gbytes used

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

0001 function varargout=nt_whoss
0002 %size=nt_whoss - total Gbytes used by variables
0003 %
0004 %  size: number of Gbytes
0005 %
0006 % If nargout==0, display Gbytes used
0007 
0008 s=evalin('caller', 'whos'); % lists variables in caller's workspace
0009 
0010 x=cell(1,numel(s));         
0011 [x{:}]=deal(s.bytes);       % transfer to cell array
0012 size=sum(cat(1,x{:}));      % transfer to array and sum
0013 
0014 size=size/(2^30);           % bytes --> Gbytes
0015 nfiles=numel(fopen('all')); % number of open files
0016 
0017 if nargout == 0
0018     disp(['Gbytes used: ', num2str(size), ', open files: ', num2str(nfiles)]);
0019 else
0020     varargout{1}=size;
0021     varargout{2}=nfiles;
0022 end

Generated on Mon 10-Nov-2014 14:40:42 by m2html © 2005