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

forcal

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

+ k4 _  R5 ^" i" BMatlab 2009a的Fibonacci函数定义：

1. function k=fib(n)
   ) _% F) v' I% A5 r! h
2. if n == 0
   $ m3 G, T0 Q- |\" z8 d& F\" H5 ?
3.   k=0;9 W+ a! D# |9 x. H/ s) Z9 y
   
4.   return;6 u7 D& x& [5 n
   
5. else if n == 1' L\" q0 Z1 H, Z; z; ~% \% ~
   
6.   k=1;# B: m5 a' S3 K4 {! `  h\" f# H
   
7.   return;% D9 F- q' @' u4 }, f$ \
   
8. else
   / \) c9 i6 F& a% }4 L) w/ X
9.   k=fib(n - 1) + fib(n - 2);
   2 f: Z2 `) A& X2 F
10.   return;
    ! B\" z9 P* J2 y# k/ y% q) I4 R& C6 K
11. end: s, q+ p9 o5 ^/ t. B
    
12. end

复制代码

运行结果：

1. tic;
   6 d0 ~, q3 [( _% h4 ?2 ~# n% J
2. fib(30)
   , h+ a6 }- e: k  c6 d/ w5 B
3. toc
   $ `' O+ q, f% x# n* d) k& c\" a2 \
4. . }* _0 ]# q+ P7 ?# ^
   
5. ans =
   8 a* ~/ W\" k) g6 H/ a
6.       832040
   ) M6 O8 H4 W8 z! m9 f% e
7. 
   - Z7 _* p2 i% i\" k
8. Elapsed time is 26.315245 seconds.

复制代码

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
7 Q, Z4 f, t- {) ^6 B6 y
Forcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);
   6 @# E+ J+ c' {7 C5 \
2. F(n)= which{0 {' R/ a4 C# \! Q; V, e% B
   
3.     n == 0,
   / M+ \- d- q\" @$ _
4.         return(0),4 x, ]3 Y\" A+ r# j
   
5.     n == 1,5 [& x& C# b5 z4 s* z; L
   
6.         return(1),
   1 C+ z. J' H! H' l
7.     return [F(n - 1) + F(n - 2)]
   , u0 C- W. ?7 {) d: _
8. };
   1 V\" U% R/ ?' u' X5 R& A4 C/ w
9. mvar:
   * l) Y- g2 _( z
10. t=sys::clock(),! O7 f# s+ j+ g
    
11. F(30);4 P3 g- D\" k! R2 k
    
12. [sys::clock()-t]/1000;

复制代码

结果：
832040.
0.391  秒

  h# [4 f: n$ t二者效率相差数十倍。

不特戈舟

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