function stlen = ApproximateSTLen(s, stend) % ApproximateSTLen.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). % % average ST interval estimation if (max(stend) == 0) rr = mean(s(2:length(s)) - s(1:length(s) - 1)); stlen = ceil(0.5 * rr); else stlen = floor(median(stend(find(stend)))); end; return;