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

forcal

以Fibonacci递归程序为例进行比较。
, w2 d! l" g! ]8 E' b) v2 x
Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n)9 Z1 k$ {* g2 }: X8 @% F  k
   
2. if n == 0
   . U& t, X\" O$ Z  K5 x
3.   k=0;5 L6 C2 {9 A7 F; X1 u9 |% |' r0 x1 l
   
4.   return;
   / J+ W4 n6 p% ?1 z, r\" @
5. else if n == 18 R8 {+ i/ Q7 z; Z( Z2 K. K/ f
   
6.   k=1;
   8 c9 \. U, l1 V% V
7.   return;
   + O. k; e4 b\" \* B% r1 _) \/ T
8. else
   0 z% s( [: t3 _# I- O  z2 @. T
9.   k=fib(n - 1) + fib(n - 2);( a! j  N  m8 T) \7 Y
   
10.   return;, {5 E  u' `+ h% v\" {0 h. j
    
11. end0 W2 X: j0 f7 m7 O* B
    
12. end

复制代码

运行结果：

1. tic;
   ( ~4 f2 l5 Z\" k9 H
2. fib(30)& D5 e$ X. z* b8 m; F/ F) `9 ?
   
3. toc
   \" Y1 r\" e& @0 Y8 e
4. 
   , p) b/ m  V4 S- e2 [
5. ans =
   2 G; b2 j9 l2 N7 e5 |- R, E2 S
6.       832040% g8 M5 h7 ]/ u4 A! W+ q0 z
   
7. 
   0 |2 q) W7 \7 V6 a- s
8. Elapsed time is 26.315245 seconds.

复制代码

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
+ G& y' A+ d6 H" W+ Y4 |
8 _# \6 t' o: I/ e# j8 q# j" YForcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);. v( y& W' }7 @9 l7 y
   
2. F(n)= which{* _$ i! K4 E$ q\" e
   
3.     n == 0,
   2 G- d8 Y% l$ l, Q7 c
4.         return(0),
     A\" J1 X8 R; l9 J\" p/ L
5.     n == 1,
   7 ~9 h' L5 o# X5 }
6.         return(1),+ T/ C; b6 J# G/ s# C
   
7.     return [F(n - 1) + F(n - 2)]4 }: o7 C) j: `) ^1 T3 V1 p
   
8. };
   . y1 Y6 q! K* `2 J) E$ Y
9. mvar:) N! P9 }7 ~; e$ l, j0 t7 s
   
10. t=sys::clock(),# ]) f' I  p4 a; n0 ~\" i! q  U
    
11. F(30);
      F. z3 L8 a/ n* x# t\" J% U& l: x
12. [sys::clock()-t]/1000;

复制代码

结果：
832040.
0.391  秒
5 P2 b9 u' l& d2 D  {, b- g, C
) d* Q. P9 S: Q. D! @, J二者效率相差数十倍。

不特戈舟

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