极限测试之Matlab与Forcal动态内存管理效率

forcal

这里用一个不太常用的小例子说明一下。

matlab 2009a代码：

1. clear all. C. `2 ~* t: R( z2 @
   
2. tic
   ! P6 R\" m: s# l2 r6 I( S- f7 l8 T
3. s=0;7 G% |1 f$ M! V4 `, @
   
4. for k=1:1000
   5 ~4 X1 C; ^5 f
5.   for i=1:1000' g; B4 p) @# ~6 W0 \+ R4 z+ [* S
   
6.     a=linspace(2,2,1000);- f. [/ K, W# Y3 {
   
7.     s=s+a(i);8 O$ w) ?( b3 O\" s8 _
   
8.   end! k# b, v8 G; p* E\" v+ B3 F
   
9. end
     v! L6 [; O$ C
10. s( G% ~* U, i. L& d
    
11. toc1 P2 Z/ z. n) o3 \7 J( \2 ^
    
12. ' U\" {/ n6 `  ~
    
13. s =
    # {5 V7 H' P) I, K
14. 
    ) g7 \3 h# d. E0 v4 @
15.      2000000
    % H3 q: D1 @2 F) ^
16. 
    $ e8 v8 i' g0 S8 Y% B
17. Elapsed time is 18.325900 seconds.

复制代码

程序运行时内存比较稳定。

0 g9 h  g0 H: w* }6 R2 E/ i5 ?－－－－－－－－

Forcal代码：

2. !using["math","sys"];
   
