fid = file ('open','D:\Documents and Settings\ravano\Pulpit\scilabb\dane1.txt','unknown');
//dane = read (fid, -1, 2);
dane = read (fid, -1, 2);


//-----------------------------------------------------------------
//HISTOGRAM

G=[2250;2300;2350;2400;2450;2500]
//clf;
H=[dane(:,2)]


Min=2250;

for i=1:6,
A(i)=0;
for j=1:10,
if (H(j)>Min & H(j)<=Min+50) then,A(i)=A(i)+1;end,

end,

Min=Min+50;

end

clf;


plot2d(G,A, style=2);
title(' Lamana czestosci dla 10 pomiarow');
xlabel(' Klasy');
ylabel(' Czestosc wystepowania ');