function [P,L] = LIP(x,fx)
% function [P,L] = LIP(x,fx)
% Lagrangeuv intepolacni polynom pro uzly x a funkcni hodnoty fx
% P - interpolacni polynom
% L - matice Lagrangeovych fundamentalnich polynomu

% test na rozmery vstupu
[m,n]=size(x);
lx=length(x);
if lx==0 | lx<m*n
    error('Vstup musi byt neprazdny vektor!')
end

% test na jednoznacnost uzlu
if length(unique(x))<lx
    error('Nektere uzly se opakuji!')
end

% test na stejne rozmery vstupu
if any([m,n]~=size(fx))
    error('Vstupni vektory nemaji stejne rozmery!')
end


n=length(x)-1;      % stupen polynomu
P=zeros(1,n+1);     % vystup (zatim nulovy)
L=[];               % matice Lagr. fundamentalnich polynomu (zatim prazdna)
for k=0:n

end % konec cyklu for

end % konec funkce
