dynare/matlab/reports/@graph/createGraph.m

function o = createGraph(o)
%function o = createGraph(o)
% Create the graph
%
% INPUTS
%   o   [graph] graph object
%
% OUTPUTS
%   o   [graph] graph object
%
% SPECIAL REQUIREMENTS
%   none

% Copyright (C) 2013 Dynare Team
%
% This file is part of Dynare.
%
% Dynare is free software: you can redistribute it and/or modify
% it under the terms of the GNU General Public License as published by
% the Free Software Foundation, either version 3 of the License, or
% (at your option) any later version.
%
% Dynare is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
% GNU General Public License for more details.
%
% You should have received a copy of the GNU General Public License
% along with Dynare.  If not, see <http://www.gnu.org/licenses/>.

if ~isempty(o.figname)
    warning('@graph.createGraph: will overwrite %s with new graph\n', ...
            o.figname);
end

if ~o.seriesElements.numElements()
    warning('@graph.crepateGraph: no series to plot, returning');
    return;
end

disp('creating plot..........');
h = figure('visible','off');
hold on;
box on;
if o.grid
    grid on;
    set(gca, 'GridLineStyle', '--');
end

if isempty(o.xrange)
    dd = o.seriesElements.getMaxRange();
else
    dd = o.xrange;
end

ne = o.seriesElements.numElements();
for i=1:ne
    o.seriesElements(i).getLine(dd);
end

x = 1:1:dd.ndat;
xlabels = getDatesCellStringArray(dd);

if ~isempty(o.yrange)
    ylim(o.yrange);
end

if o.zeroline
    a = ylim;
    if 0 > a(1) && 0 < a(2)
        lh = line(xlim, [0 0], 'color', 'k', 'LineWidth', 0.25);
        children =get(gca(), 'children');
        children = [children(2:end); lh];
        set(gca(), 'children', children);
    end
end

if ~isempty(o.shade)
    x1 = find(strcmpi(o.shade(1).format(), xlabels));
    x2 = find(strcmpi(o.shade(o.shade.ndat).format(), xlabels));
    assert(~isempty(x1) && ~isempty(x2), ['@graph.createGraph: either ' ...
                        o.shade(1).format() ' or ' o.shade(o.shade.ndat).format() ' is not in the date ' ...
                        'range of data selected.']);
    yrange = get(gca, 'YLim');

    % From ShadePlotForEmpahsis (Matlab Exchange)
    % use patch bc area doesn't work with matlab2tikz
    sh = patch([repmat(x1, 1, 2) repmat(x2, 1, 2)], ...
               [yrange fliplr(yrange)], [0 1 0], ...
               'FaceAlpha', .2);
    children =get(gca(), 'children');
    children = [children(2:end); sh];
    set(gca(), 'children', children);
end

set(gca,'XTick', x);
set(gca,'XTickLabel', xlabels);

if o.legend
    lh = legend(o.seriesElements.getNames());
    set(lh, 'orientation', o.legend_orientation);
    set(lh, 'Location', o.legend_location);
    set(lh, 'FontSize', o.legend_font_size);
    legend('boxoff');
end

if ~isempty(o.xlabel)
    xlabel(['$\textbf{\footnotesize ' o.xlabel '}$'], 'Interpreter', 'LaTex');
end

if ~isempty(o.ylabel)
    ylabel(['$\textbf{\footnotesize ' o.ylabel '}$'], 'Interpreter', 'LaTex');
end

if ~isempty(o.title)
    title( o.title, 'Interpreter', 'LaTex');
end
drawnow;

o.figname = [tempname '.tex'];
disp('  converting to tex....');
matlab2tikz('filename', o.figname, ...
            'showInfo', false, ...
            'showWarnings', false, ...
            'checkForUpdates', false);

grid off;
box off;
hold off;
close(h);
clear h;
end