/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/
/* [ Created with wxMaxima version 0.8.1 ] */

/* [wxMaxima: title   start ]
Fibonacci studies
   [wxMaxima: title   end   ] */

/* [wxMaxima: comment start ]
Rekursion versus iteration 
in the case of the Fibonacci numbers 
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
Fib(n) := 
  if n<=1 then n else Fib(n-1)+Fib(n-2);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
Fib(10);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
Fib_it(n) := 
  block([i : 0, f0 : 0, f1 : 1, f2 : 1],
    while i < n do 
      (i : i+1, f0 : f1, f1 : f2, f2 : f1 + f0), 
    f0  );
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
Fib_it(1000);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
set_display(ascii);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
Fib_it(1000);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
functions;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
timer(all);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
timer;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
timer_info();
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
A version using the table concept. 
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
Fib_tab[n] := if n<=1 then n else Fib_tab[n-1]+Fib_tab[n-2];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
Fib_tab[100];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
Problem with "table"-version:  danger of stack overflow
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
Fib_tab[1000];
/* [wxMaxima: input   end   ] */

/* Maxima can't load/batch files which end with a comment! */
"Created with wxMaxima"$