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

//Łamana Częstości-------------------------------------------------------------
H=[dane(:,2)]

Min(1)=2250;

for i=1:6,

A(i)=0;
for j=1:10,

if (H(j)>Min(i) & H(j)<=Min(i)+50) then,A(i)=A(i)+1;end,

end,

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


end

clf;

B=A*0.1;
plot2d(Min,B, style=2);
xtitle(' Łamana czestości dla 10 pomiarow');
a = get("current_axes");
a.grid = [1 1 -1];
title = a.title
title.font_size = 4;
xlabel = a.x_label;
xlabel.text = ' Przedział czasowy [ms]';
ylabel = a.y_label;
ylabel.text = 'Częśtość ';