function z = faktorial(N)
% FAKTORIAL - vypocet faktorialu celeho cisla (z=n!)
% z=faktorial(N), N ... cele cislo

if (fix(N)==N)&(N=>0) % kontrola vstupni hodnoty
  if N=0
    z=0; % faktoriál 0
  else   % faktoriál N>0
    z = 1; 
    for i=1:N 
      z = z*i; % postupne provadime souciny
    end
  end
else
disp('Vstup N není cele kladne cislo !!!');
error('Faktorial neexistuje') % vypocet konci
end












