author | A.M. Thurnherr <athurnherr@yahoo.com> |
Wed, 17 Jan 2018 12:19:54 -0500 | |
changeset 20 | 61b92f8fb463 |
parent 0 | 0a450563f904 |
permissions | -rw-r--r-- |
function [] = clearallbut(varargin) % function [] = clearallbut(varargin) % % Clear All Variables except some. % Felix Tubiana % 11.13.03 if nargin < 1, help clearallbut, return, end v = evalin('caller', 'who'); k = setxor(v, varargin); dum = []; for i = 1:length(k) dum = [dum ' ' k{i}]; end if ~isempty(dum) evalin('caller', ['clear' dum]); end