3.   [7 E; u1 J( v. D+ a* k5 {+ V
4. mvar:* v2 p+ D2 H4 q# b
   
6. main(:a)=
   
7. 5 [2 e* J7 E7 n# F! w, A& q3 Y
8. t0=clock(),; O  ?2 m8 P7 O7 J6 \5 }' R
   
10. s=0,
    
11. : \  Z9 t2 d. v5 m3 v1 Z
12. k=0, while{k<1000,9 @: }. j# F; r/ C
    
14.   i=0, while{i<1000, a=linspace(2,2,1000), s=s+a.i, i++},  // 嗯，a.i 就是 a(i)
    
15. # j  y6 @! w* Z, y/ F$ Z
16.   k++
    
17. 4 Z8 I. ^' b$ k5 C  [& l\\" x
18. },
    
19. 9 b8 i9 X* q0 F! e, s/ j
20. s;- T8 o+ f+ ?  o' E  E2 e+ K: ?( J2 L
    
22. [clock()-t0]/1000;

!using["math","sys"];<br /> <span style=\\"display:none\\">  [7 E; u1 J( v. D+ a* k5 {+ V</span> mvar:<font class=\\"jammer\\">* v2 p+ D2 H4 q# b</font><br /> main(:a)=<br /> <span style=\\"display:none\\">5 [2 e* J7 E7 n# F! w, A& q3 Y</span> t0=clock(),<font class=\\"jammer\\">; O  ?2 m8 P7 O7 J6 \5 }' R</font><br /> s=0,<br /> <span style=\\"display:none\\">: \  Z9 t2 d. v5 m3 v1 Z</span> k=0, while{k<1000,<font class=\\"jammer\\">9 @: }. j# F; r/ C</font><br />   i=0, while{i<1000, a=linspace(2,2,1000), s=s+a.i, i++},  // 嗯，a.i 就是 a(i)<br /> <span style=\\"display:none\\"># j  y6 @! w* Z, y/ F$ Z</span>   k++<br /> <span style=\\"display:none\\">4 Z8 I. ^' b$ k5 C  [& l\\" x</span> },<br /> <span style=\\"display:none\\">9 b8 i9 X* q0 F! e, s/ j</span> s;<font class=\\"jammer\\">- T8 o+ f+ ?  o' E  E2 e+ K: ?( J2 L</font><br /> [clock()-t0]/1000;

结果：
2000000.
40.766 秒
* }# K. K- F/ l& ^
; R$ A. S9 _( B7 @7 k5 x2 _程序运行时内存不稳定，时大时小。该程序导致Forcal垃圾收集器启动约10次，垃圾收集前内存消耗大，垃圾收集后内存小。
8 C- ^1 @2 ]8 ?, e. j  h- R: q因垃圾收集器多次启动，故耗时较长。

－－－－－－－－－－－－
3 p. ^# n* ~  B9 Q8 A" C
以下将a=linspace(2,2,1000)放到了oo{  }函数中：

2. !using["math","sys"];: y* H1 D+ I8 L: w
   
4. mvar:9 Y( D, t$ s& t# l1 K+ h3 U
   
6. main(:a)=8 x7 D; E! C  y1 I
   
8. t0=clock(),* r5 \: t5 ^. h8 f/ @. g, B! W
   
10. s=0,+ |: B' V. @( A7 M
    
12. k=0, while{k<1000,
    
13. / q6 V8 J8 S/ w3 M% x/ [
14.   i=0, while{i<1000, oo{a=linspace(2,2,1000)}, s=s+a.i, i++},  // 嗯，a.i就是a(i)
    
15. \\" |3 i, @& z\\" a8 v
16.   k++) o\\" u/ u6 W/ l  p3 K
    
18. },
    
19. * V( r1 L+ a8 h. Z$ k  f
20. s;+ D2 n* E- s; n
    
22. [clock()-t0]/1000;

!using["math","sys"];<font class=\\"jammer\\">: y* H1 D+ I8 L: w</font><br /> mvar:<font class=\\"jammer\\">9 Y( D, t$ s& t# l1 K+ h3 U</font><br /> main(:a)=<font class=\\"jammer\\">8 x7 D; E! C  y1 I</font><br /> t0=clock(),<font class=\\"jammer\\">* r5 \: t5 ^. h8 f/ @. g, B! W</font><br /> s=0,<font class=\\"jammer\\">+ |: B' V. @( A7 M</font><br /> k=0, while{k<1000,<br /> <span style=\\"display:none\\">/ q6 V8 J8 S/ w3 M% x/ [</span>   i=0, while{i<1000, oo{a=linspace(2,2,1000)}, s=s+a.i, i++},  // 嗯，a.i就是a(i)<br /> <span style=\\"display:none\\">\\" |3 i, @& z\\" a8 v</span>   k++<font class=\\"jammer\\">) o\\" u/ u6 W/ l  p3 K</font><br /> },<br /> <span style=\\"display:none\\">* V( r1 L+ a8 h. Z$ k  f</span> s;<font class=\\"jammer\\">+ D2 n* E- s; n</font><br /> [clock()-t0]/1000;

结果：
( @8 J- |& A1 `' ^2000000.
4.609 秒
5 C4 \  ]9 X  I
可以发现，Forcal耗时大大减少了，远小于matlab耗时，这要归功于oo{ }函数。
: i/ C' \) ]; ]在Forcal中，函数oo{ }不仅提供了运算符重载功能，而且会自动高效地回收垃圾。通常，所有涉及到对象的代码都要放到函数oo{ }中。

我就在你背后

太强大了 看不懂啊

forcal

我就在你背后 发表于 2011-8-2 16:08
太强大了 看不懂啊

; a+ D& u- M$ R4 b2 c函数linspace(2,2,1000)放到循环里，每循环一次就会产生一个垃圾对象（一维数组），主要对比Matlab和Forcal如何处理垃圾对象和进行内存管理。

我就在你背后

forcal 发表于 2011-8-2 18:18
: B% M4 [. G; ?# d函数linspace(2,2,1000)放到循环里，每循环一次就会产生一个垃圾对象（一维数组），主要对比Matlab和Forc ...

恩 我在研究研究，谢谢了

sxjm567

我反复看了多遍，好帖，得支持