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

forcal

以Fibonacci递归程序为例进行比较。
$ ?% `5 e2 W& t
Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n)
   - H1 h: e+ p- w- Z0 \
2. if n == 0
   : I! s7 Z\" X5 ^. n  y9 K% f
3.   k=0;
   : f7 {7 V* ^8 p1 B, a# c$ u) `. I
4.   return;
   ) U6 u4 x6 S( n' m8 \1 l
5. else if n == 1. @3 Y5 M- m* c; \! {
   
6.   k=1;
   \" v- I7 i- G4 D' \& `( b
7.   return;
   9 `6 P9 y% Z\" g! B! g& j/ ^) U
8. else$ c3 `1 [+ o1 t( d4 [- n  \
   
9.   k=fib(n - 1) + fib(n - 2);- E$ `  X6 M8 [( \$ w$ h
   
10.   return;
    7 L. m# v5 M, t6 E  U2 K, A
11. end
    , w' U. h; o9 [; F
12. end

复制代码

运行结果：

1. tic;# s  d! O2 Z# N7 c+ W6 m2 Z7 B7 t7 N
   
2. fib(30)
   . W% F7 b$ k  C# V, x
3. toc, V1 a5 s4 P& l: F% `6 B- a
   
4. & c- h# y; Y$ r4 _/ B\" U8 z
   
5. ans =
   $ ?4 ?! C2 y\" R/ f8 X
6.       832040
   8 E; @& t) l6 y; U+ }1 O
7. 5 t9 k* W% ~; L0 e; C
   
8. Elapsed time is 26.315245 seconds.

复制代码

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

3 q2 q3 A2 j/ PForcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);
   / G\" L) _' o6 `! i
2. F(n)= which{
   9 @\" Q0 u0 e$ J% }6 j3 E
3.     n == 0,
   / a, F- @8 \+ o0 a5 }& K. l9 E% o) ~
4.         return(0),
   , Z$ r/ q0 S$ a\" K3 w+ x  U
5.     n == 1,
   4 `  w! Z9 ]# u$ u# Q7 J4 @
6.         return(1),
     |) ~3 t3 @/ [. l
7.     return [F(n - 1) + F(n - 2)]* U( U0 D; s; g8 P- J9 d
   
8. };
     x) W' ^  `2 e3 L
9. mvar:6 `\" u$ o8 J0 `1 ?2 O0 P
   
10. t=sys::clock(),
    # F: o1 a* d; G# L. J0 w* V+ g
11. F(30);
    - }3 k, ]3 ?& P# [3 J9 F2 W6 T
12. [sys::clock()-t]/1000;

复制代码

结果：
% R9 R9 }5 F8 O; m; k7 _2 ]832040.
0.391  秒

二者效率相差数十倍。

不特戈舟

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