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

forcal

以Fibonacci递归程序为例进行比较。
' \& s% g" s% W( X
Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n)4 v+ k8 l2 C2 l$ L9 v
   
2. if n == 09 l\" j3 Z& C0 C\" D7 t# q
   
3.   k=0;
   2 N6 w/ C! a5 z% T, ^
4.   return;  d3 s0 Y- `6 i% F% i. o
   
5. else if n == 1' ?\" I  D$ v+ ?0 D3 J5 _8 [
   
6.   k=1;1 ]' k9 p* G# j) Q* J: _9 r- N+ w
   
7.   return;
   3 @% g8 z; M\" ?3 c, H/ U
8. else* C. A; n8 W\" G; E
   
9.   k=fib(n - 1) + fib(n - 2);% }/ E& n3 z\" y/ E9 ?1 q3 I$ k2 C
   
10.   return;
    8 i& k6 K: ~( J3 e0 w% O/ N' k' @
11. end: ]9 R: i8 V+ {/ i5 c1 j. b. t3 r
    
12. end

复制代码

运行结果：

1. tic;
   \" p6 d\" W# _! H% Q' d+ R
2. fib(30)
   $ _! r) R! Q- V4 ?
3. toc+ R& `, S, r8 `* [- p' e' M
   
4. 
   % u) X# {7 d\" b1 V6 D6 I% g1 l- b2 `
5. ans =1 Y  j$ t) F* z2 ~
   
6.       832040& y/ G3 c7 V/ q- ~. o
   
7. ! d3 \6 u) d: A7 ~) \
   
8. Elapsed time is 26.315245 seconds.

复制代码

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
5 E9 \2 b5 U; C% q% ?) O5 Y* A8 A, K
4 i) W+ ?: f5 b# m; J  AForcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);
   # [4 [\" T5 U) W+ g9 z( D
2. F(n)= which{
   ; \1 X8 z: Y# v' ?/ K4 r6 c
3.     n == 0,9 e- B4 G# c  L+ i
   
4.         return(0),. W\" _. M% c, F
   
5.     n == 1,6 }- L0 U! h7 v, j\" f$ l& _
   
6.         return(1),7 g( [% a7 O% t/ |. ^  m4 m* B
   
7.     return [F(n - 1) + F(n - 2)]
   ) {& v# u! K8 R- J% f: m  u- H8 T5 D: Y! ~
8. };* r\" g7 K\" J0 i\" ?- u+ c( ^
   
9. mvar:
   0 ~8 `1 `' X5 i  _
10. t=sys::clock(),
    + j: j. A# m\" \- k
11. F(30);$ t3 S. Q5 x/ i! C
    
12. [sys::clock()-t]/1000;

复制代码

结果：
: h3 L7 [2 l0 Q3 B- G2 o3 G832040.
, p; K2 ]. O& D% x* V8 }' A. ~; y' V0.391  秒
) a% _6 W' Q8 J9 I* A$ g9 o6 L2 T. ?
二者效率相差数十倍。

不特戈舟

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