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

forcal

以Fibonacci递归程序为例进行比较。
8 J# r) z: O; S; H1 D' y
Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n)
   & m/ n/ E$ h2 ]
2. if n == 0. j: o* N4 H4 u9 \. z5 _6 K
   
3.   k=0;2 ^7 p8 }' |8 \' l, J, |6 h7 d
   
4.   return;' z2 w# s: S$ {7 M0 }# a% g# `
   
5. else if n == 1
   ( ]5 \+ c' G# E1 l
6.   k=1;
   8 D; G3 ]8 j, J- {! _. I$ W
7.   return;, a5 H/ m$ w\" q  u) l
   
8. else
   ' O- F0 ^2 N' n, ~\" f4 @& d7 d/ F
9.   k=fib(n - 1) + fib(n - 2);6 L* k# H, [- Y% C\" K
   
10.   return;
    9 s0 \% k  w/ A/ f5 M7 U, R1 H; p$ L
11. end
    6 k% b6 O' E- ?4 H& I9 J  w3 u* {
12. end

复制代码

运行结果：

1. tic;
   * L; _3 K# {' G
2. fib(30)4 h; m9 e6 ^8 \6 g5 \' J. z% x
   
3. toc5 B8 t2 d; k8 j4 \& _
   
4. 
   / y; o* ?6 ?, Z& X( k: ~2 W
5. ans =
   \" ~) H& O! t% L# U: ]
6.       832040
   6 x' d( k+ E5 v
7. ; c5 [7 S0 P$ H$ R
   
8. Elapsed time is 26.315245 seconds.

复制代码

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

' O9 }- v  t/ ]# \/ R' {* m1 zForcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);  n# Q3 g: ]) I3 u3 K
   
2. F(n)= which{% @1 ^0 @( i! z8 z\" y+ H- X4 a0 N, f
   
3.     n == 0,
   / ?7 _; k2 m0 ^6 @1 D+ \
4.         return(0),3 J) V0 p  h4 X( y6 {- u
   
5.     n == 1,! e' A/ \0 @* u: e3 @) A/ x
   
6.         return(1),& o/ O: P6 n, u9 s- W
   
7.     return [F(n - 1) + F(n - 2)]
     [/ E2 I% l/ U4 O* |' i
8. };
   ! Q1 L1 P# K3 `7 I& |( a# H' j
9. mvar:, G# L3 r3 V: a% e) }
   
10. t=sys::clock(),
    \" `8 @, H' _6 a# g
11. F(30);
    & z3 n9 v9 s+ ?, b  |+ j) n
12. [sys::clock()-t]/1000;

复制代码

结果：
832040.
0.391  秒
: t) ^1 H3 A3 ?, L4 p
+ I" C" S4 F2 b1 e/ ]6 J二者效率相差数十倍。

不特戈舟

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