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

forcal

以Fibonacci递归程序为例进行比较。
1 p( c9 s4 ^6 H; q
Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n)
   6 C4 c: W3 Q' z. {\" ^& f3 V
2. if n == 0: m; ?- S# c2 H2 [: w! Q8 y
   
3.   k=0;- [, E3 M. n6 y
   
4.   return;% C/ x( t8 J9 |1 J  {. x4 Q5 z
   
5. else if n == 1\" ~$ I  b3 O- f; k$ P; \
   
6.   k=1;% k4 @0 v# B( y1 P3 J; {5 \% m$ t
   
7.   return;7 r$ a. h. k) J
   
8. else
   2 S\" I( p+ D$ A, R; o: J
9.   k=fib(n - 1) + fib(n - 2);4 T) C8 f4 r\" t% `2 f5 z
   
10.   return;
    * v* j+ f: E\" {$ B
11. end- J& G5 ]# y/ _1 y  f0 `
    
12. end

复制代码

运行结果：

1. tic;- U& q0 i, c% a1 b1 l
   
2. fib(30)) `+ r7 Q% U6 A) J\" U% b
   
3. toc
   4 |7 t# H$ u* i* ?1 w0 u% M* i8 }
4. 
   4 C( g. x8 o+ }; T6 o) R- j
5. ans =2 Q6 g, @( `. B' l: H
   
6.       832040' \% y$ C' c% d* n, e/ l' a
   
7. * b# {3 R: Q& E$ k
   
8. Elapsed time is 26.315245 seconds.

复制代码

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
' Z. g" n* v$ V9 `6 a
Forcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);# C3 Q) E/ `9 z  W
   
2. F(n)= which{
   , Y6 @9 d* C' n3 D$ ~0 z
3.     n == 0,! `* X( F; b) p; P: y* _
   
4.         return(0),, {- |2 D; f. N\" L  |
   
5.     n == 1,' N* C# ?( \6 ^0 j
   
6.         return(1),
   - z9 V, S$ K4 A1 s5 B
7.     return [F(n - 1) + F(n - 2)]; }; A# Q! U8 e9 R7 h\" B6 }, n
   
8. };
   4 |9 A' w5 g$ E6 O
9. mvar:
   * s# E; u. H$ s/ E
10. t=sys::clock(),$ E3 X& O4 C( Q
    
11. F(30);0 \- |% `5 v% i; d: }
    
12. [sys::clock()-t]/1000;

复制代码

结果：
832040.
0.391  秒

二者效率相差数十倍。

不特戈舟

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