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

forcal

以Fibonacci递归程序为例进行比较。
9 T- b; v9 {& N2 t- a/ r- Y
. R% x* w0 g+ a8 z) W: Q" @Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n)
   % P2 L1 u7 E, D: j+ t
2. if n == 0
   , {6 a2 l4 @- D% e7 }* q  V. v( F& Q
3.   k=0;! s\" A# Z8 f\" L- P1 B9 m, \
   
4.   return;0 P( t( I* Z- s; ?' }0 Q. X* L
   
5. else if n == 1! z% F% i+ U( A5 K  @7 L! S! Y
   
6.   k=1;& A3 c% J8 \2 F5 }4 o8 u/ G6 c  n
   
7.   return;
   ; n  G7 h' W5 j
8. else; Q+ s$ H, }+ b1 d* O
   
9.   k=fib(n - 1) + fib(n - 2);
   0 O\" r4 b! B7 |6 g
10.   return;
    9 K* v6 c; u; R+ ^  L$ Q# Y+ X
11. end: r# n) H\" P4 e* u6 ]
    
12. end

复制代码

运行结果：

1. tic;' b2 g- }0 l2 l
   
2. fib(30)- t2 P; g7 k4 O  c* a
   
3. toc$ O1 B5 Q& {/ p7 o. Q( [* S  P
   
4. . X7 Z' e  R$ U, @
   
5. ans =
   7 @! }) u! K5 e3 Z' ?6 y2 M
6.       832040
   + J, B6 L. i# j0 D7 |
7. 0 M2 ^3 ]: S* E1 {0 ?: H1 F6 L
   
8. Elapsed time is 26.315245 seconds.

复制代码

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
" C9 T; Q9 N) [( I
Forcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);; [. @* t' q( B! y/ F
   
2. F(n)= which{/ `0 Z1 L; M) U2 J  i
   
3.     n == 0,% A! R& a. G8 s# H% k* x
   
4.         return(0),2 d: p) Y. x; Y' _% |0 b\" X$ Z
   
5.     n == 1,( F9 q4 a% D7 R0 k& A/ G& n
   
6.         return(1),
   . Z) i, V( A1 d5 |7 e3 o7 S) C5 g
7.     return [F(n - 1) + F(n - 2)]
   / m) h% G4 [3 Y% n1 _( x
8. };\" X: V# Y) v. _
   
9. mvar:
   5 d7 A\" f+ I# d% d+ b1 m4 N
10. t=sys::clock(),
    . B! A, N4 x4 }
11. F(30);' l, P) G& ?. ^! t' ^; R2 P, N
    
12. [sys::clock()-t]/1000;

复制代码

结果：
832040.
0.391  秒
- R, k" b4 f/ n7 P5 g/ \
二者效率相差数十倍。

不特戈舟

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