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

forcal

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

2 W# c* j' n) N% [' [Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n)
   & P1 s\" E! `' U1 l
2. if n == 0
   9 q8 U) b6 X6 k  r# {% `$ R0 l) w
3.   k=0;
   3 I' C' q  n% o7 ~1 c
4.   return;
   + d: D! t  ~9 u4 |$ ?5 j8 i- y/ j
5. else if n == 1, {( b# a* V& |4 @5 g
   
6.   k=1;2 H, L& u: c. W% J6 K
   
7.   return;
   6 h3 n6 u( Q: Z' m3 U; I, T
8. else& H* ]\" _# p- ?5 `
   
9.   k=fib(n - 1) + fib(n - 2);7 I* z% Y3 c/ w2 B; Y; n  X. |# o& V, \
   
10.   return;5 {1 D6 Q, w, C/ r& o
    
11. end
    , K, _0 J/ a/ \! ?) j- b( n
12. end

复制代码

运行结果：

1. tic;6 {6 Y* X( H: x; l& U! T
   
2. fib(30)! F1 R4 N8 [: V9 b8 P
   
3. toc
   ; t1 C- p' b: L\" @! ]) }6 y
4. , ^1 \4 T7 l9 g7 U& Q9 h\" |: h
   
5. ans =6 M. K\" o5 s; P2 D+ x
   
6.       832040
   ! }! j* O6 V+ w3 c
7. - _4 K\" B# d4 u8 g\" W, W
   
8. Elapsed time is 26.315245 seconds.

复制代码

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

5 U6 B4 R' X6 a* v1 P0 sForcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);
   : w1 ]% l: F; G8 M7 d
2. F(n)= which{
   5 Y1 m3 P9 O4 {( K/ B& C/ U
3.     n == 0,
   . f# x1 g4 M\" W
4.         return(0),
   * d1 o) `& F' ~
5.     n == 1,3 a2 f3 E9 y9 F' Y
   
6.         return(1),# @- r. I* O7 K
   
7.     return [F(n - 1) + F(n - 2)]; W( k# R' h  j3 c% a4 y8 i
   
8. };
   \" A, ^. z; K( q
9. mvar:
   5 Q& B. O6 D* A. L- @
10. t=sys::clock(),
    9 V% d1 z- [- k! h4 B, K  D, G. D- q
11. F(30);
    \" G% ], \) g5 M# g; a
12. [sys::clock()-t]/1000;

复制代码

结果：
0 e, E% D! {) @4 R832040.
* r- x' K" G# R) E0.391  秒

二者效率相差数十倍。

不特戈舟

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