%This is the same as the flow data except that every five
%data points are selected
%The first column of FewFlow is time (min)
%The second column of FewFlow is flow (ml/min)
%The last few lines plot this data. 

FewFlow = [0.00000000 -1425.32000000 
  0.00033700 -1226.84000000 
  0.00075833 -879.49900000 
  0.00117967 -1177.22000000 
  0.00160100 -1425.32000000 
  0.00202233 -1326.08000000 
  0.00244367 -1077.98000000 
  0.00286500 -1226.84000000 
  0.00328633 -482.54100000 
  0.00370767 16685.90000000 
  0.00412900 31224.50000000 
  0.00455033 28346.50000000 
  0.00497167 14800.30000000 
  0.00539300 3933.61000000 
  0.00581433 -1822.27000000 
  0.00623567 -3162.01000000 
  0.00665700 -1425.32000000 
  0.00707833 261.75500000 
  0.00749967 311.37400000 
  0.00792100  63.27570000 
  0.00834233 -284.06300000 
  0.00876367 -1028.36000000 
  0.00918500 -1425.32000000];

x = FewFlow(:,1);
y = FewFlow(:,2);
plot(x,y,'ro');
title('Cardiac Output, One Cycle')
xlabel('time(min)')
ylabel('flow(ml/min)')