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

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


Min(1)=2250;

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

end,
if (i<7) then, Min(i+1)=Min(i)+50;end,


end

clf;

B=A*0.01;
plot2d(Min,B, style=2);
title(' Lamana czestosci dla 100 pomiarow');
xlabel(' Klasy');
ylabel(' Czestosc wystepowania ');
ylabel(' Czestosc wystepowania ');