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

forcal

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

) q0 }' a- M. ^' x3 sMatlab 2009a的Fibonacci函数定义：

1. function k=fib(n)
     o( I: v: z* a
2. if n == 04 \% w2 L+ ~, C1 |
   
3.   k=0;
   8 u' G* i5 X6 R9 U) t. J2 X
4.   return;
   ! J3 ?9 h+ @/ L0 U\" ]7 [
5. else if n == 1
   ; o( `5 W& ?: p/ P0 e
6.   k=1;
   1 o! A' a' f2 u0 C. N1 k2 P, g
7.   return;% a- I2 _2 D9 ?( X9 C9 I
   
8. else7 C6 o& ]) C' e0 N9 @# m' q
   
9.   k=fib(n - 1) + fib(n - 2);
   + m' y9 h! q& V\" }) C$ B4 n
10.   return;4 U# z; ]* n4 }. a; r% V6 x( c
    
11. end
    \" `8 v' f/ E5 D( m; W6 T, k+ ?
12. end

复制代码

运行结果：

1. tic;9 s$ `; r( U% I7 O8 x
   
2. fib(30)
   ) w2 l, c! X; P- i& k) o
3. toc0 L% @: \0 W\" J% S3 k/ {
   
4. 6 b0 x6 l+ c0 N8 j# H: L
   
5. ans =
   5 G. \9 i0 N6 Y  \1 |. b$ n! `3 |
6.       832040
   + |5 [/ ?$ W8 w, R& H& k
7. 
   * I1 g% {& u0 W( s; _6 C
8. Elapsed time is 26.315245 seconds.

复制代码

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

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

1. SetRealStackMax(1000);5 ]7 J3 }4 ]. s1 {5 ]8 @
   
2. F(n)= which{# ~& N' O) T- m\" a5 P
   
3.     n == 0,
   % R% c  ?5 ?5 |' A
4.         return(0),
   # {; }# w( V, G\" I5 w0 S) c# q
5.     n == 1,5 C/ ?1 k2 E7 h6 a& k. O/ ^6 y
   
6.         return(1),
   5 ]4 t' r' B3 ?
7.     return [F(n - 1) + F(n - 2)]9 }! ?, R, j6 S9 @
   
8. };! ?& g* j- @* [
   
9. mvar:4 T3 T- Q# e( O  z
   
10. t=sys::clock(),. g8 Z; w# e$ h& d7 k0 \5 Y) y. c  L
    
11. F(30);. D4 K2 k; f; r4 T* G
    
12. [sys::clock()-t]/1000;

复制代码

结果：
, M. |& a  q' n* A2 S% c7 o832040.
1 N$ x1 l8 E- ~) O$ Z+ S! @0.391  秒

二者效率相差数十倍。

不特戈舟

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