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

forcal

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

Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n)
   ; \2 L. l6 u\" g4 B, R
2. if n == 07 V$ s1 O! C, G. r2 B5 P( D4 e% B
   
3.   k=0;
   1 ~5 j& u) B( y, t  h
4.   return;2 c0 L5 U* Z$ H) Q) I/ l' V
   
5. else if n == 1
   6 L6 K1 X3 `7 \\" Z' f/ k- ^
6.   k=1;
   ( j4 ^+ `0 i0 K* C5 j& `, s( W
7.   return;
   - }; Q4 v/ e! b: z, J& l& L
8. else$ \+ Y4 i' X- z* i\" I. g& u
   
9.   k=fib(n - 1) + fib(n - 2);1 X/ a4 F; j; R\" H' R
   
10.   return;( u8 r$ J7 ?$ o! [1 e
    
11. end! h. G5 S& w\" r9 c\" a: F
    
12. end

复制代码

运行结果：

1. tic;
   ; |0 w( L) g3 s% m
2. fib(30)* e% }8 p9 k& z3 b
   
3. toc% t+ s  z1 y3 B1 b: `
   
4. 
   # X  ~/ g9 E1 R) j/ A9 T- U6 t0 z
5. ans =4 N' K% y\" O4 t' J
   
6.       832040
   ' F\" g. i0 \6 o- U  G! q/ E2 m
7. / @) N$ G! Q0 Y- a1 a
   
8. Elapsed time is 26.315245 seconds.

复制代码

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
, S/ E0 P& q5 D& Z
Forcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);
   , B4 ]' l$ X# X/ Q! m7 }
2. F(n)= which{' x& M1 P9 u5 J% m9 ^1 R
   
3.     n == 0,# p- M( y5 E: a  p$ R1 q5 J9 G
   
4.         return(0),! V: f( [: t& ~4 W
   
5.     n == 1,
   7 W( f\" Q5 l) b0 I; J% u# \
6.         return(1),
   + U* z/ N' Y# o  z5 |. V9 j, I; R
7.     return [F(n - 1) + F(n - 2)]$ F% {- Y4 N5 }\" |3 ]
   
8. };5 H! o5 I9 m. t6 U) Z. m1 Q
   
9. mvar:
   4 K; D\" ^\" H. Z: i8 D% a1 J
10. t=sys::clock(),
    4 I0 L7 t7 `! {8 P/ y, |* r
11. F(30);
    9 E, p% r/ W' t+ d, D
12. [sys::clock()-t]/1000;

复制代码

结果：
8 x( e3 K1 Y2 p9 V832040.
  D6 z3 D( D( m; s0.391  秒

' B( X* q. f4 }( N+ ?8 Y; c9 w3 d8 i! f二者效率相差数十倍。

不特戈舟

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