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

forcal

以Fibonacci递归程序为例进行比较。
( o) V! w# |8 y# N, }0 \: d. x3 |) |
+ _! y: u* W* w% |7 AMatlab 2009a的Fibonacci函数定义：

1. function k=fib(n)1 c5 _$ N( J, C) v9 D$ ?* Y( Q6 K# L4 W
   
2. if n == 0
   8 e  v8 Q5 }6 x) m! I$ q( w+ O
3.   k=0;
   0 z+ z5 M! R, a+ E9 u  J% u; ~& g
4.   return;1 a2 u9 q) N8 ~7 o+ A3 t
   
5. else if n == 1
   ) D. W& N* g  y, _& [  n
6.   k=1;
   $ B: `; z! z3 q\" K. O) S( M! P
7.   return;4 A* c! U9 x$ Z: `3 b; c7 [
   
8. else
   ( p6 h+ A# ]4 O/ B8 ?/ A5 D, I9 I
9.   k=fib(n - 1) + fib(n - 2);
   9 E' V2 ~4 a- F1 ~\" K
10.   return;
    ; u\" c; B$ Q! X9 q4 z
11. end( y. t1 S/ c$ g
    
12. end

复制代码

运行结果：

1. tic;( v) R& [$ t, V- r9 W; U
   
2. fib(30)\" K, g4 t* _- i9 ?
   
3. toc6 M+ D' ], D( I) i- |6 C
   
4. 
   : @4 F/ ]. j$ B' l0 N
5. ans =/ K8 C. }$ z2 T0 \, M. e
   
6.       832040: C  }% L- A8 M: P( y7 S6 y5 Q
   
7. 5 U+ j: }7 a: K9 m( F: ?  K6 ^$ x5 B
   
8. Elapsed time is 26.315245 seconds.

复制代码

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

8 h; k  z6 u- h1 }Forcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);
     G9 d4 Z2 L# A8 m\" w/ Y* Q: x
2. F(n)= which{3 C& h% }  k( o0 a
   
3.     n == 0,( P6 f. K- S) ]3 z\" S+ O0 j- s
   
4.         return(0),  n) H, a2 L3 \6 ^
   
5.     n == 1,8 \) u% N% t5 W
   
6.         return(1),
   1 D4 z) o\" ^2 v: T% r* y. R
7.     return [F(n - 1) + F(n - 2)]* k+ |\" s7 V. h* y- N
   
8. };
   8 Z2 u4 r' X9 f: l
9. mvar:
   ' t* J0 l# N\" D3 P2 }
10. t=sys::clock(),; l# M$ r( |1 h' T5 I
    
11. F(30);- M6 s2 M! [: Y\" q- j2 A
    
12. [sys::clock()-t]/1000;

复制代码

结果：
! x: U5 T1 \5 _" Z  T8 [832040.
0.391  秒
# X( E) [! I+ z; ]# U5 I
  u4 P4 N; M$ |二者效率相差数十倍。

不特戈舟

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