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

forcal

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

& l2 D" N; i5 ?* ]# T( M7 GMatlab 2009a的Fibonacci函数定义：

1. function k=fib(n)
   / M0 B, o. v- c: ]6 }& @# E2 v# h7 s
2. if n == 0
   . z4 m+ X. ?. H$ i7 j& K8 }  a
3.   k=0;
   8 E1 ^5 S  U, k/ b4 Q2 C* s
4.   return;2 n$ `/ R' ^. {
   
5. else if n == 1
   5 H. G' X7 {) X% @% M3 e
6.   k=1;* K, a' \9 z: C: {\" ^
   
7.   return;
   & n- ]\" y5 y5 g! }
8. else* k) ]  n. O' j+ p/ j/ L- T\" k3 p9 l
   
9.   k=fib(n - 1) + fib(n - 2);
     P  U# E% m1 R+ O# x
10.   return;
    4 D, E  \$ i2 t4 M% }2 R9 Z$ `
11. end
    8 Z! K) G5 b3 F4 Y6 C) p3 |
12. end

复制代码

运行结果：

1. tic;4 j2 s2 Q; c. }8 l& a
   
2. fib(30)
   5 d7 d' ?/ s2 p5 q2 a9 ]* R
3. toc$ [- X# r# T7 }; b
   
4. 
   ( _\" q/ H& `: Z0 D9 u
5. ans =
   & L/ J& I3 P+ [( e& S, \  H
6.       832040. y! j  H7 ]- e0 E2 D$ m! {' y
   
7. 
   ; w5 Z; S1 k$ @) T3 M& p
8. Elapsed time is 26.315245 seconds.

复制代码

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

/ M! ^7 Q( F2 a% _; ^' fForcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);
   - s3 g  O0 @) B( j2 N/ R3 y
2. F(n)= which{
   6 O/ v0 y% _) D! S7 f: h; V
3.     n == 0,
   9 U. j8 ]; \* l9 A  s( ^+ t
4.         return(0),
   + C1 P\" I0 w2 t3 d3 i1 [* D/ a
5.     n == 1,
   5 q; f& e5 K% |6 q8 f
6.         return(1),
   2 @4 j0 m6 V5 n. e
7.     return [F(n - 1) + F(n - 2)]% G2 R2 ^3 X9 M# p5 h
   
8. };) |! F4 C5 Q  m# J
   
9. mvar:) t$ b! S  f3 H. X0 n. z5 h$ P3 C! O
   
10. t=sys::clock(),
    ; c5 l\" a( |: X0 b& b
11. F(30);  s+ n4 q4 u0 j. ~
    
12. [sys::clock()-t]/1000;

复制代码

结果：
7 s5 R4 @* j1 r832040.
" T2 R( U# P+ L1 D& C0.391  秒
0 n& ?, K' W8 X/ h: F
( r+ r& R! H( B1 k: E$ |; Q# y二者效率相差数十倍。

不特戈舟

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