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

forcal

以Fibonacci递归程序为例进行比较。
- n# |/ g! d  E* M7 E2 b
Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n)+ C0 V( d$ e; m& d/ |3 y+ b
   
2. if n == 0
   + q4 O  w( J# D
3.   k=0;; }\" t% ~1 G# b/ t. I, a0 ~) U  t\" M
   
4.   return;
   / a  j4 \2 v  ]2 ^9 S5 B5 M
5. else if n == 1\" p. \+ X  u0 X: m9 a- X
   
6.   k=1;
   2 f* i9 U  m  _7 D( r\" L
7.   return;- V, Y7 ?( p  x/ S* ~# _1 K
   
8. else
   & x1 a) t& ^1 a# ^+ ]
9.   k=fib(n - 1) + fib(n - 2);$ {+ g* v: [0 B0 b
   
10.   return;7 i5 Q+ o4 ~) U; H2 H! r  E& f
    
11. end4 [. S2 v0 n3 v
    
12. end

复制代码

运行结果：

1. tic;5 a2 ^& |  @8 ]9 r# m4 D/ O\" G; |\" M
   
2. fib(30): K+ n: A7 ]4 v7 z$ m
   
3. toc
   . E5 D0 L; Q9 C0 c1 A
4. 8 ?\" A$ x' z7 M) D- V& N2 [+ t/ k
   
5. ans =
   ; W* b' P/ l1 J
6.       832040
   $ M7 h* q% l5 }- p% C+ B
7. 2 W1 s\" s' i, N5 x, f
   
8. Elapsed time is 26.315245 seconds.

复制代码

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

0 f( _5 k& S7 F& `Forcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);
   1 U7 A! |; i7 B/ _
2. F(n)= which{2 A& T, d- w) Y( o
   
3.     n == 0,2 I& T1 Q3 c\" L8 V! _' m# w$ v
   
4.         return(0),
   \" y. G9 l* F\" K\" K& f7 A$ Y
5.     n == 1,
   ) y9 M# [1 t& [/ J
6.         return(1),
   . B6 e% N- Y\" Q% G
7.     return [F(n - 1) + F(n - 2)]
   % @. a2 a! q; o0 }2 j) H% _* Q: l
8. };
   : ]# `( @& e4 o( L& ]( \6 @
9. mvar:\" S5 T1 M- w( w, B
   
10. t=sys::clock(),; _4 N' c9 x7 x
    
11. F(30);
    ; [, ~& c3 n' i& [' h& Z
12. [sys::clock()-t]/1000;

复制代码

结果：
832040.
0.391  秒
5 e1 E* l# e& o- Q) E! h/ s8 k2 s
5 Y1 [9 d4 V9 \$ o5 A二者效率相差数十倍。

不特戈舟

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