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

srednia=mean(dane(:,2))

// mediana -----------------------------------------------------------------

mediana=median(dane(:,2))

// wariancja -----------------------------------------------------------------

wariancja=variance(dane(:,2))

// odchylenie standardowe ----------------------------------------------------

odchylenie=stdev(dane(:,2))

// wartosc modalna (moda, najczesciej wystepujaca)----------------------------
moda=mad(dane(:,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 czestosci 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ść ';



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

clf;

histplot(6, dane(:,2),style=1)
title(' Histogramm dla 10 pomiarow ');
xlabel(' Przedział czasowy [ms] ');
ylabel(' Liczebnosc ');

//WYKRES CZASOWY-----------------------------------------------------------------

plot(dane(:,1),dane(:,2));
xtitle("Wykres czasowy (10)")
a = get("current_axes");
a.grid = [1 1 -1];
title = a.title
title.font_size = 4;
xlabel = a.x_label;
xlabel.text = 'Numer pomiaru';
ylabel = a.y_label;
ylabel.text = 'Uzyskany czas [ms]';

//DYSTRYBUANTA-----------------------------------------------------------------

C(1)=B(1);

for i=2:6,
C(i)=B(i)+C(i-1);
end

plot2d(Min,C, style=2);
xtitle(' Dystrybuanta 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 = ' Prawdopodobieństwo ';
ylabel = a.y_label;
ylabel.text = 'Częśtość ';