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

forcal

以Fibonacci递归程序为例进行比较。
3 {3 L8 F/ B4 `0 d$ x3 M3 ]
9 K, \7 ?3 R* q8 R+ oMatlab 2009a的Fibonacci函数定义：

1. function k=fib(n)
   , j% ]5 S7 {$ @6 z  L
2. if n == 0
   / J\" |7 P8 R\" v7 M5 a* [5 B6 b
3.   k=0;
   7 w4 s/ V6 H) m, O0 _( }: ]$ C\" V
4.   return;
   / ^( m% L/ `+ R3 L3 y  g! i8 o
5. else if n == 16 I) U; ^5 }9 S9 J/ l: }* i
   
6.   k=1;
     F4 l6 N. K+ E* P0 X3 o3 g. c
7.   return;
   ( x% Z7 P5 b  K6 h# S: S
8. else4 k7 [4 t8 ^5 r5 x
   
9.   k=fib(n - 1) + fib(n - 2);7 g& ?8 T9 v6 [. ~
   
10.   return;
    ! z6 `# w. m9 k! [; w
11. end! x$ D/ `6 p  H. Y9 E: U+ V4 H4 e
    
12. end

复制代码

运行结果：

1. tic;  u* f( I2 g  r: M/ t) r\" Z0 C
   
2. fib(30)2 P% O& o4 S: L% s\" A% y7 c
   
3. toc( A  j6 i0 d: L- m. d1 s4 y
   
4. 
   + A' |8 S$ ~) t+ B* A\" i$ ]8 U9 B3 ^
5. ans =
   - k) J- ]5 l) ~0 G1 A
6.       832040
   . t, d# A7 g  Q8 d  S
7. . K) \( F9 u0 A( A
   
8. Elapsed time is 26.315245 seconds.

复制代码

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

# ?5 t8 c1 j" |9 t4 ^% b. t( tForcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);7 H/ y3 @\" \3 n# K& S
   
2. F(n)= which{
   * N, J, b0 }, }
3.     n == 0,
   + M* e/ s: R\" J7 h1 {, n/ S1 V
4.         return(0),
   , [1 \, A. p9 ]- m
5.     n == 1,
   ; x, |( b1 J0 m) K  L3 |0 Z
6.         return(1),
   \" }' u3 a  Y- j
7.     return [F(n - 1) + F(n - 2)]
   # k- z. J7 W8 r\" b7 G  X/ b. D
8. };
   ( `, S7 b. o7 f\" G2 @$ n\" r
9. mvar:/ x1 H% H% S& |9 q
   
10. t=sys::clock(),; F$ r9 S! _2 b* Y1 b
    
11. F(30);5 _0 I4 E* L0 |( k' D( Y
    
12. [sys::clock()-t]/1000;

复制代码

结果：
8 ^# [1 S7 C0 ]$ E3 ^832040.
0.391  秒

" D! s( }5 C8 B( h( A+ y7 _二者效率相差数十倍。

不特戈舟

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