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

forcal

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

3 {- Q2 W* U! v5 M0 bMatlab 2009a的Fibonacci函数定义：

1. function k=fib(n)
   \" \. e% N! |% S* ~
2. if n == 0) P: B  g5 U5 r
   
3.   k=0;: \* k- G* s5 i. g% n: h
   
4.   return;) g; R: o8 z8 M4 n
   
5. else if n == 1
     S: _- @! g2 C( g/ c
6.   k=1;9 h. }6 L/ |$ T% Q: L
   
7.   return;
   ) M: C/ C# |% p2 \% ]1 S. N  b7 x
8. else
   . |2 g. n- B8 c$ s) [. }' T) v
9.   k=fib(n - 1) + fib(n - 2);
   ! X8 {% p0 n; l2 ?, c; V, h
10.   return;$ `. I0 \, Q1 d0 l1 t! |( C9 b
    
11. end
    ) m4 c( ^$ s( ]3 _! X; h\" r/ t
12. end

复制代码

运行结果：

1. tic;
   + ?- J, R# N- y& {( E- x* z
2. fib(30)
   + l' I! J8 Y. U# |  a) Z) h' ]
3. toc
   4 a2 d; W+ Q  N& O
4. 
   6 d7 V# \3 U& z( x
5. ans =
   % Q; v. e! g. ~, X8 e4 q
6.       832040
   0 A$ j! _\" m3 ~$ _* [: w+ f  x\" Z
7. : t- f3 }# ^4 o$ u1 Z8 F9 P% H
   
8. Elapsed time is 26.315245 seconds.

复制代码

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
! I2 s4 [! p+ D0 o( g" V# ]- J
; M7 O0 Y* {: l. p; a, m; s) G. cForcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);
   + ^4 e/ N: S5 y6 l4 [* I
2. F(n)= which{# I0 l% s! A$ |; N
   
3.     n == 0,
   ) h8 Z5 @+ b# [% @
4.         return(0),$ R6 N# {: J# ^- K3 o
   
5.     n == 1,/ I# D  w7 S1 I1 |
   
6.         return(1),3 S& j( v1 b2 S% r/ v* f5 i  Z
   
7.     return [F(n - 1) + F(n - 2)]: m$ ]! P- g6 R( z8 w0 s# R\" |' r
   
8. };& K. e9 L+ P  _: h/ Q9 b
   
9. mvar:
   - B6 M3 j) Y- B+ E2 o+ }
10. t=sys::clock(),/ j! {3 b1 M( X1 k
    
11. F(30);
    * z* P$ S6 e/ W8 f) {7 e
12. [sys::clock()-t]/1000;

复制代码

结果：
832040.
0.391  秒

$ o) ]6 ?/ M% p$ e3 @# v' {二者效率相差数十倍。

不特戈舟

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