%~ meanWindow.m - Part of the trqt package submitted for the 2006 CinC challenge
%~ Copyright (C) 2006  DA Tironi, R Sassi and LT Mainardi
%~ This software is released under the terms of the GNU General
%~ Public License (http://www.gnu.org/copyleft/gpl.html).

function [meanW] = meanWindow(listaPunti, segnale, start, length)

for c1 = 1:size(listaPunti, 1)
    F1(c1, :) = segnale(listaPunti(c1, 1) + start : listaPunti(c1, 1) + start + length - 1);
end

meanW = mean(F1, 1);

% for c1 = 1:size(F1, 1)
%     figure(c1 + 10)
%     plot(F1(c1,:),'.');
% end