function [I,O,R,H,D]=Nacti_data()

clear;
mode(0);
chdir F:\Scilab\Funkce\; // DOPLNIT SVŮJ ADRESÁŘ !!!!
exec('F:\Scilab\Funkce\spust_pri_startu.sce',-1);
chdir F:\Scilab\Tunel\; // DOPLNIT SVŮJ ADRESÁŘ !!!!
load F:\Scilab\Tunel\data.dat;
I=data(:,1);
O=data(:,2);
R=data(:,3);

Delka=length(I);
N=1:Delka;
H1=N/12;            //Pocet vzorku za hodinu
H=modulo(H1,24);
D1=fix(N/288);      //Pocet vzorku za den - dny budou celociselne
D=modulo(D1,7)+1;
I=I';
O=O';
R=R';
endfunction


