function odpo=lezi_na_primce(varargin)

%lezi_na primce - jsou zadane body na jedne primce?
%A1,A2,...dvouprvkove vektory (body z R^2)
%odpo...1<=>body lezi na primce, jinak logicka 0
%priklad volani o=lezi_na_primce([1,1],[-4,4],[3,-1/5],[0,8/5])

if nargin<2
   error('Zadejte alespon DVA body v rovine!')
end

a=varargin{1};if length(a)~=2,error('1.vstup musi byt dvouprvkovy vektor!'),end
b=varargin{2};if length(b)~=2,error('2.vstup musi byt dvouprvkovy vektor!'),end

smer=b-a;
normala =[smer(2) -smer(1)];    %kolmy vektor v R^2
c=normala*a';   %skalarni soucin - prava strana normalove rovnice


odpo=1; %optimisticka priprava
 
for i=3:nargin
    bod=varargin{i};
    if length(bod)~=2
        error([num2str(i) '.vstup musi byt dvouprvkovy vektor!'])
    end
    
    if normala*bod'~=c %bod nelezi na primce
        odpo=0;
        return; %je rozhodnuto, dokonce se vi,ktery bod to pokazil..=>disp(i)        
    end
      
end