function BatchPU(varargin) % BatchPU.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). % % accepts file with a list of records and runs ecgpuwave for all of them if ~nargin [fname, pathname] = uigetfile('*.*'); if ~fname return; end; BatchPU(strcat(pathname, fname)); return; end; f = fopen(varargin{1}); nextf = fgetl(f); while (nextf ~= -1) if (~exist(strcat(nextf, '.pu'),'file')) ss = sprintf('ecgpuwave -r %s -a pu', nextf); disp(ss); system(ss); end nextf = fgetl(f); end; fclose all; return;