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

forcal

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

# `' k6 W/ Q) R- |. LMatlab 2009a的Fibonacci函数定义：

1. function k=fib(n): `3 t7 n9 ]* v. n' R6 F- ?% C9 m: [
   
2. if n == 0
   , s3 X, F9 x, R2 W
3.   k=0;
     T5 o; W0 H& n- ?\" K% P9 t7 A
4.   return;
   % D3 f\" `6 i# E( M
5. else if n == 1
   0 a: y+ y) t& O! I9 Q
6.   k=1;. }; |\" L) F& x8 R
   
7.   return;
   : Q. |* Z8 K9 U4 g
8. else
   # q; I! }3 P- u& D4 r
9.   k=fib(n - 1) + fib(n - 2);2 M: N6 n# Z9 G* C( n
   
10.   return;
    3 C3 s: f& d1 V4 ^  o
11. end# W( c  W+ i) G  x( I7 P3 p
    
12. end

复制代码

运行结果：

1. tic;
   5 r5 J, M' T5 L0 ?3 ~( p
2. fib(30)
   9 i4 l* z, n2 ^- T/ }- \4 y- Y( f
3. toc
   ( [; H- {6 @  V! a\" W
4. 
   : r% p9 P  W\" H8 l# x! L) o7 j
5. ans =
   % f6 r7 u2 u5 I
6.       832040
   0 |- g4 U\" h% X8 C  ]& w( P, S- ~- P
7. 
   6 w# F9 D* l$ C: t/ `' ^+ F5 s9 H2 c
8. Elapsed time is 26.315245 seconds.

复制代码

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
: Y/ S3 G! c! T
7 H. t: f3 ]: k/ L$ ~Forcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);( }% `5 ~6 A( j, c$ p4 s; L- m. @
   
2. F(n)= which{
   $ C$ R, J# l/ i7 E
3.     n == 0,4 C0 U' w; v& e- X2 W! v/ E
   
4.         return(0),5 o/ d  `\" C9 y; S
   
5.     n == 1,9 ~9 n$ K2 [  {7 I$ M5 E  S
   
6.         return(1),4 w( \9 p# }+ U! F5 W1 l
   
7.     return [F(n - 1) + F(n - 2)]
   \" _/ w: y. V7 E8 e( o
8. };* F6 J( {& c1 k
   
9. mvar:
   . V3 [! ]* o# _& ]6 u
10. t=sys::clock(),$ X9 E\" L  M% R3 _8 g
    
11. F(30);& B# ?7 c. A; E: T1 F
    
12. [sys::clock()-t]/1000;

复制代码

结果：
$ b+ v& Z- L8 ?+ t832040.
0.391  秒
2 i- }5 ?& O3 p7 s4 g! i& Y
二者效率相差数十倍。

不特戈舟

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