namedfig.m

function namedfig(name)
%NAMEDFIG Create or select named figure.

% Libor Wagner on March 25, 2013

    persistent figs

    % Reset if requested
    if nargin<1 | isempty(name)
        figs = [];
        return
    end

    % Initilaize figs map
    if isempty(figs)
        figs = containers.Map;
    end

    % Select or crate named figure
    if isKey(figs, name)
        h = figs(name);
        figure(h);

        % Set window name
        set(h,'Name',name,'NumberTitle','off');
    else
        h = figure();
        figs(name) = h;

        % Set window name
        set(h,'Name',name,'NumberTitle','off');
    end


end