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

forcal

以Fibonacci递归程序为例进行比较。
/ I# n3 N) B0 v# }
/ E/ P3 U# E  }" i- V% I# dMatlab 2009a的Fibonacci函数定义：

1. function k=fib(n)
   \" J& L\" [* \1 z
2. if n == 0
   5 @\" z2 g7 R+ A0 Z
3.   k=0;' y! H\" s9 G! S. o7 _
   
4.   return;; Y) d\" |/ h% s. @
   
5. else if n == 1( g1 |3 M7 q) G, e
   
6.   k=1;1 f' b+ W# I6 C) d: R* n5 h  Y
   
7.   return;
   ( E1 C, A, _& e& {5 f
8. else% {$ N4 a, T* D
   
9.   k=fib(n - 1) + fib(n - 2);& P5 V4 Q, h8 }% l( ~0 O) y
   
10.   return;- o6 b# ^\" a% Z. k- f6 d, J2 j
    
11. end+ I# W5 A  q% I  {6 t8 \! V
    
12. end

复制代码

运行结果：

1. tic;
   4 x1 G* Q3 _2 L) e) R4 q
2. fib(30)4 w& J& Z0 `( I8 x- M
   
3. toc, L- j  _6 o% s# V- j
   
4. 3 p3 y* h% U! t: G
   
5. ans =
   ; p\" \* l, a2 ?; c5 v$ a- q$ c
6.       832040\" V/ r2 L7 y0 p5 q3 N/ f- v  Q8 S5 Z
   
7. 
   ( ~( A- d9 r9 J) G4 D+ K
8. Elapsed time is 26.315245 seconds.

复制代码

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

8 ^- T0 m( a9 @+ l! j  Z& xForcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);
   - M& E\" y5 T1 _9 g7 L
2. F(n)= which{* E/ u0 r! a* l. F: I* D\" A
   
3.     n == 0,: o+ l# v- _+ S+ i7 M. `
   
4.         return(0),
     w  V( j9 j\" g0 n. z2 P) @
5.     n == 1,
   3 w\" g! i; q3 s/ p- M
6.         return(1),
   . i$ |6 P2 V& V- x  O5 s! i
7.     return [F(n - 1) + F(n - 2)]
   ! \# a, X1 s# \# q
8. };
   ) {/ O# G5 A# J+ }/ o
9. mvar:8 R# |* u9 w% Z& @/ l
   
10. t=sys::clock(),  @  U& o0 P\" f# E  \
    
11. F(30);0 H+ M% `# w) D( i# c
    
12. [sys::clock()-t]/1000;

复制代码

结果：
/ c; r% {3 _( O. D7 ?& _832040.
0.391  秒

二者效率相差数十倍。

不特戈舟

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