128.111.101.185: Created page with '

 %NOCLEAR.M % script to clear all variables but those listed in noclear_list, a cell % array of variable names. Include noclear_list if you wish to keep it. % If noclear_lis…'

2010-08-05T23:49:40Z

Created page with '<pre> %NOCLEAR.M % script to clear all variables but those listed in noclear_list, a cell % array of variable names. Include noclear_list if you wish to keep it. % If noclear_lis…'

New page

<pre>
%NOCLEAR.M
% script to clear all variables but those listed in noclear_list, a cell
% array of variable names. Include noclear_list if you wish to keep it.
% If noclear_list is absent, performs a clear.
%
% useage: noclear

function noclear(varargin)
if isempty(varargin),
dum=evalin('base','who');
for i=1:size(dum,1),
if findstr('noclear',dum{i}),
evalin('base','noclear(noclear_list)');
return
end
end
evalin('base','clear')
return
else
dum=[];
for i=1:size(varargin,2)
if ischar(varargin{i}),
dum=strvcat(dum,varargin{i});
elseif iscell(varargin{i})
dum=strvcat(dum,char(varargin{i}));
else
error('input needs to a string, an array or cell array of strings')
end
end
noclear_list=cellstr(dum);
end
s_clear=evalin('base','who');
s_clear0=s_clear;
for i_clear=1:size(s_clear,1),
i_clear;
a_clear=1;
for j_clear=1:size(noclear_list,1),
j_clear;
if size(s_clear{i_clear},2)==size(noclear_list{j_clear},2),
if all(s_clear{i_clear}==noclear_list{j_clear}),
a_clear=0;
break
end
end
end
doit=['clear ' s_clear{i_clear}];
if a_clear,
evalin('base',doit)
end
s_clear=s_clear0;
end
clear a_clear i_clear j_clear s_clear s_clear0
</pre>

<big>[[noclear]]<big>

Noclear.m - Revision history

128.111.101.185: Created page with '
%NOCLEAR.M % script to clear all variables but those listed in noclear_list, a cell % array of variable names. Include noclear_list if you wish to keep it. % If noclear_lis…'