id = 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,

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

end

clf;

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