function [S] = splajn1(x,fx)
% function [S] = splajn1(x,fx)
% linearni splajn pro uzly x a funkcni hodnoty fx
% S - linearni splajn reprezentovany po castech polyn. funkci

% 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

% je potreba urcit koeficienty splajnu
% na kazdem subintervalu a pak splajn vytvorit
% pomoci funkce mkpp

end % konec funkce
