7_DataAnalysisSuite/murder.m at master · vantagecu/7_DataAnalysisSuite · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
function murder(input)

if nargin==0
    input='all';
end

if any(strcmpi(input,{'all','everything'}))
    close all;
    close hidden;
    evalin('base','clear');
    clear variables;
    clear global;
    clc;
    home;
    return;
elseif any(strcmpi(input,{'plots','figures','pictures'}))
    close all;
    close hidden;
    return;
elseif any(strcmpi(input,{'plot','figure','picture'}))
    a=gcf;
    close(a);
    return;
elseif any(strcmpi(input,{'variables','vars'}))
    clear variables;
    return;
elseif any(strcmpi(input,{'word','words','command window','command','this'}))
    clc;
    home;
    return;
else
    try
        clear(input);
    catch
        try
            close(input);
        catch
            error('Murder:NoOneMurdered','There was no one to murder...');
        end
    end
end

end