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

forcal

以Fibonacci递归程序为例进行比较。
& I# ^8 L3 c9 z7 e1 G
Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n)' F, N\" `7 }9 y6 m; {\" D
   
2. if n == 0; k0 M7 @6 X: q/ \. P  b/ }3 V
   
3.   k=0;% Y: r) e# H5 k0 P6 j
   
4.   return;
   . |* p' ]2 @$ @- _. n; G  w3 G
5. else if n == 1
   # q: |$ h& ?# P3 Z
6.   k=1;
   0 V. y* F* V6 d% u' H+ a
7.   return;! Z' x) P  `, x7 Z
   
8. else
   9 U4 M+ Z7 d8 ]
9.   k=fib(n - 1) + fib(n - 2);
   0 \, Q- [  U; x0 Z% K8 f- w1 {
10.   return;& F+ M7 W; X2 ^/ Q
    
11. end
    # `$ ]4 O1 R0 P: X* U3 @
12. end

复制代码

运行结果：

1. tic;
   ( ^7 B\" G* [3 B& G\" P
2. fib(30)! r- f3 V3 d8 M( {% E, Y( r
   
3. toc
   2 p& F% C+ Y) p' \4 J
4. 6 A( |; G) _4 A& x3 v; M
   
5. ans =0 F$ v9 u) s1 K6 w
   
6.       832040
   / t\" W6 Z3 H3 h! f. A
7. # S$ I# Y# T. w; u# d' P
   
8. Elapsed time is 26.315245 seconds.

复制代码

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
/ D5 V% l7 m% x# `" B+ @
+ w5 b/ S8 g0 e% A( V  h# RForcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);
   : z, i: P2 U0 `+ Y1 A, {
2. F(n)= which{4 v. n\" K9 x: W2 G1 Y. @$ n
   
3.     n == 0,
   8 `3 E. O6 ~; f9 {# r
4.         return(0),
   3 ^, x& y9 G5 k$ Z3 `8 O
5.     n == 1,
   0 m) L) ^* l/ U/ X$ `0 I
6.         return(1),5 O( N. }8 x2 N
   
7.     return [F(n - 1) + F(n - 2)]9 m/ k1 d+ y) T\" A0 b* y( q; {
   
8. };
   8 ~3 g/ O# |5 _4 N
9. mvar:/ n+ m3 y9 O+ B- G& W
   
10. t=sys::clock(),
    : D' V* j4 @1 j  }- ]2 _
11. F(30);$ E/ }/ }5 Q$ l
    
12. [sys::clock()-t]/1000;

复制代码

结果：
832040.
0.391  秒

2 E8 Z$ h* S) L, S% U  D2 {二者效率相差数十倍。

不特戈舟

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