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

forcal

以Fibonacci递归程序为例进行比较。
) L; O4 X6 p( T3 B
Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n)
   ) _& K) }2 B1 g2 a4 |
2. if n == 0
   ! ]& c* i5 w\" u  r+ ~
3.   k=0;; H5 s. ~5 a# G4 ~
   
4.   return;
   % @, B; ]: p* P, d' j  m7 T
5. else if n == 10 z- x\" @6 n- Q$ \4 C8 h8 s
   
6.   k=1;\" D2 X) _1 F; \
   
7.   return;
   / B- @( ?8 D% B# V' q8 Z) ]0 C9 H4 c9 t
8. else1 P3 q& J1 |* \4 o0 [8 N# @
   
9.   k=fib(n - 1) + fib(n - 2);/ o/ x  W  Q1 s# \' V; l
   
10.   return;7 J4 Y5 W. F0 `! L9 u! |) j  x
    
11. end
    - s. N5 Z\" }9 I
12. end

复制代码

运行结果：

1. tic;
   ( y! k\" u# U5 s% |
2. fib(30)# f  b( k2 p0 V7 z  Y
   
3. toc! h( g6 w# B/ `6 {! I/ u
   
4. # m9 K. I( |2 d& E
   
5. ans =7 F( \0 s% v7 h2 ^  x\" }) s5 G1 r9 t
   
6.       8320404 \5 u' u3 R* x! F5 G3 @
   
7. 9 t2 T! x- }\" b7 o9 a
   
8. Elapsed time is 26.315245 seconds.

复制代码

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

( y) u. d, s8 n* H5 N1 CForcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);
   0 T% Y0 g+ i% s6 Q0 C! E, P. n
2. F(n)= which{8 A6 F% S2 Z) o8 [# |8 u/ d
   
3.     n == 0,) }, @6 m( ~$ B* n
   
4.         return(0),9 b7 a7 D$ M1 n
   
5.     n == 1,
   0 q2 w; D( g6 |; c
6.         return(1),
   + P! z8 i2 l7 l6 |# ^
7.     return [F(n - 1) + F(n - 2)]2 h/ a- g/ C( L: ?
   
8. };
   0 M- b/ K* j: P( K( }. I0 C
9. mvar:! w6 ]4 l  H1 O\" t
   
10. t=sys::clock(),
    + T( L* q5 [. ^7 R
11. F(30);
    ; G- N# Y! o( t  f# Q
12. [sys::clock()-t]/1000;

复制代码

结果：
! ~. _! P1 D& L832040.
0.391  秒

* K5 N0 c  I& u) ]9 b# V4 M二者效率相差数十倍。

不特戈舟

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