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

forcal

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

+ W0 g7 w7 c) D; R% Z/ |8 @" IMatlab 2009a的Fibonacci函数定义：

1. function k=fib(n)5 L* C$ H: s/ N+ g! g3 E3 y5 z
   
2. if n == 0* N8 D0 e! ~- K: G. I; j
   
3.   k=0;* W+ y8 C. o$ g7 y; g3 L
   
4.   return;
   - x$ v( |\" P, J( f
5. else if n == 1* x8 s' p; D# j. A) n9 |
   
6.   k=1;
   & f0 p5 _\" [$ ^7 C
7.   return;
   3 ~* i9 g6 `4 F: }3 d, s
8. else
   : F& ~# x: c; D
9.   k=fib(n - 1) + fib(n - 2);
   & W% v& u! E1 y4 W0 D
10.   return;. ?: X( q! M* ^5 w  i7 E
    
11. end7 B. U9 ?& v0 h) ?
    
12. end

复制代码

运行结果：

1. tic;/ q\" b2 n7 D3 O% P
   
2. fib(30)0 t1 i/ `9 }% k9 H% n
   
3. toc
   + X\" m3 A' K4 ^1 R\" ]: F1 \% N
4. 
   & ^2 M3 ]\" b! p/ F
5. ans =
   . Q3 ^+ y( U% B
6.       832040
   . A; X) j- I) ~5 h/ ?! ^, Q
7. 
   1 C( x. P/ ^: F  w# k\" t2 `( v8 z  e
8. Elapsed time is 26.315245 seconds.

复制代码

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

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

1. SetRealStackMax(1000);
   8 K# j. o' L6 p7 k
2. F(n)= which{. h! l5 m. x) V' B+ f/ d
   
3.     n == 0,9 }4 n/ {  Q6 K  ~! u+ L6 |1 B; N$ ?
   
4.         return(0),. Z1 i: ?. d% f7 P* D/ F* o
   
5.     n == 1,- p+ z5 ^6 c8 H5 V3 z
   
6.         return(1),
   9 r# j. o- ~/ O6 P0 C) t( H
7.     return [F(n - 1) + F(n - 2)]
   4 ~0 X( O: e! W8 R
8. };
   0 J2 J% N/ t2 H( U( J; T
9. mvar:3 P& y( m! A& v& R! H
   
10. t=sys::clock(),
    / _  w7 z5 L3 @: a( z  B, D% ^  x
11. F(30);
    $ p0 v+ I2 Z) E/ A+ M) S
12. [sys::clock()-t]/1000;

复制代码

结果：
* w* j5 r: e& F( j832040.
7 W" {0 Y& o/ |1 q$ ]3 }. e0.391  秒
# G1 ]5 l) i) F" c8 u0 G
二者效率相差数十倍。

不特戈舟

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