function DrawVAltTrend
% DrawVAltTrend.m
% Author: Alexander Khaustov; alexander dot khaustov at gmail dot com 
% Copyright (C) 2008 St.-Petersburg Institute of Cardiological Technics (Incart), www.incart.ru
% This software is released under the terms of the GNU General
% Public License (http://www.gnu.org/copyleft/gpl.html).
% 
% Draws the trend of MMA alternans values

    global graph TWARes lead

if (~TWARes.successfull)
    return;
end;

    subplot(graph(3));
    
    plot(TWARes.VAltTrend(:, lead));

    hold on;

    SetAxisLimits;
    
    %%%%%%%%%%%%% cursor
    global hTrend
    if (ishandle(hTrend))
        delete(hTrend);
    end;    
    global CurResIndex
    hTrend = plot([CurResIndex CurResIndex], get(gca, 'YLim'), 'k');
    hold off;
    
return;

function SetAxisLimits
    global TWARes lead
    set(gca, 'XLim', [-1 size(TWARes.VAltTrend, 1) + 1]);
    yl = get(gca, 'YLim');
    set(gca, 'YLim', [-0.1 * max(TWARes.VAltTrend(:, lead)) yl(2)]);
return;