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

forcal

以Fibonacci递归程序为例进行比较。
9 J5 ?/ q) ]8 _+ D! n* D; _" _
Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n)# d% I/ Q& j1 I1 p
   
2. if n == 0! B7 [' t5 v% u$ N, y
   
3.   k=0;
   / T! P( W\" Q0 g3 f8 I2 D( n  I
4.   return;
   0 Z8 [\" }) r  r5 f) @
5. else if n == 1& \* a8 U/ H! `2 T
   
6.   k=1;8 q# U0 |4 u8 J\" L4 B% M) S
   
7.   return;
   & D4 D& P( b8 X1 d+ B. o8 {) p
8. else9 ~8 ]* o7 n3 C3 O
   
9.   k=fib(n - 1) + fib(n - 2);( [7 ]) f# o- \. z\" @# R
   
10.   return;
    8 i4 q& m- ^) z$ {1 U; l( V+ ^
11. end& A1 S. e1 |, w2 T3 U: m( b
    
12. end

复制代码

运行结果：

1. tic;\" V% H, R$ E# X9 \& T
   
2. fib(30)6 z, Y3 ~0 \- b$ E/ ^
   
3. toc
   * z; t% a3 H! {! |3 ?) ?% ~
4. 
   9 t# e& u& m0 L\" }7 k; B. S  L
5. ans =1 M0 G: }( f  v' Y) g! u9 c+ {
   
6.       8320404 l1 O; u7 O4 w, T: r9 j
   
7. ' b7 p& k( N\" ~/ O
   
8. Elapsed time is 26.315245 seconds.

复制代码

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

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

1. SetRealStackMax(1000);& f+ u/ F\" @\" y; s' W
   
2. F(n)= which{
   \" ^  O7 G+ `( [
3.     n == 0,
   & M; E$ A! c6 w) J' z  g\" R\" J
4.         return(0),
   ; F3 o$ a( B2 ?
5.     n == 1,
   6 T9 Q$ T* m6 S) g6 C1 H
6.         return(1),
     Z6 u8 k. p1 P
7.     return [F(n - 1) + F(n - 2)]
   2 h' `2 G3 E9 o* M( b
8. };5 o$ l! J% e1 f4 K
   
9. mvar:
   1 ?$ w$ F4 B3 W8 D
10. t=sys::clock(),
    \" f* E& L\" D0 P
11. F(30);
    : L) \7 o3 H' w/ O' r& _' J
12. [sys::clock()-t]/1000;

复制代码

结果：
! }6 y! b- Q" O; q: u. t; Z: U7 T' g832040.
/ ]; s( R4 M' j4 Y& b6 L0.391  秒
& k2 x# t1 G2 x
二者效率相差数十倍。

不特戈舟

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