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


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

G=[1950;2000;2050;2100;2150;2200;2250;2300;2350;2400;2450;2500]
//clf;
H=[dane(:,2)]


Min(1)=1950;

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

end,

Min(i)=Min(i)+50;

end

clf;

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