%Pascal/MATLAB-Kurs WS 2001, Gerhard Opfer
%Aufrufprogramm zur Fakultaet, normal und rekursiv 
for n=[10,20,30,100]
  m=1:n;
  tic;         %Stoppuhr wird gestartet
  p1=prod(m);
  toc          %Stoppuhr wird gestoppt

  tic
  p2=a07_03(n);
  toc
end;

%       prod         rekursiv
%n= 10: 5.8100e-04   0.0021
%n= 20: 4.9300e-04   0.0044
%n= 30; 4.9500e-04   0.0053
%n=100: 5.0100e-04   0.1136
%Die rekursive Technik verliert immer
