view toolboxes/MIRtoolbox1.3.2/MIRToolbox/@mirhisto/display.m @ 0:e9a9cd732c1e tip

first hg version after svn

function display(s)
% SCALAR/DISPLAY display the values of an histogram
disp(' ');
d = get(s,'Data');
b = get(s,'Bins');
t = ['Histogram of ',get(s,'Title')];
n = get(s,'Name');
l = get(s,'MultiData');
u = get(s,'Unit');
if not(isempty(u)) && not(strcmp(u,'.'))
    u = [' (in ',u,')'];
end
pp = get(s,'PeakPos');
for i = 1:length(d)
    figure
    set(gca,'NextPlot','replacechildren',...
            'LineStyleOrder',{'-',':','--',':','-.'})
    nl = size(b{i},1);
    for j = 1:nl
        bar((b{i}(j,:,1)+b{i}(j,:,2))/2,d{i}(j,:));
        hold all
    end
    if not(isempty(pp{i}{1}))
        for j = 1:nl;
            ppj = pp{i}{1}{1,j,1};
            bar((b{i}(j,ppj,1)+b{i}(j,ppj,2))/2,d{i}(j,ppj),'or')
        end
    end
    xlabel(['values',u]);
    ylabel('number of occurrences')
    title(t)
    nl = size(d{i},1);
    if nl>1
        legend(l,'Location','Best')
    end
    fig = get(0,'CurrentFigure');
    va = inputname(1);
    if isempty(va)
        va = 'ans';
    end
    disp([va,' is the ',t,' related to file ',n{i},...
        ' is displayed in Figure ',num2str(fig),'.']);
end
disp(' ');