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

forcal

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

. B9 M: j! h: ?' z2 ~Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n)
   4 z7 `0 E7 A3 J$ T
2. if n == 0; Q. H3 R) u' ]. j
   
3.   k=0;
   ! X- l& l5 Z; b, p' k6 o* q
4.   return;
   # M& |3 e( i\" z
5. else if n == 13 j% l4 }7 l6 e: k, _( Y
   
6.   k=1;0 Q& f) d( i) `0 X! h
   
7.   return;# |% |+ J7 [) ^7 S$ C
   
8. else1 b\" P# v9 z3 ^1 E  d
   
9.   k=fib(n - 1) + fib(n - 2);
   7 L) {2 M& ~6 a7 Z8 T1 P- P
10.   return;% ?6 z; ^5 u7 B
    
11. end
    5 y: x: g6 g' @4 z& f1 o
12. end

复制代码

运行结果：

1. tic;* Y9 z1 N$ u0 m7 V6 A, y
   
2. fib(30)  c  i+ X\" K. i8 f
   
3. toc+ o\" a- [2 W/ `/ M4 B% F+ ^; I
   
4. & {  D  ~! u7 `' U2 [& D9 `% Y/ U
   
5. ans =# H# u! t6 @\" N
   
6.       832040
   ) L2 l1 f3 G) d/ g! }2 `
7.   R; z0 q2 _) ?2 P9 C9 K
   
8. Elapsed time is 26.315245 seconds.

复制代码

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

; O8 U& C% v' B* @! {Forcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);
   # f& c% l4 o  m6 ]' L: P
2. F(n)= which{
   # e/ `+ P/ [! j
3.     n == 0,
   % h1 b! {; u4 O* U
4.         return(0),
   ( a5 b( N* C  i! Q6 Y
5.     n == 1,6 b; [! ?% }4 ]8 h; Q! J1 H
   
6.         return(1),
   & s4 B3 u+ l5 M, e9 \
7.     return [F(n - 1) + F(n - 2)]
   6 V& p4 ]* s0 @7 [& n
8. };7 j6 w1 ^6 \2 I
   
9. mvar:
   3 e9 ?; z2 ~% Q' a) L
10. t=sys::clock(),
    ) p, {/ _* @, r1 E* C9 N( {8 s
11. F(30);
    $ c1 b0 c6 i. a  L: {
12. [sys::clock()-t]/1000;

复制代码

结果：
' v7 ~8 b) ]  L, W. R5 A832040.
5 s( }, a. ~, V* ?! c0.391  秒
3 I' X3 Q- d' l+ u+ Y
二者效率相差数十倍。

不特戈舟

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