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

forcal

以Fibonacci递归程序为例进行比较。
. F6 }9 s/ ?( C6 t  Y7 u" j
8 f5 E- }1 d% l' ^5 TMatlab 2009a的Fibonacci函数定义：

1. function k=fib(n)
   ; W6 F6 {& g: Y$ n( p+ h3 T
2. if n == 0
   ) E1 P) `. l: d) ?& }
3.   k=0;
   * i& `0 f6 C8 P( D9 F* }) n6 j! z
4.   return;+ `7 J4 I  H6 J. ~5 B8 W
   
5. else if n == 15 a& w\" C8 h7 m$ a# l\" v$ }
   
6.   k=1;$ i/ @. c6 O9 [
   
7.   return;' s2 j0 |) `5 ]& L+ ~9 q4 E
   
8. else# L& J- k( K5 |
   
9.   k=fib(n - 1) + fib(n - 2);
   3 e  o! v# H9 f% _/ S! r! \
10.   return;. w\" B. R6 f) |' \
    
11. end
    . g% D  x' r( z% _* \& H% n& j
12. end

复制代码

运行结果：

1. tic;
   * i  g  H) \, O5 B3 G
2. fib(30)* \5 v/ V: `  r/ f& C% ]9 c
   
3. toc1 h2 H+ W+ C$ M7 M9 M: x
   
4. 
   ( r% ^0 A' c: |+ j5 }! \( D
5. ans =
   5 |% ^: z/ N6 `$ W3 M( S3 ?8 p, t
6.       8320404 [: O$ @( ^0 `; w7 Q  G( e. b
   
7. ! h8 A( \' I+ v* r( b: V8 [) \/ n
   
8. Elapsed time is 26.315245 seconds.

复制代码

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

. c1 L% p5 }9 i! \1 eForcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);' q\" g. `6 X. u& w  Z
   
2. F(n)= which{
   0 j% O: [$ W4 d4 Z5 V5 ^
3.     n == 0,$ [( i' c( h4 h! d7 _1 }) W
   
4.         return(0),
   8 J\" ]7 I9 c1 o3 a
5.     n == 1,
   % {% ]. H& J4 f, c
6.         return(1),
   5 w- t& [\" W9 q; Z: ^: f% Y$ c! R0 u
7.     return [F(n - 1) + F(n - 2)]
   - S  E9 u) M7 s: {) r& }
8. };
   \" A& r9 H' e# ^4 Y: e
9. mvar:
   9 A! K% [! |( C4 O5 L- L. m
10. t=sys::clock(),3 t4 A. {+ E' O# F. X) M
    
11. F(30);
    ' ^2 J+ I3 E% d& q
12. [sys::clock()-t]/1000;

复制代码

结果：
832040.
8 L2 U/ C" {' w% [4 _0.391  秒
/ E/ V$ \3 i1 M% \+ w, h/ q1 f
2 e( f3 {# ~. ~- j, p二者效率相差数十倍。

不特戈舟

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