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

forcal

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

( Y! e; h  S4 e) X+ ZMatlab 2009a的Fibonacci函数定义：

1. function k=fib(n)
   , G\" P\" \: ]& g* Y  X$ l4 A( Y
2. if n == 05 R* d2 T- I/ F/ ~, Q/ u: a4 W* w  [, Q
   
3.   k=0;
   $ m) A* \% ]6 z; N( U
4.   return;
   ) N4 u, p* O+ x: @, b9 S  ?0 s
5. else if n == 1
   2 X% U3 f) Z6 T, F$ l( s  s
6.   k=1;9 ^- R  u$ Q5 I( t  _3 L
   
7.   return;
   ) y$ [) n/ _9 Z8 |$ M% \5 _
8. else
   6 F. N0 C; _9 v6 U% E
9.   k=fib(n - 1) + fib(n - 2);
   + f$ X: P/ x# t- ^
10.   return;7 S; W2 S# \2 A! D
    
11. end9 n5 c& |7 W$ C2 ^
    
12. end

复制代码

运行结果：

1. tic;; A\" Z- z; `. J' K
   
2. fib(30)( z. ~( \* O+ q7 |5 C. q
   
3. toc) i/ A6 ^, z+ e4 `5 g) ^% {: n
   
4. 
   , c! e4 U: a3 l) H
5. ans =
   4 r& D5 C2 P9 j4 |* P( Q# h# a
6.       832040
   7 n4 s9 _+ [# V0 `: y- L
7. 
   % m; u0 o1 Q! e8 f  j* l+ ~/ @
8. Elapsed time is 26.315245 seconds.

复制代码

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

; j& G: o$ K  j' u" T. o- lForcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);' P' C! t( x* n3 M) V! y
   
2. F(n)= which{0 K; K6 w\" p. A: r
   
3.     n == 0,( H; j1 v- a! H+ H& \
   
4.         return(0),
   % r! H' o$ ~+ \6 I$ x\" @$ ~9 z
5.     n == 1,: X% u2 }& L2 h- S. X; E
   
6.         return(1),
   ( l* \& W! D( m3 `0 f; E3 q
7.     return [F(n - 1) + F(n - 2)]/ v& f% ?# ~6 S) B
   
8. };
   , K- r' T0 a8 ~7 ?5 v
9. mvar:
   1 t/ ?+ F2 d' K+ P) s
10. t=sys::clock(),
    - Z) @\" W1 {% y8 |
11. F(30);9 `) e7 F& R7 K
    
12. [sys::clock()-t]/1000;

复制代码

结果：
8 F. z+ P# q: i! b832040.
/ C, Y& D# G+ G4 F0.391  秒

二者效率相差数十倍。

不特戈舟

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