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

forcal

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

Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n)
   2 t. y0 @' u1 V
2. if n == 0( u\" `) _4 {- u! U6 y
   
3.   k=0;2 ~& R' ~4 `, m
   
4.   return;
   ) x1 }; x4 J+ [# y. L0 _+ K9 a3 T
5. else if n == 1
   ' `2 }% K9 v2 j6 i0 y) [
6.   k=1;  `6 n$ W0 ]4 @: P/ W6 s: T* D- x
   
7.   return;$ ~: `2 d( v* }$ E
   
8. else
   ( f\" r1 N5 }+ {* T
9.   k=fib(n - 1) + fib(n - 2);
   9 p0 _& P& i4 P8 ?: |7 G3 p' |
10.   return;% q. U/ w% k$ y: ?7 m9 }. ^
    
11. end
    : c* G; U/ V5 W6 m7 y7 p2 y
12. end

复制代码

运行结果：

1. tic;
   6 S% F0 y1 O& K3 |. L\" e$ R
2. fib(30)3 ]7 o# l  u& W) [) M8 j4 E0 t3 d
   
3. toc
   - O' N  z* @* s- T$ c7 i# T
4. # H3 \8 w& W+ a3 p2 V+ H
   
5. ans =/ ?) T8 K; j( ^0 N' q) l
   
6.       832040
   * y& I( b! M2 S, R$ f$ Q
7. 
   + n% \' k/ g3 ?  B- m/ E( x! L
8. Elapsed time is 26.315245 seconds.

复制代码

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
8 [' p# s0 Y& |, n! b
Forcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);- C. n# l8 ?% f+ Y: }2 ^. q, j- \2 s
   
2. F(n)= which{- |9 ~# a7 t  m7 [  |
   
3.     n == 0,
   ' _2 O' Q& a/ T. |' \; I* L! W0 w
4.         return(0),2 s6 _\" {! Y' _  {1 c8 R5 t; _
   
5.     n == 1,' q  k* d$ o3 o2 |: X5 u
   
6.         return(1),
   * ^# I- o/ Y4 z2 V
7.     return [F(n - 1) + F(n - 2)]) J$ `+ [* I* f8 j
   
8. };6 u) f# z2 @' B) ~
   
9. mvar:. [3 R' M! h9 [1 S$ G: L5 S
   
10. t=sys::clock(),
    - t' R; G3 L5 r\" C5 k- ?\" A7 E* u( b3 k* H
11. F(30);7 |\" v( \) H* h& E/ B- K
    
12. [sys::clock()-t]/1000;

复制代码

结果：
- X. V1 X3 l- }3 f7 j- V832040.
0.391  秒
8 R$ L( M' b; C
% l) S- V2 f2 r  }0 N3 `二者效率相差数十倍。

不特戈舟

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