size=nt_whoss - total Gbytes used by variables size: number of Gbytes If nargout==0, display Gbytes used
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