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

forcal

以Fibonacci递归程序为例进行比较。
" z+ o) w4 J) V; q
5 ^% N% W4 v5 @+ O! LMatlab 2009a的Fibonacci函数定义：

1. function k=fib(n): u7 _* w. E5 x3 Z5 O. ~
   
2. if n == 0
   % z+ c/ q- E* C6 }
3.   k=0;2 k  c, v) e/ _( V
   
4.   return;) A% X- P; r% D7 l; Y* Y' r
   
5. else if n == 1
   9 {, |\" u+ V( U; Z8 C$ _
6.   k=1;
   . G7 R: X& Z- }) q' }. ~5 w
7.   return;
   7 P4 z) |' y( T
8. else
   % _! t8 j0 ~2 V% D2 d. v2 j7 Q8 m
9.   k=fib(n - 1) + fib(n - 2);1 R# X8 S: i3 i& g! e/ N8 e
   
10.   return;; s4 ?% E8 K# M0 ~) u. u  e
    
11. end
    ) U! h; ]' O2 F; k; b
12. end

复制代码

运行结果：

1. tic;7 l$ H. |0 c2 P! s2 Y
   
2. fib(30)
   $ ?+ t) G5 S9 P2 H$ j# D\" \' p
3. toc
   $ Q8 ^$ D\" K\" o+ }; N' _
4. 
   ( n$ [- Z; D$ p8 X
5. ans =
   : ?% M3 w$ b1 ~9 ~# g- D
6.       832040: y* m7 P6 J& W
   
7. ' y  M1 X\" K) f; V2 u
   
8. Elapsed time is 26.315245 seconds.

复制代码

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
2 ~' c0 @% U- i7 G' v8 W8 w2 h$ h
Forcal 9（OpenFC演示）的Fibonacci函数及代码：

1. SetRealStackMax(1000);
   2 N) h& _( ?8 ]; K6 b4 K\" V7 ]
2. F(n)= which{\" `  m) i+ b, X; p' g5 @) e
   
3.     n == 0,
   ( c2 Q8 V  ]8 d\" Q/ @) w3 ~\" c7 \
4.         return(0),
   - {- k0 e# F9 V4 E- `- A& D\" _
5.     n == 1,, a/ ^  t9 I2 ?5 M: v( v5 F# f4 F  z
   
6.         return(1),
   # a- Q; Y' ^/ t
7.     return [F(n - 1) + F(n - 2)]
   - t, T' w\" M, t9 m% k1 M
8. };
   , s\" Q# K. Z3 L
9. mvar:/ L1 K- p1 k$ W) u1 X4 V% ]; s1 @
   
10. t=sys::clock(),
    0 c1 Q! ?/ S  ]\" G; R0 A
11. F(30);
    & \8 d# l7 }8 w% @7 G' F
12. [sys::clock()-t]/1000;

复制代码

结果：
$ t- P$ w5 i9 W* ^0 s832040.
3 G/ I" m0 i% r7 F/ c: o5 m5 O0.391  秒

二者效率相差数十倍。

不特戈舟

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