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

forcal

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

Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n)( M4 x4 a5 V# x& B3 e# w
   
2. if n == 0
   5 N5 `- l& I\" M% c/ L
3.   k=0;
   ! p, B0 Q# E) y( X7 F/ j  ]7 y
4.   return;
   5 t5 o$ y* ~( r9 D  d
5. else if n == 1; [6 G\" S- ]$ b8 k( ]% a
   
6.   k=1;+ w* R6 W0 k# J. Q
   
7.   return;& r\" m4 B8 Z2 ?3 G* ]2 J- s
   
8. else
   \" C( ?+ b$ v\" {: J0 K
9.   k=fib(n - 1) + fib(n - 2);/ i8 C- |1 [+ h& J3 W
   
10.   return;
    ! o! H( j1 o3 p) r3 n& q: D& q
11. end  M0 q* A% @/ x9 U) Q
    
12. end

复制代码

运行结果：

1. tic;
   ) {. b0 T7 `, o& ~
2. fib(30)) |- V+ x! c0 K, Q0 s- b
   
3. toc7 Y6 r\" S; H/ {6 y7 D9 E! _2 x
   
4. 
   7 H/ v. A, X) D$ i
5. ans =* D, J  L; Y4 j! D% s+ r$ }7 k& W
   
6.       832040: N* t  J# W' G! A
   
7. 
   5 Q4 w; S' }- p* u3 P. p
8. Elapsed time is 26.315245 seconds.

复制代码

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

Forcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);
   & ~- S5 V\" M( J- c1 D9 o
2. F(n)= which{$ n7 H. R5 {) n\" k# ]+ k\" u
   
3.     n == 0,. u0 u, w+ E, [* m0 @, Y4 U
   
4.         return(0),
   ( a8 v$ B2 y  |( w  R$ ]; E( W
5.     n == 1,
   4 d& x2 \, ]7 a* d/ s2 f
6.         return(1),
   : m- c2 D  D) i
7.     return [F(n - 1) + F(n - 2)]9 f, P4 m4 h! N6 W
   
8. };
   ' Y$ C1 _: ?- V6 G' X9 e
9. mvar:, @3 J. `) f4 ~! m% T
   
10. t=sys::clock(),
    ( X5 n% Y. R9 D- h
11. F(30);- s# `/ X: G7 h. J
    
12. [sys::clock()-t]/1000;

复制代码

结果：
) g  L) Z# A  f$ m832040.
% F% e* c7 Q' e; j) Y7 m0.391  秒

( S9 U4 d: O" r( p, K' w- q二者效率相差数十倍。

不特戈舟

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