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

forcal

以Fibonacci递归程序为例进行比较。
* g& L, x# ]# T$ `" @
Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n)
   ; M& R' S7 d- h9 Q9 I1 s0 _: s
2. if n == 0
   % R, P3 \  ~6 ?( j* e3 D& W
3.   k=0;
   ' v5 \' _1 I0 h& b8 w3 c, u% \
4.   return;
   3 w: {2 U$ a7 R9 c% X
5. else if n == 17 p$ G  S6 w- n6 i3 Y# s
   
6.   k=1;
   . A( D  q: H8 ^, L
7.   return;
   3 g( Q  Y\" K# @- o3 Y
8. else
   # E$ ?. A! k% y! \
9.   k=fib(n - 1) + fib(n - 2);& n4 u2 j$ B, k: L
   
10.   return;- a8 d; |\" b' ^3 F) W0 E$ h
    
11. end
    9 l; s# K# L5 K- z  S3 f
12. end

复制代码

运行结果：

1. tic;
     s5 `6 ^$ J. d% P, I
2. fib(30)
   + P+ a' t5 Q/ s8 }4 x1 H! a
3. toc
   % l% g/ U+ e: A! s' K: S+ G
4. 
   & N\" g! D, h+ E& {
5. ans =* v, y1 e7 ]2 k2 d; m/ f
   
6.       832040
   ( h$ j% t  w0 ~* V. v8 j
7. ( G4 Z  M  }3 Q6 t! u( c5 U
   
8. Elapsed time is 26.315245 seconds.

复制代码

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
) }, Q' b+ j: ^5 T
Forcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);
   * f  @) c8 y# G- v! W& O
2. F(n)= which{- P3 t. y1 w$ a
   
3.     n == 0,/ |4 |\" N: ?( \: O( Z1 a
   
4.         return(0),
   4 e; T\" S# H$ ?, C
5.     n == 1,0 i$ z$ ^+ B' l+ X) g
   
6.         return(1),8 `3 I, i0 q$ ~+ F7 D4 o% D, `
   
7.     return [F(n - 1) + F(n - 2)]
   \" Z9 A6 j4 D! g) x) }# ~8 A* s
8. };
   3 U* D$ k! c* i1 }) v5 v; ~
9. mvar:/ y\" r\" @( w) W: e8 y\" s/ a
   
10. t=sys::clock(),
    # Y) |. X; ~+ J5 f\" A
11. F(30);2 T$ d  s% S; c) K/ r* X
    
12. [sys::clock()-t]/1000;

复制代码

结果：
, C% n% Q1 f# b* v' u5 i) ]832040.
" ^( ~. G" ?% @* I  q0.391  秒

二者效率相差数十倍。

不特戈舟

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