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

forcal

这里用一个不太常用的小例子说明一下。
5 _% l/ @  K' h, ?$ K
matlab 2009a代码：

1. clear all
   * p0 R$ d3 Y  Q
2. tic1 v& p. W$ C\" D5 K0 u. d
   
3. s=0;, }9 f* l( y6 N6 I8 ^
   
4. for k=1:1000
   ; L$ d  Y2 z; w+ L8 ?, b2 p
5.   for i=1:1000
   ) {5 X1 i, H  g/ I% S5 U
6.     a=linspace(2,2,1000);
   2 K# _- `: X' u0 h. W\" U
7.     s=s+a(i);
   / X; v/ M, N4 ~3 S( v
8.   end$ o1 S\" G* z! m# k1 B. t
   
9. end& K$ e( a3 w* z( T, O4 C/ }
   
10. s+ C% k- _6 G+ S: S
    
11. toc
    8 ]% L5 u. N! F( ~5 i6 I: J
12. 
    - z- t\" m( S. G8 d8 T) J/ R
13. s =
    # E  r0 A8 g! K( z! a8 B, ~
14. * P# o' h8 Z+ y* X, ]' I3 O
    
15.      2000000
    . B# U* M\" \+ G. F
16. % ~) y7 w\" [) m0 i7 u. N3 s8 j+ D
    
17. Elapsed time is 18.325900 seconds.

复制代码

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

－－－－－－－－
/ r1 g* |) A' U+ N# w4 b% V( d
Forcal代码：

2. !using["math","sys"];
   
3. . K: ?+ g, Q\\" e* N( L
4. mvar:
   
5. ! g8 I8 l8 k) Y3 J3 }
6. main(:a)=2 L* {0 S* I1 C3 X7 k5 T* {0 I- G' [
   
8. t0=clock(),1 A7 h% U: w) E3 Y8 Y
   
10. s=0,7 u2 f) i* m/ m% v5 W; N+ \2 w2 g: x9 M
    
12. k=0, while{k<1000,
    
13. + \% C5 ?( t' K\\" Q
14.   i=0, while{i<1000, a=linspace(2,2,1000), s=s+a.i, i++},  // 嗯，a.i 就是 a(i)
    
15. - _4 F' G\\" C2 w
16.   k++9 B7 O, G8 h1 m
    
18. },# M  Z! l1 O  ?7 \2 Z5 @- w9 {
    
20. s;! k: \/ s- l6 J6 c9 V& X4 V1 P3 M
    
22. [clock()-t0]/1000;

!using["math","sys"];<br /> <span style=\\"display:none\\">. K: ?+ g, Q\\" e* N( L</span> mvar:<br /> <span style=\\"display:none\\">! g8 I8 l8 k) Y3 J3 }</span> main(:a)=<font class=\\"jammer\\">2 L* {0 S* I1 C3 X7 k5 T* {0 I- G' [</font><br /> t0=clock(),<font class=\\"jammer\\">1 A7 h% U: w) E3 Y8 Y</font><br /> s=0,<font class=\\"jammer\\">7 u2 f) i* m/ m% v5 W; N+ \2 w2 g: x9 M</font><br /> k=0, while{k<1000,<br /> <span style=\\"display:none\\">+ \% C5 ?( t' K\\" Q</span>   i=0, while{i<1000, a=linspace(2,2,1000), s=s+a.i, i++},  // 嗯，a.i 就是 a(i)<br /> <span style=\\"display:none\\">- _4 F' G\\" C2 w</span>   k++<font class=\\"jammer\\">9 B7 O, G8 h1 m</font><br /> },<font class=\\"jammer\\"># M  Z! l1 O  ?7 \2 Z5 @- w9 {</font><br /> s;<font class=\\"jammer\\">! k: \/ s- l6 J6 c9 V& X4 V1 P3 M</font><br /> [clock()-t0]/1000;

结果：
* _. S) u2 N# b( s* @2000000.
7 b# n. H+ ]# l0 Y& @40.766 秒

程序运行时内存不稳定，时大时小。该程序导致Forcal垃圾收集器启动约10次，垃圾收集前内存消耗大，垃圾收集后内存小。
; E+ }; u) a; b- }; a6 m) k因垃圾收集器多次启动，故耗时较长。
  V* F8 n! \- b* A
8 b; J) I0 d, M& \& O－－－－－－－－－－－－
4 o5 z: m9 n7 u7 K
* ~5 @( C/ H3 w8 j" O以下将a=linspace(2,2,1000)放到了oo{  }函数中：

2. !using["math","sys"];
   
3. : u$ G% n1 i( p& j  @! b# O5 z' U
4. mvar:
   
5. 7 t+ T: H- F4 y, D% E& ^
6. main(:a)=& }7 Q. H# n, B6 n; |
   
8. t0=clock(),# M  }& W. K  @: F6 g( J
   
10. s=0,
    
11. ! M; h% W5 d7 C- N) b3 X
12. k=0, while{k<1000,
    
13. + @3 \' B2 Z3 Y/ l: M5 Z4 T
14.   i=0, while{i<1000, oo{a=linspace(2,2,1000)}, s=s+a.i, i++},  // 嗯，a.i就是a(i)
    
15. \\" V) L4 U' f4 {! O. g$ `
16.   k++
    
17.   F8 e  E$ n: K6 f3 m6 `/ a
18. },
    
19. 8 P8 d$ z9 N; G- }5 _
20. s;8 O  F\\" ]5 I; f! D5 ?$ a& o
    
22. [clock()-t0]/1000;

!using["math","sys"];<br /> <span style=\\"display:none\\">: u$ G% n1 i( p& j  @! b# O5 z' U</span> mvar:<br /> <span style=\\"display:none\\">7 t+ T: H- F4 y, D% E& ^</span> main(:a)=<font class=\\"jammer\\">& }7 Q. H# n, B6 n; |</font><br /> t0=clock(),<font class=\\"jammer\\"># M  }& W. K  @: F6 g( J</font><br /> s=0,<br /> <span style=\\"display:none\\">! M; h% W5 d7 C- N) b3 X</span> k=0, while{k<1000,<br /> <span style=\\"display:none\\">+ @3 \' B2 Z3 Y/ l: M5 Z4 T</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\\">\\" V) L4 U' f4 {! O. g$ `</span>   k++<br /> <span style=\\"display:none\\">  F8 e  E$ n: K6 f3 m6 `/ a</span> },<br /> <span style=\\"display:none\\">8 P8 d$ z9 N; G- }5 _</span> s;<font class=\\"jammer\\">8 O  F\\" ]5 I; f! D5 ?$ a& o</font><br /> [clock()-t0]/1000;

结果：
/ W5 e( `2 ~6 G2 z( A( X+ f$ C2000000.
9 E! f5 z2 U' G9 }+ m* d3 S4.609 秒

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

我就在你背后

太强大了 看不懂啊

forcal

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

6 k7 M6 ^! B) w, l: o% }. j' x函数linspace(2,2,1000)放到循环里，每循环一次就会产生一个垃圾对象（一维数组），主要对比Matlab和Forcal如何处理垃圾对象和进行内存管理。

我就在你背后

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

恩 我在研究研究，谢谢了

sxjm567

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