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

forcal

以Fibonacci递归程序为例进行比较。
* F0 F" s+ ?% u0 P4 ]1 y6 a8 U
Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n)
   . A0 ^, P; ?5 ]' s) W: A
2. if n == 0
     q; u. L\" m1 f; W- i, Z' x\" N
3.   k=0;& a  b9 A: O\" L' W
   
4.   return;
   0 O- T! |3 ?2 i, B+ V
5. else if n == 1
   2 e\" V! Y. P& [* t* D, z8 l( Q
6.   k=1;9 t7 d: C+ C0 b$ T/ }  |6 h! _3 q
   
7.   return;
   * Y% w% a+ e& R) c2 R7 g
8. else5 F6 P+ {! }1 d
   
9.   k=fib(n - 1) + fib(n - 2);7 |1 y8 p6 W) D7 g) D) k4 ~* |* H- |
   
10.   return;
    . r! `1 |! D- M! p; }
11. end
    7 Z  x# k4 l3 n* F) [; [  J
12. end

复制代码

运行结果：

1. tic;% b/ U, U, z) [* {0 h' {
   
2. fib(30)
   1 g  z) t& _% O# n6 c' x
3. toc% z- t6 c' I) r& O+ f& M/ J4 X
   
4. 
   : Q6 D$ ^; v6 O% [; b. z7 ]! X
5. ans =; h8 m* ?: X# G% d% |7 k
   
6.       832040
   . q4 u* t) q7 T
7. 4 v( ]' ~; }\" u5 {( B) `
   
8. Elapsed time is 26.315245 seconds.

复制代码

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
% i3 }! q( y. g8 m: X8 F' O  Z
9 c( P9 g  c$ @2 L+ f% NForcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);  z\" D  Q( @. C) x( h
   
2. F(n)= which{' b; @' m4 j$ e0 i4 ]7 n3 D
   
3.     n == 0,. d& @; j2 I4 Y2 R0 e
   
4.         return(0),
   + y& b& b0 x% V8 D% c( ~% b
5.     n == 1,
   ' E; ?; y; O( t+ a) P( v
6.         return(1),+ \. t& A& o( I
   
7.     return [F(n - 1) + F(n - 2)]* u9 u: c4 G0 i1 u# m' Z3 @# x
   
8. };
   ; T! v0 c5 n8 J
9. mvar:$ {, }5 V* C+ j% F, F
   
10. t=sys::clock(),3 Z# k* E. U9 p  @5 u
    
11. F(30);: u+ s. N( [3 d6 L; y  E2 w( q* f
    
12. [sys::clock()-t]/1000;

复制代码

结果：
; J7 k) w) X5 W2 J832040.
8 O  P2 l5 P6 G2 [9 H: V: r0.391  秒
3 F4 E- V4 z6 y3 S( f( B, l# T
二者效率相差数十倍。

不特戈舟

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