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

forcal

以Fibonacci递归程序为例进行比较。

Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n), g; R5 N& R7 X: Q5 w9 ], ~/ N4 S
   
2. if n == 0
   5 i( {6 g9 A1 J8 L7 I
3.   k=0;
   ( ?5 H1 F# N/ z; S% ]
4.   return;. q( B( K  V9 S* V! O
   
5. else if n == 1  [1 \- f' @, t0 s+ ]) e* V
   
6.   k=1;
   7 {8 Y: V, W3 N7 p, k9 C+ v
7.   return;
   ' Q7 E$ M1 H! b
8. else6 Z2 j. P- e% H: L9 A\" Q
   
9.   k=fib(n - 1) + fib(n - 2);
   - {5 n' H0 z3 D
10.   return;
    \" h9 O7 {$ s9 E+ ]! k1 s
11. end) N- {' A. h9 {& O
    
12. end

复制代码

运行结果：

1. tic;
   ! B7 }  s\" A. O& d! }' I3 U, }/ U
2. fib(30)
   9 ]/ \5 I- t8 _: ~  n- I5 _! }/ R
3. toc
   9 t, Z+ o( `! i
4. % u+ N6 F0 }\" p
   
5. ans =- o# e, b) H5 `, o6 \5 u
   
6.       832040
     S; O/ z' i- t0 a3 S
7. 3 x* y1 l0 H1 ~: U4 m8 v
   
8. Elapsed time is 26.315245 seconds.

复制代码

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

* `7 r- c+ ?: A; I" rForcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);# q$ X4 n6 O- ~7 }/ g7 p
   
2. F(n)= which{* F4 r7 S# d! i
   
3.     n == 0,) Y* Y& J2 q, D5 M+ Q
   
4.         return(0),
   1 z2 W: C5 y7 L( p6 O) Z6 i2 X
5.     n == 1,% l0 ^1 e! L4 M0 U* g6 Z( T) L: q
   
6.         return(1),3 T  d5 H3 k/ {
   
7.     return [F(n - 1) + F(n - 2)]* I\" [  Q# h  W# d
   
8. };/ i) q3 q7 J+ e4 A( s
   
9. mvar:: N6 L. C  m7 K/ \2 ^) C
   
10. t=sys::clock(),3 n4 ?! c5 i5 [4 e& u
    
11. F(30);
    * S! ?  Q9 ]! ~( b8 K
12. [sys::clock()-t]/1000;

复制代码

结果：
' p( Q9 y. ~( L, e7 C832040.
% R; a( _0 b! t6 g0.391  秒
; y' K( f3 V" l4 i. F5 p. u
2 p) A- a5 F4 ?二者效率相差数十倍。

不特戈舟

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