author | A.M. Thurnherr <athurnherr@yahoo.com> |
Mon, 23 Feb 2015 09:19:46 +0000 | |
changeset 15 | 3746197831db |
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