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

forcal

以Fibonacci递归程序为例进行比较。
: o' {5 A' l' J8 U% k2 X2 j
" q, t% R. e8 _! \Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n)0 r; c% U8 H; |
   
2. if n == 0
   & W$ p& E! }! ^: k7 ]+ u
3.   k=0;* y8 X/ y) V) z5 `* H$ f7 p& D
   
4.   return;
   5 P( E! c8 z1 x5 B' j7 Y
5. else if n == 1
   ( U: z0 w1 \) E, G
6.   k=1;
   9 c* d6 }. {$ {/ F2 o* Q/ Y5 o
7.   return;
   / q8 O% p! E8 r7 I% ]/ U
8. else/ L: q9 _5 t3 b( i
   
9.   k=fib(n - 1) + fib(n - 2);$ ]$ c\" }6 K+ O$ a3 q1 \
   
10.   return;
    3 U8 `+ v8 Y# o6 o* [3 W+ y
11. end$ r! R( g$ T$ X& ?
    
12. end

复制代码

运行结果：

1. tic;8 k, M( F+ c; S
   
2. fib(30)+ v6 E' c; f4 _+ q3 k' c( g5 [
   
3. toc$ h6 R$ \! g; n
   
4. 
   ! ?! }2 O# V+ p$ v
5. ans =
   , h\" Y0 W% G, d: N1 D) v
6.       8320408 f; {# a, W2 Z
   
7. 
   6 W- Q. \/ q. u
8. Elapsed time is 26.315245 seconds.

复制代码

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
. x+ H! V$ Y8 Z- A
( I$ C3 x8 O' P# d# n* xForcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);\" O) N5 r1 [\" Y  J/ K! I
   
2. F(n)= which{
     O9 B3 X! H! v: a
3.     n == 0,
   ' X3 B9 i) P5 K, I! }( W5 V8 {
4.         return(0),
   1 l+ z! C' {( [, J8 D6 I; H
5.     n == 1,& h: w  d: Z# `. {' ?3 u+ D
   
6.         return(1),
   \" o, Z( u9 r4 O+ U- t  o3 ~\" ~& h
7.     return [F(n - 1) + F(n - 2)]
   ( ?+ G  D. E% D# y5 V8 S6 \
8. };
   / t8 d: y$ l5 {& w- b, O! C. |
9. mvar:* a. R/ y8 T! ~2 ]  Q: w
   
10. t=sys::clock(),! U5 ^; `: h( d2 z  A5 D
    
11. F(30);
    * z3 ^+ Q: d% ~/ N/ z$ R9 g
12. [sys::clock()-t]/1000;

复制代码

结果：
832040.
) d+ r; e2 g4 z# _, V2 M# a1 F- v0.391  秒

  E  n5 B( x/ T/ ?' a1 \二者效率相差数十倍。

不特戈舟

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