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

forcal

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

. U& q1 [! @1 S. h& kmatlab 2009a代码：

1. clear all
   \" Y; ?3 F; b6 ^% J4 d7 y+ I  w
2. tic7 ]! ?\" \\" O1 Y
   
3. s=0;
   9 H$ b+ ^  [- T- J# ?3 f  L  }9 l
4. for k=1:1000
   7 T4 O; |7 [( V; v1 v9 C9 j
5.   for i=1:1000
   * c6 l5 _( L7 [- a8 w/ _: f
6.     a=linspace(2,2,1000);4 D# K1 m% m7 v* H( \4 s
   
7.     s=s+a(i);3 j) }, n# y* X. Z( s+ u& N1 N
   
8.   end$ W+ ~8 I' f. l! N: a) t
   
9. end
   - v9 n8 d4 U6 v- }. z
10. s4 H\" d5 L0 R\" l: v' ~5 X. B; R- K
    
11. toc
      S% r: Y\" v\" u1 J7 [7 O; W
12. 6 p9 O7 B7 }) Q* g: N
    
13. s =( a( Y2 F, M5 P6 ~\" U* o
    
14. 9 E, a8 i2 ~6 C/ v
    
15.      2000000$ ^' O5 W% l2 |# F
    
16. 
    ! B6 f2 ?/ n6 |: J
17. Elapsed time is 18.325900 seconds.

复制代码

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

－－－－－－－－

Forcal代码：

2. !using["math","sys"];
   
3. # j6 q3 q3 y% L# x
4. mvar:& D2 g& Y# \7 C: F% e
   
6. main(:a)=! u3 |' e3 x) k% t
   
8. t0=clock(),
   
9. 6 i, M/ p. o' _9 `, g
10. s=0,/ L$ u& Q. S3 N: @8 r
    
12. k=0, while{k<1000,
    
13. . E! a) O2 a0 \0 E
14.   i=0, while{i<1000, a=linspace(2,2,1000), s=s+a.i, i++},  // 嗯，a.i 就是 a(i)* d4 }- n1 z1 m2 f
    
16.   k++1 T; z\\" @: b. b
    
18. },+ P/ Z6 {/ H% t3 s6 X  O
    
20. s;) i3 s. F- u6 K1 F5 V8 ^5 x4 m
    
22. [clock()-t0]/1000;

!using["math","sys"];<br /> <span style=\\"display:none\\"># j6 q3 q3 y% L# x</span> mvar:<font class=\\"jammer\\">& D2 g& Y# \7 C: F% e</font><br /> main(:a)=<font class=\\"jammer\\">! u3 |' e3 x) k% t</font><br /> t0=clock(),<br /> <span style=\\"display:none\\">6 i, M/ p. o' _9 `, g</span> s=0,<font class=\\"jammer\\">/ L$ u& Q. S3 N: @8 r</font><br /> k=0, while{k<1000,<br /> <span style=\\"display:none\\">. E! a) O2 a0 \0 E</span>   i=0, while{i<1000, a=linspace(2,2,1000), s=s+a.i, i++},  // 嗯，a.i 就是 a(i)<font class=\\"jammer\\">* d4 }- n1 z1 m2 f</font><br />   k++<font class=\\"jammer\\">1 T; z\\" @: b. b</font><br /> },<font class=\\"jammer\\">+ P/ Z6 {/ H% t3 s6 X  O</font><br /> s;<font class=\\"jammer\\">) i3 s. F- u6 K1 F5 V8 ^5 x4 m</font><br /> [clock()-t0]/1000;

结果：
0 b. k0 A) z! }0 o2 c/ d5 t! C2000000.
% |% U) l; n' A+ I& y40.766 秒

程序运行时内存不稳定，时大时小。该程序导致Forcal垃圾收集器启动约10次，垃圾收集前内存消耗大，垃圾收集后内存小。
因垃圾收集器多次启动，故耗时较长。
7 y; \$ S( X9 V: y0 x! G
－－－－－－－－－－－－

/ f( x1 C+ r' `, a  |以下将a=linspace(2,2,1000)放到了oo{  }函数中：

2. !using["math","sys"];
   
3. . B0 m+ q. d9 J) M5 n
4. mvar:\\" G) g0 o1 T9 r# a6 b$ g
   
6. main(:a)=6 Y: S. q6 `+ ~) n! N
   
8. t0=clock(),6 n6 r0 q! k' q0 N\\" V
   
10. s=0,' O) d4 Z* D- j& o3 K
    
12. k=0, while{k<1000,6 m\\" ~& V7 t* ^3 A: [6 d0 y
    
14.   i=0, while{i<1000, oo{a=linspace(2,2,1000)}, s=s+a.i, i++},  // 嗯，a.i就是a(i)
    
15. 4 O+ E7 e& `4 n+ |! V3 u\\" \
16.   k++
    
17. : @$ |6 Z# m; K6 E' n/ B' L' q
18. },& b4 J; ?* W6 R2 Y2 g
    
20. s;  \+ v! M* M2 _- [0 E+ |
    
22. [clock()-t0]/1000;

!using["math","sys"];<br /> <span style=\\"display:none\\">. B0 m+ q. d9 J) M5 n</span> mvar:<font class=\\"jammer\\">\\" G) g0 o1 T9 r# a6 b$ g</font><br /> main(:a)=<font class=\\"jammer\\">6 Y: S. q6 `+ ~) n! N</font><br /> t0=clock(),<font class=\\"jammer\\">6 n6 r0 q! k' q0 N\\" V</font><br /> s=0,<font class=\\"jammer\\">' O) d4 Z* D- j& o3 K</font><br /> k=0, while{k<1000,<font class=\\"jammer\\">6 m\\" ~& V7 t* ^3 A: [6 d0 y</font><br />   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\\">4 O+ E7 e& `4 n+ |! V3 u\\" \</span>   k++<br /> <span style=\\"display:none\\">: @$ |6 Z# m; K6 E' n/ B' L' q</span> },<font class=\\"jammer\\">& b4 J; ?* W6 R2 Y2 g</font><br /> s;<font class=\\"jammer\\">  \+ v! M* M2 _- [0 E+ |</font><br /> [clock()-t0]/1000;

结果：
! Q. k: r8 Q+ l2000000.
4.609 秒
" M/ y; K) b/ N' N5 e; F
8 E. [6 `. ^0 J$ Y0 y+ ^1 `9 s9 L2 ]可以发现，Forcal耗时大大减少了，远小于matlab耗时，这要归功于oo{ }函数。
1 ~  x5 s7 h/ y3 n% \& V8 @在Forcal中，函数oo{ }不仅提供了运算符重载功能，而且会自动高效地回收垃圾。通常，所有涉及到对象的代码都要放到函数oo{ }中。

我就在你背后

太强大了 看不懂啊

forcal

我就在你背后 发表于 2011-8-2 16:08
2 M9 e6 r6 d3 M& ~& y$ }9 ~太强大了 看不懂啊

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

我就在你背后

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

恩 我在研究研究，谢谢了

sxjm567

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