极限测试之Matlab与Forcal的递归函数调用效率

forcal

以Fibonacci递归程序为例进行比较。
) n- w9 ]% h' o9 v( N$ x
Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n)
   0 Q! ^: g1 c* H) p
2. if n == 0- n7 g\" T4 J) l& {+ c- x
   
3.   k=0;
   ! C$ V0 K- d1 t
4.   return;$ r& P- b8 W6 X, e) z- e3 N
   
5. else if n == 1* v# O- C: l' n4 h# w! }% u
   
6.   k=1;
   9 p4 T2 o0 a- `! D  _
7.   return;7 B* v8 I) j+ ?\" J! }% }
   
8. else0 `7 N* E5 c) A; {2 o4 D
   
9.   k=fib(n - 1) + fib(n - 2);+ x+ `: }1 S- E/ j5 L* }
   
10.   return;
    * T6 i! G# W% I. i* [
11. end9 ?6 r% p; c1 G7 T  \  d- t
    
12. end

复制代码

运行结果：

1. tic;. V1 x+ H8 W- S: B7 [0 w
   
2. fib(30)
   ( V% W$ Q7 W) P5 e
3. toc1 n2 r' r& T\" Z
   
4. 
   9 G( O# E+ ^! D9 g0 W0 M0 a) C6 x4 L
5. ans =
   ; l! s- a3 T# X
6.       832040& U# b6 r% A% Q% s1 L7 O
   
7. 
   - z9 g! C: H' X
8. Elapsed time is 26.315245 seconds.

复制代码

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

' p# ~4 K) P9 {Forcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);
   - l$ S6 J! _3 a+ g* e- m; o: `8 S
2. F(n)= which{$ t: b6 a, _* w. e: p0 R
   
3.     n == 0,
   . o( `4 o* B6 K' u( p% X2 v2 K
4.         return(0),
   5 r5 y& V0 w9 @6 P
5.     n == 1,
   5 [\" K* c! G' J# k\" p
6.         return(1),. }& r% Y$ Q: ~' Y! C' k! K: N8 j
   
7.     return [F(n - 1) + F(n - 2)]
   1 L6 ]8 ?; ]\" }
8. };
   , `0 D2 _0 o5 u) g2 B$ y
9. mvar:+ h* x! _5 g+ o4 v9 l+ c1 v
   
10. t=sys::clock(),
    . A5 O2 Y* f1 Y2 n6 E7 c
11. F(30);
    + `  y. B% v5 V& X& ]- R# A
12. [sys::clock()-t]/1000;

复制代码

结果：
832040.
1 o5 ~# y0 f. g" S% t6 V+ W0.391  秒
0 T" H# i1 ~" ~3 f+ `
二者效率相差数十倍。

不特戈舟

以后真的注意了。。。 楼主真好