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

forcal

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

Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n)( @7 }& Z! d% P! {4 {8 V; T2 o
   
2. if n == 00 h% ~( i4 v7 K: N' ?! B
   
3.   k=0;9 Z! b  p: S+ G$ I7 r. x\" a
   
4.   return;
   , a/ h( s: }, E
5. else if n == 1
   ' b5 m7 }( @  b8 {7 C
6.   k=1;7 s$ }2 m- p! p
   
7.   return;7 _8 E\" M, b0 N6 D* i6 U
   
8. else+ Z; N  K0 E2 j! w1 t. Z1 b0 A
   
9.   k=fib(n - 1) + fib(n - 2);% s- \: A8 A+ I: _
   
10.   return;
    ' ^% r1 _, \, t\" X\" N1 M0 o) ]% n
11. end
    - t. i$ \& Q3 v% \1 }! z2 W
12. end

复制代码

运行结果：

1. tic;
   8 }- N, U5 ^7 Y0 V; Q# ^' ]3 E6 F
2. fib(30), A0 y6 Z1 q% v
   
3. toc
   ; i. j\" D0 U2 n3 Z\" L
4. 
   # j5 N8 v0 K1 p. M# a* U
5. ans =
   6 Z* g\" g( ^0 X2 G) K$ P
6.       832040
   # L\" s( H' [9 [2 p) T- |
7. 0 S% L. V/ _) K3 g\" D4 }
   
8. Elapsed time is 26.315245 seconds.

复制代码

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
/ @1 l- n& h" o
& @' B: Q8 b# L4 }- @2 l/ wForcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);
   $ |3 ?9 @, J6 \\" I' `0 L
2. F(n)= which{5 r5 n% J* }5 ]8 B
   
3.     n == 0,
   4 e  s3 _3 Z7 }  @
4.         return(0),3 a9 ^1 {) N. J2 ^
   
5.     n == 1,# ~6 c. _( `) S: _
   
6.         return(1),
   & [) e7 A% C$ Q/ @# ]4 j$ k6 K
7.     return [F(n - 1) + F(n - 2)]9 `* m2 i* S( D
   
8. };* r' i* Y/ t8 b/ b' w) o* s9 {$ k& ~8 [
   
9. mvar:  F. c\" x( G0 |\" ^3 Q! N
   
10. t=sys::clock(),
    \" w) k\" S! E3 F  j; g/ S4 g5 L
11. F(30);2 n+ g: o& U; y
    
12. [sys::clock()-t]/1000;

复制代码

结果：
  t9 A( Y) B4 m  Z8 S. ~832040.
+ V& w; d  k& y/ F7 w# U" C. E0.391  秒
$ \( M- o/ v5 u  j" J
二者效率相差数十倍。

不特戈舟

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