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

forcal

以Fibonacci递归程序为例进行比较。
% ~  L' l$ v+ F7 r! f; g' b
Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n)
   # f2 |) F9 `1 P6 o$ \' P- X
2. if n == 0
   * O4 `) E/ \1 y7 l
3.   k=0;
   + L- R- Y6 N. c' Q0 p
4.   return;$ z, d3 T7 |, ]
   
5. else if n == 1* j% c8 i, ~+ v
   
6.   k=1;
   , m$ m  L. q- ^0 R: H/ P\" }
7.   return;  T2 M+ ?9 M9 ^) L
   
8. else9 i1 A: F# _  B7 Q
   
9.   k=fib(n - 1) + fib(n - 2);- W$ A, K' S# Z1 L, `
   
10.   return;
    ! G7 Q$ F7 G# q! ^
11. end- }( P\" W: i  a9 A8 S6 y7 b- x\" s8 ~\" I
    
12. end

复制代码

运行结果：

1. tic;
   8 M! N) t. x7 y, J( S) O
2. fib(30)$ O\" r# ]; t. w: B\" t2 ]' p
   
3. toc
   - \$ r/ @2 P# V( s0 _% C  M
4. 
   $ c$ A/ N$ c6 ]3 p9 ?1 @7 b
5. ans =9 ?$ Q* U\" O\" C  i$ Y$ Z
   
6.       8320405 j3 V/ Q) ~7 a
   
7. : c. E\" x+ O\" y
   
8. Elapsed time is 26.315245 seconds.

复制代码

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
. w  v' r( a. \5 B# Q1 B) S
/ O2 Y$ j/ `! [- wForcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);+ ]6 s8 ]1 }& h# H  q
   
2. F(n)= which{- h3 j9 Q, i( a+ G$ L# B  f
   
3.     n == 0,! H- a: X0 j6 {, Q
   
4.         return(0),
   & p5 t3 U: m' u: ?2 b1 {8 e7 }
5.     n == 1,2 ?  t$ _' D7 u# d) b
   
6.         return(1),* t% S- H: q; R& ]$ c) N6 t$ p
   
7.     return [F(n - 1) + F(n - 2)]( ]\" X7 @9 _8 P- `; H7 p) U
   
8. };
   ! V# V. b) D8 o9 a- l
9. mvar:
   + Y8 G* o; [  e
10. t=sys::clock(),
    + H% Y9 G# q' G- |1 V6 j% J$ z
11. F(30);
    5 A% O) J) D  ~0 V2 c
12. [sys::clock()-t]/1000;

复制代码

结果：
832040.
0.391  秒

1 I% J, W7 h2 B二者效率相差数十倍。

不特戈舟

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