load electrocardiogram.out;
y=electrocardiogram;
tic
  plot(1:length(y),y,'-k')
  height=0;
  x=1:length(y);
 [PKS,LOCS]=findpeaksSPT(electrocardiogram,'MINPEAKHEIGHT',0,'MINPEAKDISTANCE',11);
hold on
for k=1:length(P)
    text(LOCS-12,PKS,'x','color',[1 0 0])
end
grid
hold off
toc
