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

forcal

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

4 U! z1 }# O6 J( |: TMatlab 2009a的Fibonacci函数定义：

1. function k=fib(n)
   . G5 X7 ~6 H4 r& ]4 W- S4 U
2. if n == 0
   0 F# V: a8 x, |3 t
3.   k=0;
   9 m* G% o5 `6 r' B3 t0 D
4.   return;
   : k% d0 E. Z: M+ [
5. else if n == 1, D# R8 ^8 o& Z/ ]
   
6.   k=1;0 I/ X: ^  C1 ?+ G
   
7.   return;, e$ q. X9 x( Z
   
8. else6 s6 D- D  @) H0 k( d% U. I
   
9.   k=fib(n - 1) + fib(n - 2);
   ) H8 f* ^. q1 q, i# F/ H
10.   return;
    . G% i3 h) r( m' S& l4 e, e
11. end
    # T4 _  I; v& u& G7 Q, [
12. end

复制代码

运行结果：

1. tic;# `+ t% Y. F6 @! |' ^( m
   
2. fib(30)
   9 M' w\" F3 ?, R
3. toc
   - t$ k+ i# k* V2 a3 c
4. 5 j/ z\" S# A, o
   
5. ans =
   9 P4 f) R\" K6 r2 J
6.       832040
   / i% [- u  t3 O( {! C4 j\" X
7. 
   , h1 Z/ g9 P* I1 L, L2 J  s- q7 \
8. Elapsed time is 26.315245 seconds.

复制代码

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

6 s3 R5 `+ `- ^2 H: A0 A( N4 }8 u$ EForcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);
   : J\" W/ p1 t3 P6 i3 X0 t- g# m$ k
2. F(n)= which{
   4 j& s, j/ ]6 I. n; x: h
3.     n == 0,# \3 P% f0 L\" `5 E
   
4.         return(0),
   * `6 C. k5 v\" p6 K% F6 H) m
5.     n == 1,0 V. C5 x2 S* Y0 ^
   
6.         return(1),3 A; I1 V. U0 H/ F0 x* [
   
7.     return [F(n - 1) + F(n - 2)]\" a/ l5 g' Y8 W9 x9 F
   
8. };8 e, q, o/ D; n! U; V+ T4 H
   
9. mvar:$ r. i# q: i8 d  h# A' }
   
10. t=sys::clock(),
    1 A/ I$ ^6 x; L
11. F(30);\" f. O. W3 I& o$ k' P6 \
    
12. [sys::clock()-t]/1000;

复制代码

结果：
832040.
0.391  秒
8 f1 o  D2 @8 C
二者效率相差数十倍。

不特戈舟

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