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

forcal

以Fibonacci递归程序为例进行比较。
" `4 o! I+ u4 k. p0 w+ j
Matlab 2009a的Fibonacci函数定义：

1. function k=fib(n), S: Z\" z6 R) p$ P( B( l% a8 {
   
2. if n == 0  b$ i& R\" P: s1 M/ E1 {
   
3.   k=0;
   ) v* m4 e3 U. |
4.   return;5 L! }# ?2 o- u+ [& [0 e% l& H$ J
   
5. else if n == 1& Z9 \* y* S! Q6 T8 T
   
6.   k=1;3 C1 N. H, w6 e\" r& f- F, C
   
7.   return;
   . R& W( x0 a0 a8 L4 r0 X$ c% ]
8. else
   1 `9 `3 e8 d. _' U# {) b8 |
9.   k=fib(n - 1) + fib(n - 2);\" \8 ^& F6 B) r$ ]
   
10.   return;
    - F\" s6 E9 L0 Z. l8 H4 z
11. end9 }6 ^+ a5 W) J9 v3 Z, l6 ?
    
12. end

复制代码

运行结果：

1. tic;4 Z9 R, k. d0 H* V
   
2. fib(30)& u' j$ G  H$ O\" s+ ?$ N/ z
   
3. toc9 k2 X/ n4 r9 b' h+ I7 o: ^5 R$ i
   
4. $ x! |: ?# {4 v. @
   
5. ans =
   / c1 P! y! `2 m5 I* o7 O: ^! l6 O
6.       832040\" L5 I/ V) b6 G! [) A' `
   
7. , u\" ]' f9 P% g3 m( l2 P
   
8. Elapsed time is 26.315245 seconds.

复制代码

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
+ T8 z- G# k1 z- G1 V  E8 L
0 g8 }2 w" R3 N) RForcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);
   ) t( h7 a5 w$ A: O
2. F(n)= which{
   ' p$ J! s2 l4 m; x2 B+ P# y) a8 ?
3.     n == 0,2 x: X/ I2 _7 L+ z/ S; z/ u: k* t
   
4.         return(0),0 X; _+ L, A8 h6 m
   
5.     n == 1,
   \" S* _% t& P8 T6 V4 v- Z
6.         return(1),
   # P; b! _/ m$ z/ J. S% J
7.     return [F(n - 1) + F(n - 2)]
   & w) W- c$ s2 Y  W8 p( r* v4 u
8. };. D$ g9 s  L  t2 H
   
9. mvar:, x\" a- N' T$ @8 M
   
10. t=sys::clock(),- S8 C; v' u0 f
    
11. F(30);) Q\" q( R7 t, u5 O
    
12. [sys::clock()-t]/1000;

复制代码

结果：
. E: D1 g- W1 C( u; h* j832040.
: }. j0 m" C0 g8 ^0.391  秒

) _: V" K# U# A" u9 X: `& @二者效率相差数十倍。

不特戈舟

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