function onesize(data)
%ONESIZE analyze data for one 1 size

% this function needs to be cleaned up!

%
size = input('Enter size: '); % we really ought to check this value!!!
oldinfiledata = dlmread('data.in','\n'); % needs to be generalized:
firstrun = oldinfiledata(1);
lastrun = oldinfiledata(2);
numruns = oldinfiledata(3);

%
while ~ismember(size,firstrun:lastrun)
size = input('Enter size:');
end

%
count=size*numruns;
extraction = data(count-numruns+1:count,:);

%
items = extraction(:,2)+extraction(:,3);

%
hist(items)
title(['Distribution for size',' ',num2str(size)]);

%
mean(items)