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

forcal

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

) A  i; w% d) SMatlab 2009a的Fibonacci函数定义：

1. function k=fib(n)
   8 R  \: l# r) N6 L$ k
2. if n == 0/ v* F2 O% k! F4 k9 P9 Q
   
3.   k=0;
   7 J* \' q% J! z2 E
4.   return;
   ! o4 m2 q8 S, p1 }, p
5. else if n == 1
   # W9 i* o) n  b) w2 C: G3 C
6.   k=1;
   9 t. g$ a, T$ ~2 B, V8 ?( q$ ~
7.   return;3 B4 ^, H9 K. |/ s9 Z& T
   
8. else* [6 I\" }9 _6 A- `\" Q
   
9.   k=fib(n - 1) + fib(n - 2);) `, }& d0 h% P. d' P
   
10.   return;\" Q$ T) J( x0 d0 g# i
    
11. end  W. v' d/ d. X/ \% K8 ]* o  d
    
12. end

复制代码

运行结果：

1. tic;) C7 `6 d' e) `5 ]5 Z& w\" ~+ C4 D
   
2. fib(30)7 D. |! y, d, ~4 r7 e' |0 _
   
3. toc! ?5 h4 h7 Z$ N- d+ j) W
   
4. : e' b& e/ f3 p* P- ?
   
5. ans =9 L: Y6 [! Z\" e- k  E
   
6.       832040
   5 w' |9 f& g( |
7. 
   , n3 B( G, G3 v1 G0 H( \
8. Elapsed time is 26.315245 seconds.

复制代码

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

  i0 u" k7 g: h) T# KForcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);
   & r\" b5 W6 w\" J6 Z  U% ^3 g  m
2. F(n)= which{
   - m8 }\" A( q, g, Q6 K$ ~  W
3.     n == 0,% I: i, D4 m7 p
   
4.         return(0),3 a1 L: F( v- G\" M: s; d: l\" q
   
5.     n == 1,
   $ M8 Y0 {# s1 e9 M
6.         return(1),
     E. A2 {+ J0 O* u) V\" A# u
7.     return [F(n - 1) + F(n - 2)]
   ' Q\" K8 ?: ?: I) }6 I; Z$ \
8. };; W2 j4 ~8 c# q; T! j& _
   
9. mvar:
   * ?% x. T  b- V- Y& |6 K: D
10. t=sys::clock(),
    ) d. g5 T3 n/ Y& t- f6 c
11. F(30);; f+ v  i& D/ I/ a7 B
    
12. [sys::clock()-t]/1000;

复制代码

结果：
832040.
0.391  秒
: r2 I7 I5 i' I+ o
. q6 U4 o; V' K2 v6 A二者效率相差数十倍。

不特戈舟

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