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

forcal

以Fibonacci递归程序为例进行比较。

+ P, }0 @+ K3 V' o6 ?Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n)5 N% G+ o7 Y, h
   
2. if n == 0
   1 ^; w. L/ f4 x2 i( P6 x
3.   k=0;; }. n, M3 L! ^
   
4.   return;
     x0 M- W; F  V4 N
5. else if n == 1; n. F4 E! |( N\" j9 U+ X
   
6.   k=1;- x% z. Y; |0 N* b, B) J$ O
   
7.   return;
   ' m  x9 F, w1 [
8. else5 \' C& u8 J3 S# g. l5 @
   
9.   k=fib(n - 1) + fib(n - 2);( D0 I3 [6 _! B6 E: I
   
10.   return;
    / O* P8 `+ h# L
11. end' H. m( t' |\" D8 |6 U) T
    
12. end

复制代码

运行结果：

1. tic;
   4 I* `4 a% t+ u: L0 H
2. fib(30)
   9 Z\" p3 b/ j7 g\" A% x# S8 J' p
3. toc3 Q, q5 U/ ~- Y$ s. n- s1 _7 H3 c
   
4. $ w8 G$ G4 {* W% q; z' o6 G- P' K2 k
   
5. ans =
   - p8 E; \7 ^* D0 K/ y
6.       8320404 _7 m( R6 ~/ d
   
7. 
   8 Z; q+ v( n8 E
8. Elapsed time is 26.315245 seconds.

复制代码

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

Forcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);
   ( A& |1 |  N8 j8 P$ X! J5 E
2. F(n)= which{' ~4 K6 H\" V; u1 E
   
3.     n == 0,& v9 e) ~' [0 J& }/ ~\" m% Y
   
4.         return(0),
   9 [) Q, v+ d! d7 g- [
5.     n == 1,
   2 A& R0 m6 G4 P: M! C+ n3 a7 K
6.         return(1),
   ' a( v: j2 i& z) B! \
7.     return [F(n - 1) + F(n - 2)]/ ]' Y, r  K5 I; h: x5 g. Q
   
8. };
   % ~3 s/ ]4 H) v
9. mvar:5 `\" `& Y7 ^% L
   
10. t=sys::clock(),8 u7 Q' ?% L: J( K6 r
    
11. F(30);
    $ I- j) Z/ u9 R- g, f% t\" R- ]
12. [sys::clock()-t]/1000;

复制代码

结果：
832040.
, V: r$ M+ `+ c: z1 Q0.391  秒

二者效率相差数十倍。

不特戈舟

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