1 function [] = clearallbut(varargin)

     2 % function [] = clearallbut(varargin)

     3 %

     4 % Clear All Variables except some.

     5 

     6 % Felix Tubiana

     7 %   11.13.03

     8 

     9 if nargin < 1, help clearallbut, return, end

    10 

    11 v = evalin('caller', 'who');

    12 k = setxor(v, varargin);

    13 dum = [];

    14 for i = 1:length(k)

    15    dum = [dum ' ' k{i}];

    16 end

    17 if ~isempty(dum)

    18    evalin('caller', ['clear' dum]);

    19 end