function anone=lezi_na_primce(varargin)
%zkusebni zadani:
% lezi_na_primce([1,2],[2,4],[-1,-2],[-2,-4])
%
%Funkce lezi_na_primce zjistí, zda zadané body z roviny leží v jedné pøímce.
%
%anone = 1=ano/0=ne
%b1,b2 = prvni dva body
%sv = smerovy vektor
%nv = normalovy vektor
%c = c :) (konstanta z rovnice primky)

if nargin<2
   error('Jsou potreba minimalne 2 body!')
end

b1=varargin{1};
b2=varargin{2};

if length(b1)~=2
    error('Je potreba dvouprvkovy vektor!')
end
if length(b2)~=2
    error('Je potreba dvouprvkovy vektor!')
end

sv=b2-b1;
nv=[sv(2) -sv(1)];
c=nv*b1';

anone=1;

for i=3:nargin
    aktualnibod=varargin{i};
    if length(aktualnibod)~=2
        error('Je potreba dvouprvkovy vektor!')
    end
    if nv*aktualnibod'~=c
        anone=0;
        return;
    end
end

end