function I=integ_tab(x,y)

%integ_tab - numericka integrace lichobeznikovou metodou
%x,y..vektory vstupnich dat (nezavisle a zavisle promenna), predpoklad je,
%ze funkce je zadana tabulkou
%I....priblizna hodnota urciteho integralu dane funkce na intervalu [x(1),x(end)]
%priklad pro cisticka.xls
% C=xlsread('cisticka.xls')
% I=integ_tab(C)    priblizny objem vody, ktery protece cistickou za sledovanou dobu
% mean(C(:,2))   prumerny prutok


if nargin<2 && size(x,2)~=2 %mam jen jeden vstup, ale neni to matice se dvema sloupci
        error('Zadejte dva vektory nebo matici se dvema sloupci!')
end
if nargin<1
    error('Zadejte alespon jeden vstup (matici se dvema sloupci)!')    
end

if nargin==1 %mame jen jeden vstup
    y=x(:,2);
    x=x(:,1); %mame z toho dva vektory
end
d1=length(x);
d2=length(y);
if(d1~=d2)
    error('Vektory musi byt stejne dlouhe!')
end

I=0;    %priprava

for i=1:d1-1    %lichobezniky jen 'uvnitr'
    if (x(i+1)-x(i))<0
        disp('Hodnoty nezavisle promenne nerostou!')
    end
    I = I + (y(i) + y(i+1)) / 2*(x(i+1) - x(i));   %pricteme lichobeznik
end










