ファイル名：ClearExcept.m

% ClearExcept clear variables from memory except for ones listed in CLEAREXCEPT variable

if ~exist('CLEAREXCEPT','var')
    disp('[ERROR] ClearExcept command needs CLEAREXCEPT variable (cell array) in which variables are listed you want to leave.');
    disp('[USAGE] CLEAREXCEPT = {''VAR1'' ''VAR2'' ...}; clearonly;');
else
    CLEARLISTS = who;
    for ClearCnt = 1:length(CLEAREXCEPT)
        CLEARLISTS(find(strcmp(CLEARLISTS,CLEAREXCEPT{ClearCnt})))=[];
    end
    eval(['clear ',sprintf('%s ',CLEARLISTS{:}),'CLEARLISTS ClearCnt']);
end