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

forcal

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

Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n)& s4 v% `; _1 j% O+ r
   
2. if n == 03 |( ~$ I1 G; B0 \+ M; \1 t
   
3.   k=0;2 w6 X9 V\" x, w$ _# ]$ P( b
   
4.   return;3 h& H8 a7 p, C1 E! K2 p5 t
   
5. else if n == 1
   & d8 p4 i/ ]3 \' B, }: W2 H
6.   k=1;. c\" x$ v+ c3 M$ O/ ^, i  I4 l
   
7.   return;( \6 ]7 R  K, Q% k
   
8. else
   , t& {2 i7 l+ J$ r4 K5 B, Y
9.   k=fib(n - 1) + fib(n - 2);* z( ~( @- H6 O- r1 `4 ?6 f
   
10.   return;
    * z+ R9 a4 u9 {8 l
11. end
    2 ]2 ^# i; }1 Y. X
12. end

复制代码

运行结果：

1. tic;
   . ^9 v, c\" q- z# G4 q
2. fib(30)
   ) {4 _5 k/ Y* M
3. toc
   ! ~7 h* V1 f6 N
4. ; A! G8 U* \1 W& r
   
5. ans =, B; K0 [1 I( x8 Y0 l5 `\" |8 g$ u
   
6.       832040
   & J' n9 |% }1 s5 m1 G9 ^
7. 3 i1 E( q- K4 {8 d# P
   
8. Elapsed time is 26.315245 seconds.

复制代码

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
% j1 {& D" p  T
% `& `$ J* v8 }# b7 y8 G( jForcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);
   , k' a* X# g# u$ C& e- D
2. F(n)= which{4 I6 i4 V. K0 j+ L; }8 U' P
   
3.     n == 0,
   & r3 B3 K0 W) z# t; R
4.         return(0),
   ' s! S) W, r/ X! [/ X9 ^; t3 t$ q
5.     n == 1,0 e, \8 g* V9 l3 @7 p) R
   
6.         return(1),
     w. m+ \- u\" [) x6 G
7.     return [F(n - 1) + F(n - 2)]
   1 a# N6 U' D) K* _' u( ]9 z) S, ?( c1 p. N
8. };9 I. C1 e6 ]( h& a& Q
   
9. mvar:
   1 t6 Z2 ^% c: I, w) l! k% t
10. t=sys::clock(),
    2 w7 M) }\" H7 r$ D# u( `( }
11. F(30);
    , T) F5 }. P% G. ?
12. [sys::clock()-t]/1000;

复制代码

结果：
832040.
8 m7 g0 g" j' ]& L( c0.391  秒

: ?6 g' Q; N, n  o2 R3 P3 j7 v5 W二者效率相差数十倍。

不特戈舟

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