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

forcal

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

Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n)' U; B% v* C. Z* m/ ]9 |6 z
   
2. if n == 03 \* q' r9 f$ C  u
   
3.   k=0;1 x/ w' k3 @7 `\" u8 c- Z
   
4.   return;\" @7 @, @$ }7 `8 h* L
   
5. else if n == 1
   + {! R& `$ r- N$ s
6.   k=1;
   0 o& U9 F; m+ L, m( ]  y% @
7.   return;
     Z- @, R, Y\" x, k! N1 w7 g
8. else, v\" F9 t: {3 v6 B. J4 n
   
9.   k=fib(n - 1) + fib(n - 2);
   9 J# V: g& T- P7 M* F5 C
10.   return;- }, W1 @6 f3 N) c1 U
    
11. end
    # G( U# n# @5 ^1 B& I0 @
12. end

复制代码

运行结果：

1. tic;\" ?. k- Z\" A* f7 o) h. V, Q1 F
   
2. fib(30)
   # }$ k; G% I2 V4 I& b. b
3. toc! N5 v' [\" _3 C\" o; G
   
4. 
   4 I8 ~6 @3 g. l/ a
5. ans =) y( K& y3 ?; |- i6 b
   
6.       8320400 D5 K4 ^. B& d9 {# Z
   
7. ! w% @# k3 k8 n2 s9 }6 F5 |$ [/ `; D
   
8. Elapsed time is 26.315245 seconds.

复制代码

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

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

1. SetRealStackMax(1000);/ {' q% T5 x. ?+ [
   
2. F(n)= which{
   + |& z( d8 R2 e0 l: E
3.     n == 0,
   + K% K* @0 }0 D0 J$ f8 E3 j
4.         return(0),$ Z' {: ^5 z: @1 y9 g. r
   
5.     n == 1,: ]4 q, c: k3 p
   
6.         return(1),/ Z! _/ i. z/ b  Q) v3 |7 M* A\" a
   
7.     return [F(n - 1) + F(n - 2)]
   , U7 T5 O1 A8 d* c1 `' a+ `
8. };8 O4 m; r\" H3 s/ A5 v4 }' I+ i9 f. H
   
9. mvar:7 Y1 A! a: ?5 E. Y
   
10. t=sys::clock(),7 a! M! |2 n% d* h
    
11. F(30);6 G) I7 j* J8 @# R8 \
    
12. [sys::clock()-t]/1000;

复制代码

结果：
4 n" d6 ?* V& _/ P832040.
' ]/ c) v2 M; m0.391  秒
( w7 {4 W# `( H$ a" `- o7 E& F# X! ?
- {: P1 ?9 w: e' v% ?7 V/ t二者效率相差数十倍。

不特戈舟

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