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

forcal

以Fibonacci递归程序为例进行比较。
1 C$ t3 U" X  ^2 |2 |: j+ X
Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n)2 D: [* ]* f( \* g
   
2. if n == 0
   ; s* J& z2 [; q2 _
3.   k=0;( _' A4 t\" j! t/ r
   
4.   return;
   # d& X# j8 [% o- {8 d% u( x& M
5. else if n == 1! S0 M# u\" [) f! Y: n
   
6.   k=1;
   + C2 I! t% F\" t$ u# h
7.   return;
   8 w1 X' J! d5 J( |; F
8. else, E0 ]' [* O6 k% U2 Z( U
   
9.   k=fib(n - 1) + fib(n - 2);: v0 V$ R, R& G+ ~. ]
   
10.   return;; e, I7 [2 \4 M1 W
    
11. end! k3 _6 w/ @8 P' ^/ g# P# C0 j\" W' p
    
12. end

复制代码

运行结果：

1. tic;$ F4 J. d, M1 P5 _/ @
   
2. fib(30)
   2 o1 E1 u- S) }\" S* E7 m* W
3. toc* H5 v3 Y& T6 N4 ]\" o& O5 A
   
4. 
   & d; y4 C, d8 k* T5 G/ S3 b
5. ans =! H+ u. y. K- @\" J% p2 j
   
6.       832040
     Z; c& e6 u. B
7. 9 X# n8 ?1 F4 t# C% }
   
8. Elapsed time is 26.315245 seconds.

复制代码

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
* ], S4 b2 F# W& A, _0 s/ F; \
Forcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);7 ]' C) `\" ^! R, j6 z3 [7 c+ F+ R
   
2. F(n)= which{
   # k* ?/ U& {\" E4 T$ I/ E
3.     n == 0,
   5 U% R/ \5 v7 k
4.         return(0),
   8 ^0 k\" G- U  v& @
5.     n == 1,
   6 k1 s; v; P; O+ g+ }' I& A
6.         return(1),+ w2 @0 d) w! J( r* \3 u: f
   
7.     return [F(n - 1) + F(n - 2)]# _; h- F6 H4 M( |( i
   
8. };
   & N) _& n3 i\" d, i% k) R+ }6 C; L
9. mvar:
   $ h\" D* V* K6 K5 R- h2 d+ c
10. t=sys::clock(),
    6 D( W4 x3 t2 v  }, i
11. F(30);
    5 A  T7 X9 O4 ~\" C. R5 G5 D
12. [sys::clock()-t]/1000;

复制代码

结果：
3 d) R; `2 T4 }, p8 L4 j) O* U832040.
0.391  秒
' C3 j/ ~7 f$ \; g! `
/ W; b4 ~$ M+ u: ?$ h% R% t二者效率相差数十倍。

不特戈舟

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