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

forcal

以Fibonacci递归程序为例进行比较。
. _) P3 P' x+ J" a* g( {' ^
Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n)( H0 I; {# D9 x% G) Y* i3 m
   
2. if n == 0# ^$ X; h  k) V. k9 f+ K
   
3.   k=0;/ v6 t4 W- I* E' c! a& `: e) f
   
4.   return;% a# g8 p; y/ l3 X
   
5. else if n == 1
   ( \7 g2 A* Z, u2 o% j
6.   k=1;1 }# Z9 A+ P* r; j1 T+ V
   
7.   return;/ v: F7 l7 E: B\" e  V2 ]
   
8. else* b9 T$ o; }9 w1 ~; q! q
   
9.   k=fib(n - 1) + fib(n - 2);) M8 t3 J2 w4 u- p2 l8 I+ i
   
10.   return;
    ; e2 X9 j; e6 L% k
11. end- C; V0 h% U3 c
    
12. end

复制代码

运行结果：

1. tic;4 J4 j9 T& K4 J8 r+ I) }
   
2. fib(30)6 {1 Z, j- s: W  T$ T0 B9 z
   
3. toc
   5 p7 e8 R: Q\" E: A
4. 
   # M! z, h6 v\" B: M9 J& N
5. ans =
   5 S2 {% V: |- ]# i1 Q, r5 V) Z
6.       832040# |0 {' ^9 b$ N- n7 u
   
7. % z( b; Q9 [& t1 f+ z4 p. w
   
8. Elapsed time is 26.315245 seconds.

复制代码

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

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

1. SetRealStackMax(1000);
   1 |$ R, G9 Z& }
2. F(n)= which{
   . k) B: V& }# C1 d6 z: _7 I( u, p
3.     n == 0,
     d2 X: t( o2 `# {
4.         return(0),
   \" E4 n; A: W$ v5 ^
5.     n == 1,
   7 g3 m* o) ]$ {0 {  j
6.         return(1),! o- V; L: i6 Q3 V- W- _
   
7.     return [F(n - 1) + F(n - 2)]
   ( u  I! e7 T8 @. Z2 Q
8. };7 W8 ?9 p7 {9 g. O
   
9. mvar:
   3 ?2 E. Y/ w) {
10. t=sys::clock(),
    5 C0 |+ N: n, S+ l, {
11. F(30);  _9 w3 t- S3 j0 c6 f
    
12. [sys::clock()-t]/1000;

复制代码

结果：
) S4 Z3 L9 ^  V3 U! H: R% @( p832040.
, I1 V' K: I/ e0.391  秒
+ ?- R1 l" g$ s8 N  q: }
; L9 N/ o$ e6 w5 ~二者效率相差数十倍。

不特戈舟

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