function [frekvenssit,keskip]=luokittele(arvot,luokat)
% 18.11.01
% arvot: lukuarvojen vektori
% luokat: Vektori, jossa luokkarajat
% Esim:
% x=[89 84 87 81 89 86 91 90 78 89 87 99 83 89]
% luokat=[74.5:5:99.5]
% [fr,kp]=luokittele(x,luokat)
% bar(kp,fr)
n=length(arvot);
%[kaksi,m]=size(luokat);
m=length(luokat);lkm=m;
frekvenssit=zeros(1,lkm-1);
luokat=[luokat(1:m-1);luokat(2:m)];
keskip=sum(luokat)/2;
for i=1:n
   for j=1:lkm-1
      if (arvot(i) >= luokat(1,j)) & (arvot(i) < luokat(2,j))
       frekvenssit(j)=frekvenssit(j)+1;
    end
 end
end

