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


//-----------------------------------------------------------------
//Łamana czestosci

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

A=0;
B=0;
C=0;
D=0;
E=0;
F=0;


for i=1:10,
if (H(i)>2250 & H(i)<=2300) then,A=A+1;end,

if (H(i)>2300 & H(i)<=2350) then B=B+1; end,

if H(i)>2350 & H(i)<=2400 then C=C+1; end,

if H(i)>2400 & H(i)<=2450 then D=D+1; end,

if H(i)>2450 & H(i)<=2500 then E=E+1; end,

if H(i)>2500 & H(i)<=2550 then F=F+1; end,
H(i);


end

clf;

plot2d(['2250' '2300' '2350 ' '2400' '2450' '2500'], [A B C D E F], style=2);
title(' Lamana czestosci dla 10 pomiarow');
xlabel(' Klasy');
ylabel(' Czestosc wystepowania ');