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

forcal

以Fibonacci递归程序为例进行比较。
! ?! k% K! b7 o1 y0 N
! n0 _9 Q8 W# k3 m* ~, `Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n)
   . T1 g, V: M, A\" B1 s7 p- S& j2 X
2. if n == 07 w* M5 k6 q4 o- C) V' A! d* l
   
3.   k=0;
   , d+ G( T: ^$ y/ t4 I
4.   return;$ o3 _- S4 h\" L  }9 S* ^: R
   
5. else if n == 1
   1 b\" l3 h$ k( n* W1 w/ O
6.   k=1;! o% J1 @* C. I/ Q2 F; T2 e
   
7.   return;6 r5 ?' U/ G5 F
   
8. else
   ' Q& b* n2 D* e& v+ k, K
9.   k=fib(n - 1) + fib(n - 2);6 v- v6 \* o, V: K
   
10.   return;7 s8 [9 D+ J- u3 p9 L
    
11. end
    ! W( U% f- n0 ^8 A1 \7 y. C
12. end

复制代码

运行结果：

1. tic;4 w8 c\" A2 j3 U1 \! \- \- n
   
2. fib(30)6 c+ `+ g3 ^8 f8 B: {\" e- D
   
3. toc. _7 |/ ?& H0 T1 |/ t. o
   
4. 3 W# V: l7 t0 f; n+ E8 B0 z# R
   
5. ans =( V, P, U  [/ \7 Q5 Y( j3 j
   
6.       832040
   6 e\" |2 N  P, q' B- l; p3 N7 _
7. 
   0 @' O4 u% Y2 J$ c# a+ ?9 q/ {
8. Elapsed time is 26.315245 seconds.

复制代码

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

0 E0 J) k0 X2 @. @0 IForcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);: ^. X' \: b4 X+ x3 I7 b
   
2. F(n)= which{$ ^' Q) g' [: ^7 b/ D' }8 @
   
3.     n == 0,
   ( k  h% K, s. @# C
4.         return(0),' G- U$ Y0 b2 Z- |- z, v, H& `4 A
   
5.     n == 1,
   # K: }# x+ P; F: w1 [
6.         return(1),% i: P6 K* U/ E# K7 Y2 L
   
7.     return [F(n - 1) + F(n - 2)]8 f. ?( M' W% c3 A. ?3 h- X% v
   
8. };
   / g: L' ]* d9 e6 B
9. mvar:
   8 h' A( R: r+ g& I5 z
10. t=sys::clock(),
    3 b; f) x, J2 S2 n& ]  q
11. F(30);
    0 M' g: T3 O5 I( k
12. [sys::clock()-t]/1000;

复制代码

结果：
832040.
) v% V$ {  f9 e" d- v! d& c0.391  秒
3 ~* L+ F* J2 s! v; @. A# y
+ J8 m% d3 H! H1 W& j二者效率相差数十倍。

不特戈舟

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