function r = fak(n)
% r = fak(n)
% 
% Berechnet die Fakultaet der ganzen Zahl n mit Hilfe der Rekursionsformel
% umgesetzt mit dem rekursiven Aufruf der Funktion selbst.
%
% Winfried Kernbichler 2005-12-02

  if nargin < 1,    error('Inputvariable n fehlt!'); end
  if rem(n,1) ~= 0, error('Inputvariable n nicht ganzzahlig!'); end
  if n < 0;         error('Inputvariable n ist negativ!'); end
  if numel(n) > 1;  error('Inputvariable n hat mehrere Elemente!'); end
  
  if n > 0
    r = n * fak(n-1);
  else
    r = 1;
  end