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

forcal

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

+ @) |; o9 o! P4 I+ I# Zmatlab 2009a代码：

1. clear all% d; x5 N1 e! a8 h' @
   
2. tic\" I- T; d. d7 j
   
3. s=0;& Z3 m3 H& _9 u
   
4. for k=1:10004 w6 v& i3 [3 x. h# [: \7 v; E3 |
   
5.   for i=1:1000
   ( ~+ H/ y) E2 m2 ^\" }$ x# h
6.     a=linspace(2,2,1000);5 b- o4 H0 z* q$ ~2 Y% D. r2 h8 D
   
7.     s=s+a(i);) C) e2 u\" k, v' n
   
8.   end% ^5 i) m% ~) c
   
9. end2 Y1 p: Z: C8 q% Q
   
10. s
    + c/ s/ I  k6 V$ h2 D
11. toc6 j: k( g+ C! M( S1 l6 ]
    
12. 
    # b! b- e. F5 u9 R4 A3 W
13. s =\" y; O6 U! R0 J! T5 |$ E+ \# s
    
14. $ c\" d5 Z! c\" A, e$ {  r
    
15.      2000000; F' r0 S5 l& b7 N8 u/ a2 y/ [
    
16. 
    % @5 z! \. a; Y$ M' p\" t
17. Elapsed time is 18.325900 seconds.

复制代码

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

－－－－－－－－
' _$ h- r5 \" V. D8 X
Forcal代码：

2. !using["math","sys"];
   
3. 1 X2 ]; K: E% v' p
4. mvar:
   
5. ; C% {4 e0 P2 u. Y# I+ p& W( X: f
6. main(:a)=, X1 s! @0 b9 }* W8 T
   
8. t0=clock(),$ V9 @2 ?, g* K7 X5 }& p6 J\\" a/ |
   
10. s=0,9 h' Q3 D\\" ?+ `3 f
    
12. k=0, while{k<1000,
    
13. $ o# D7 \  S5 _8 C/ l3 n
14.   i=0, while{i<1000, a=linspace(2,2,1000), s=s+a.i, i++},  // 嗯，a.i 就是 a(i)& L: l+ D9 j1 `6 D7 V\\" h, x
    
16.   k++
    
17. ; i* L7 t4 S7 n& e# M! ~
18. },6 Z* u- E# i0 I2 S. l5 M+ R
    
20. s;
    
21. / r3 e1 y! ~: R7 e
22. [clock()-t0]/1000;

!using["math","sys"];<br /> <span style=\\"display:none\\">1 X2 ]; K: E% v' p</span> mvar:<br /> <span style=\\"display:none\\">; C% {4 e0 P2 u. Y# I+ p& W( X: f</span> main(:a)=<font class=\\"jammer\\">, X1 s! @0 b9 }* W8 T</font><br /> t0=clock(),<font class=\\"jammer\\">$ V9 @2 ?, g* K7 X5 }& p6 J\\" a/ |</font><br /> s=0,<font class=\\"jammer\\">9 h' Q3 D\\" ?+ `3 f</font><br /> k=0, while{k<1000,<br /> <span style=\\"display:none\\">$ o# D7 \  S5 _8 C/ l3 n</span>   i=0, while{i<1000, a=linspace(2,2,1000), s=s+a.i, i++},  // 嗯，a.i 就是 a(i)<font class=\\"jammer\\">& L: l+ D9 j1 `6 D7 V\\" h, x</font><br />   k++<br /> <span style=\\"display:none\\">; i* L7 t4 S7 n& e# M! ~</span> },<font class=\\"jammer\\">6 Z* u- E# i0 I2 S. l5 M+ R</font><br /> s;<br /> <span style=\\"display:none\\">/ r3 e1 y! ~: R7 e</span> [clock()-t0]/1000;

结果：
3 T! r( p* m) |# p6 ?& D2000000.
; L4 x: U7 h! U40.766 秒

程序运行时内存不稳定，时大时小。该程序导致Forcal垃圾收集器启动约10次，垃圾收集前内存消耗大，垃圾收集后内存小。
因垃圾收集器多次启动，故耗时较长。
0 r- v% G6 |3 u+ ]/ s4 }1 ?
－－－－－－－－－－－－

5 ^; d8 R3 ]+ l- g! T* L以下将a=linspace(2,2,1000)放到了oo{  }函数中：

2. !using["math","sys"];
   
3. ! \+ ~! p( C4 J; A4 f
4. mvar:, i8 R\\" T* r/ n5 G, [
   
6. main(:a)=! u1 }\\" i* x* g
   
8. t0=clock(),
   
9. ; U' I& A0 _% `2 Z$ G) h
10. s=0,
    
11. % M: {6 n4 o) e: C, E% a
12. k=0, while{k<1000,
    
13. 9 h( b\\" J\\" e# @# P
14.   i=0, while{i<1000, oo{a=linspace(2,2,1000)}, s=s+a.i, i++},  // 嗯，a.i就是a(i)
    
15. ! u& C3 Q% I, F+ W2 ^
16.   k++
    
17. ' @4 _* m. q5 v# h
18. },8 z; J/ j2 j% |+ H& @
    
20. s;) N3 m% {+ W4 e3 ]5 T
    
22. [clock()-t0]/1000;

!using["math","sys"];<br /> <span style=\\"display:none\\">! \+ ~! p( C4 J; A4 f</span> mvar:<font class=\\"jammer\\">, i8 R\\" T* r/ n5 G, [</font><br /> main(:a)=<font class=\\"jammer\\">! u1 }\\" i* x* g</font><br /> t0=clock(),<br /> <span style=\\"display:none\\">; U' I& A0 _% `2 Z$ G) h</span> s=0,<br /> <span style=\\"display:none\\">% M: {6 n4 o) e: C, E% a</span> k=0, while{k<1000,<br /> <span style=\\"display:none\\">9 h( b\\" J\\" e# @# P</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\\">! u& C3 Q% I, F+ W2 ^</span>   k++<br /> <span style=\\"display:none\\">' @4 _* m. q5 v# h</span> },<font class=\\"jammer\\">8 z; J/ j2 j% |+ H& @</font><br /> s;<font class=\\"jammer\\">) N3 m% {+ W4 e3 ]5 T</font><br /> [clock()-t0]/1000;

结果：
; |: L' U6 ~% q0 S2000000.
4.609 秒

9 m5 ~2 W+ Q1 b$ [* G  V可以发现，Forcal耗时大大减少了，远小于matlab耗时，这要归功于oo{ }函数。
在Forcal中，函数oo{ }不仅提供了运算符重载功能，而且会自动高效地回收垃圾。通常，所有涉及到对象的代码都要放到函数oo{ }中。

我就在你背后

太强大了 看不懂啊

forcal

我就在你背后 发表于 2011-8-2 16:08
  E( l# y0 o  u/ x1 j9 I9 B太强大了 看不懂啊

. q2 r: [0 ?6 q, q函数linspace(2,2,1000)放到循环里，每循环一次就会产生一个垃圾对象（一维数组），主要对比Matlab和Forcal如何处理垃圾对象和进行内存管理。

我就在你背后

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

恩 我在研究研究，谢谢了

sxjm567

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