以Fibonacci递归程序为例进行比较。 Matlab 2009a的Fibonacci函数定义:
function k=fib(n) if n == 0 k=0; return; else if n == 1 k=1; return; else k=fib(n - 1) + fib(n - 2); return; end end
运行结果:
tic; fib(30) toc ans = 832040 Elapsed time is 26.315245 seconds.
=============== Forcal 9(OpenFC演示)的Fibonacci函数及代码:
SetRealStackMax(1000); F(n)= which{ n == 0, return(0), n == 1, return(1), return [F(n - 1) + F(n - 2)] }; mvar: t=sys::clock(), F(30); [sys::clock()-t]/1000;
结果:
832040.
0.391秒
二者效率相差数十倍。