Lu系统扩展动态库LuSystem之结构

forcal

详细参考：http://www.forcal.net/sysm/lu1/luhtm/lusystem.htm
4 k3 {; a) N5 j+ k& t# x: {& a
3 A2 k8 M: W) N# h4 b4 h    结构（struct）是一个线性表，可以存放若干任意的Lu数据。结构成员必须以#开头。结构成员的存储顺序与其定义顺序不一定相同。
2 {' _0 e! K7 e, C0 A8 t( Q: \+ y
    （1）新建结构：相当于结构定义

2. !!!using("sys");3 c8 E1 J2 L9 G' c  @( J' M
   
4. new[struct, #num, #姓名 : "luuu", #年龄].o[];    //用函数new生成结构，有3个成员，其中“姓名”成员进行了初始化。函数o用于输出 结构。

!!!using("sys");<font class=\\"jammer\\">3 c8 E1 J2 L9 G' c  @( J' M</font><br /> new[struct, #num, #姓名 : "luuu", #年龄].o[];    //用函数new生成结构，有3个成员，其中“姓名”成员进行了初始化。函数o用于输出 结构。

用函数struct生成结构更为方便：

2. !!!using("sys");2 v+ ?  h3 K* {& E+ ]
   
4. struct[#num, #姓名 : "luuu", #年龄].o[];        //用函数new生成结构，有3个成员，其中“姓名”成员进行了初始化。函数o用于输出 结构。

!!!using("sys");<font class=\\"jammer\\">2 v+ ?  h3 K* {& E+ ]</font><br /> struct[#num, #姓名 : "luuu", #年龄].o[];        //用函数new生成结构，有3个成员，其中“姓名”成员进行了初始化。函数o用于输出 结构。

（2）复制结构：相当于生成结构对象

2. !!!using("sys");1 H; Z. C3 m2 b) x/ j
   
4. main(:a)= a=struct[#num, #姓名 : "luuu", #年龄], o[a,"\r\n",copy(a),"\r\n",copy(a, #num:22, #年龄:33),"\r\n"];

!!!using("sys");<font class=\\"jammer\\">1 H; Z. C3 m2 b) x/ j</font><br /> main(:a)= a=struct[#num, #姓名 : "luuu", #年龄], o[a,"\r\n",copy(a),"\r\n",copy(a, #num:22, #年龄:33),"\r\n"];

结果：

1. struct{#num : nil , #姓名 : luuu , #年龄 : nil}
   6 W; _, Q( b/ n! e0 I
2. struct{#num : nil , #姓名 : luuu , #年龄 : nil}& {6 `! q; K  `# {. o
   
3. struct{#num : 22 , #姓名 : luuu , #年龄 : 33}

复制代码

（3）设置结构：批量对结构成员赋值，注意次序是任意的，并且可设置部分成员或全部成员

2. !!!using("sys");. T( U/ K# L, i* {2 b
   
4. main(:a)= a=struct[#num, #姓名, #年龄], o[a,"\r\n"], a.set(#年龄:33, #num:22).o["\r\n"];

!!!using("sys");<font class=\\"jammer\\">. T( U/ K# L, i* {2 b</font><br /> main(:a)= a=struct[#num, #姓名, #年龄], o[a,"\r\n"], a.set(#年龄:33, #num:22).o["\r\n"];

结果：

1. struct{#num : nil , #姓名 : nil , #年龄 : nil}3 D% U* [\" s) g9 V# Z; r
   
2. struct{#num : 22 , #姓名 : nil , #年龄 : 33}

复制代码

（4）结构成员单独赋值，获取结构成员的值

2. !!!using("sys");+ q; T; P1 b( ]2 \+ F7 `$ L' J- s5 e- O
   
4. main(:a)= a=struct[#num, #姓名, #年龄], a.#姓名="王强", a.#年龄=33, a.#num=22, o[a,"\r\n",a.#姓名,"\r\n",a.#年龄,"\r\n"];

!!!using("sys");<font class=\\"jammer\\">+ q; T; P1 b( ]2 \+ F7 `$ L' J- s5 e- O</font><br /> main(:a)= a=struct[#num, #姓名, #年龄], a.#姓名="王强", a.#年龄=33, a.#num=22, o[a,"\r\n",a.#姓名,"\r\n",a.#年龄,"\r\n"];

结果：

1. struct{#num : 22 , #姓名 : 王强 , #年龄 : 33}+ y$ q) g) q$ D! R
   
2. 王强+ V: p6 a% R2 I( F! n
   
3. 33

复制代码

（5）结构嵌套

2. !!!using("sys");; V* a/ r; g% h- K
   
4. main(:a)= a=struct[#num, #班级], a.#num=22, a.#班级=struct[#num, #姓名, #年龄],
   
5. , i8 P% D$ i# J6 n( s% f/ O' F! k
6.   a.#班级.#num=88,' }8 m0 i: n4 x/ r& M: P5 }
   
8.   a.#班级.#姓名="王强",\\" p! v9 z, ?\\" c
   
10.   a.#班级.#年龄=33,& s1 [- k2 F% z: X/ \\\" ~6 r
    
12.   o[a,"\r\n",a.#num,"\r\n",a.#班级,"\r\n",a.#班级.#num,"\r\n",a.#班级.#姓名,"\r\n",a.#班级.#年龄,"\r\n"];

!!!using("sys");<font class=\\"jammer\\">; V* a/ r; g% h- K</font><br /> main(:a)= a=struct[#num, #班级], a.#num=22, a.#班级=struct[#num, #姓名, #年龄],<br /> <span style=\\"display:none\\">, i8 P% D$ i# J6 n( s% f/ O' F! k</span>   a.#班级.#num=88,<font class=\\"jammer\\">' }8 m0 i: n4 x/ r& M: P5 }</font><br />   a.#班级.#姓名="王强",<font class=\\"jammer\\">\\" p! v9 z, ?\\" c</font><br />   a.#班级.#年龄=33,<font class=\\"jammer\\">& s1 [- k2 F% z: X/ \\\" ~6 r</font><br />   o[a,"\r\n",a.#num,"\r\n",a.#班级,"\r\n",a.#班级.#num,"\r\n",a.#班级.#姓名,"\r\n",a.#班级.#年龄,"\r\n"];

结果：

1. struct{#num : 22 , #班级 : struct[...]}! |' _' i: Z+ j8 H7 h
   
2. 22, M  P\" E8 X! [\" V. e
   
3. struct{#num : 88 , #姓名 : 王强 , #年龄 : 33}
   8 e4 E7 l5 ~$ I* F1 M  w9 E
4. 88
   ' l# O! D5 c9 o, @; l' F5 n, @
5. 王强
   5 N' j\" R: W- K( {- b
6. 33

复制代码

（6）效率测试

2. !!!using("sys");
   
3. ) Y: i  r- w* J1 z. G9 N
4. main(:a,i,t0,sum)=
   
5. 7 x5 @7 P' v0 ~) b1 O- L
6.   a=struct{; t, `) _2 @4 @: U0 O
   
8.     #January,3 u7 j; t# m1 Q3 U
   
10.     #February,9 V& H( R7 q/ b3 c: d1 m7 [
    
12.     #March,
    
13. - s! n( I% Z8 J3 E
14.     #April,
    
15. 3 S! R5 B3 }. q
16.     #May,: J% F1 r* A& ]3 s1 p
    
18.     #June,
    
19. & p! t* |' S7 c% X$ D6 a0 |
20.     #July,
    
21. 6 ~5 V. }7 u\\" @: c\\" I
22.     #August,
    
23. 3 {' Q) z3 A& |\\" l
24.     #September,, d5 i+ B) \5 U- p; K
    
26.     #October,8 B\\" O2 `7 C7 N1 f; S
    
28.     #November,, K& {; c! O9 ^1 I
    
30.     #December\\" C/ h0 \; E2 Q
    
32.   },8 M6 @  m# R7 f& c0 G6 i
    
34.   t0=clock(), sum=0,0 G% Z6 \+ O6 W- i. g
    
36.   i=0, while{++i<=100000,
    
37. 1 p2 `# X3 A1 R; I3 v
38.     a.#January=1,( I1 ]' {# E3 ~9 G+ C+ X$ b
    
40.     a.#February=2,' @- h( `% P* i. _, t
    
42.     a.#March=3,- l7 N( n: u  Y\\" M
    
44.     a.#April=4,
    
45.   z2 p9 }3 B& R, M( L7 j1 s
46.     a.#May=5,& ]) J5 \, m% @# g7 p8 S& y
    
48.     a.#June=6,
    
49. - Q; ?) \7 N( l2 L+ p# D
50.     a.#July=7,
    
51. ; z5 ^7 c$ K1 y$ }+ u\\" l
52.     a.#August=8,) _* D% }  }6 @
    
54.     a.#September=9,1 r6 c8 x. {) ^9 i% E3 w$ M# b0 T1 I
    
56.     a.#October=10,
    
57.   ]9 _\\" R2 ]* o0 v7 u+ |1 O
58.     a.#November=11,8 J1 O2 t\\" E2 ]9 `8 D- I
    
60.     a.#December=12,
    
61. 8 F- K% B! ?, a- i2 I+ b
62.     sum=sum+a.#January+a.#February+a.#March+a.#April+a.#May+a.#June+a.#July+a.#August+a.#September+a.#October+a.#November+a.#December
    
63. 1 ]1 l/ c2 h- g3 W! ]
64.   },. q5 ]  S9 {' n' y7 N% `
    
66.   o{"\r\n耗时", [clock()-t0]/1000., "秒。sum=", sum, "\r\n"};

!!!using("sys");<br /> <span style=\\"display:none\\">) Y: i  r- w* J1 z. G9 N</span> main(:a,i,t0,sum)=<br /> <span style=\\"display:none\\">7 x5 @7 P' v0 ~) b1 O- L</span>   a=struct{<font class=\\"jammer\\">; t, `) _2 @4 @: U0 O</font><br />     #January,<font class=\\"jammer\\">3 u7 j; t# m1 Q3 U</font><br />     #February,<font class=\\"jammer\\">9 V& H( R7 q/ b3 c: d1 m7 [</font><br />     #March,<br /> <span style=\\"display:none\\">- s! n( I% Z8 J3 E</span>     #April,<br /> <span style=\\"display:none\\">3 S! R5 B3 }. q</span>     #May,<font class=\\"jammer\\">: J% F1 r* A& ]3 s1 p</font><br />     #June,<br /> <span style=\\"display:none\\">& p! t* |' S7 c% X$ D6 a0 |</span>     #July,<br /> <span style=\\"display:none\\">6 ~5 V. }7 u\\" @: c\\" I</span>     #August,<br /> <span style=\\"display:none\\">3 {' Q) z3 A& |\\" l</span>     #September,<font class=\\"jammer\\">, d5 i+ B) \5 U- p; K</font><br />     #October,<font class=\\"jammer\\">8 B\\" O2 `7 C7 N1 f; S</font><br />     #November,<font class=\\"jammer\\">, K& {; c! O9 ^1 I</font><br />     #December<font class=\\"jammer\\">\\" C/ h0 \; E2 Q</font><br />   },<font class=\\"jammer\\">8 M6 @  m# R7 f& c0 G6 i</font><br />   t0=clock(), sum=0,<font class=\\"jammer\\">0 G% Z6 \+ O6 W- i. g</font><br />   i=0, while{++i<=100000,<br /> <span style=\\"display:none\\">1 p2 `# X3 A1 R; I3 v</span>     a.#January=1,<font class=\\"jammer\\">( I1 ]' {# E3 ~9 G+ C+ X$ b</font><br />     a.#February=2,<font class=\\"jammer\\">' @- h( `% P* i. _, t</font><br />     a.#March=3,<font class=\\"jammer\\">- l7 N( n: u  Y\\" M</font><br />     a.#April=4,<br /> <span style=\\"display:none\\">  z2 p9 }3 B& R, M( L7 j1 s</span>     a.#May=5,<font class=\\"jammer\\">& ]) J5 \, m% @# g7 p8 S& y</font><br />     a.#June=6,<br /> <span style=\\"display:none\\">- Q; ?) \7 N( l2 L+ p# D</span>     a.#July=7,<br /> <span style=\\"display:none\\">; z5 ^7 c$ K1 y$ }+ u\\" l</span>     a.#August=8,<font class=\\"jammer\\">) _* D% }  }6 @</font><br />     a.#September=9,<font class=\\"jammer\\">1 r6 c8 x. {) ^9 i% E3 w$ M# b0 T1 I</font><br />     a.#October=10,<br /> <span style=\\"display:none\\">  ]9 _\\" R2 ]* o0 v7 u+ |1 O</span>     a.#November=11,<font class=\\"jammer\\">8 J1 O2 t\\" E2 ]9 `8 D- I</font><br />     a.#December=12,<br /> <span style=\\"display:none\\">8 F- K% B! ?, a- i2 I+ b</span>     sum=sum+a.#January+a.#February+a.#March+a.#April+a.#May+a.#June+a.#July+a.#August+a.#September+a.#October+a.#November+a.#December<br /> <span style=\\"display:none\\">1 ]1 l/ c2 h- g3 W! ]</span>   },<font class=\\"jammer\\">. q5 ]  S9 {' n' y7 N% `</font><br />   o{"\r\n耗时", [clock()-t0]/1000., "秒。sum=", sum, "\r\n"};

结果：

1. 耗时0.75秒。sum=7800000

复制代码

Matlab2009a代码：

1. a=struct('January',1,'Febrary',2,'March',3,'April',4,'May',5,'June',6,'July',7,'August',8,'September',9,'October',10,'November',11,'December',12);3 Z5 F7 K$ L. P* [( G: j9 F7 f
   
2. tic;
   \" [4 U/ c* U4 F; p+ |/ q
3. sum=0;; a% A% B: u/ l  I3 z- A) F
   
4. for i=1:100000
   ( N\" I0 t9 m$ A9 E4 W0 w
5.     a.January=1;) e- D! A$ K* l# q
   
6.     a.February=2;/ f  u, L8 Y  _: H. Y8 E
   
7.     a.March=3;+ r\" b, h9 |& _
   
8.     a.April=4;
   3 H: F5 k6 ~) e4 o, A/ W/ C# j
9.     a.May=5;
   2 i5 N\" @5 P  w- ?
10.     a.June=6;
    + \$ h( v) D$ Z$ F$ \; O- p  J
11.     a.July=7;
      F( W8 j* t3 C; a. {: R, o5 i, k
12.     a.August=8;6 {+ a! Q9 g0 V
    
13.     a.September=9;
    % C5 Y2 ~. Z% J$ J4 V; N2 |% K
14.     a.October=10;
    ( V& J; |. Y6 |$ h5 G- r
15.     a.November=11;+ r5 n: U- i& m\" |! P5 t% Z
    
16.     a.December=12;
    ! x, N3 L4 Z\" ~1 ^
17.     sum=sum+a.January+a.February+a.March+a.April+a.May+a.June+a.July+a.August+a.September+a.October+a.November+a.December;. g$ h7 ~2 F1 M4 \& _+ g
    
18. end% Y9 O- e: C  R) ~4 x
    
19. toc,% i; e8 ^/ e% N7 B
    
20. sum

复制代码

结果：

1. Elapsed time is 3.275743 seconds.
   4 [6 Z. D) n2 {0 D1 d4 X
2. 
   ; Z' o\" m: s, G
3. sum =
   % d, G9 e* V) D& ~6 v
4. 
   + t8 B/ q5 [2 O\" e$ K
5. 7800000

复制代码

forcal

测试2：
" N0 S  C9 m2 `8 ?" ^
7 O% R) r# |( G0 _# V3 f- {Lu代码：

2. !!!using("sys");1 u) Q- |3 a& |% j/ L
   
4. main(:a,i,t0,sum)=8 H( R2 z, ]; n& Z8 X
   
6.   t0=clock(), sum=0,
   
7. 2 M' {+ o\\" {& w
8.   i=0, while{++i<=100000,
   
9. . H! x, m7 A3 o% c9 A% a% f6 e
10.     a=struct{#January:1, #February:2, #March:3, #April:4, #May:5, #June:6, #July:7, #August:8, #September:9, #October:10, #November:11, #December:12},  \; n( U; J  c0 p
    
12.     sum=sum+a.#January+a.#February+a.#March+a.#April+a.#May+a.#June+a.#July+a.#August+a.#September+a.#October+a.#November+a.#December
    
13. 1 X: ?( m. `& I7 `1 G
14.   },/ h; q! o2 z' {/ z
    
16.   o{"\r\n耗时", [clock()-t0]/1000., "秒。sum=", sum, "\r\n"};

!!!using("sys");<font class=\\"jammer\\">1 u) Q- |3 a& |% j/ L</font><br /> main(:a,i,t0,sum)=<font class=\\"jammer\\">8 H( R2 z, ]; n& Z8 X</font><br />   t0=clock(), sum=0,<br /> <span style=\\"display:none\\">2 M' {+ o\\" {& w</span>   i=0, while{++i<=100000,<br /> <span style=\\"display:none\\">. H! x, m7 A3 o% c9 A% a% f6 e</span>     a=struct{#January:1, #February:2, #March:3, #April:4, #May:5, #June:6, #July:7, #August:8, #September:9, #October:10, #November:11, #December:12},<font class=\\"jammer\\">  \; n( U; J  c0 p</font><br />     sum=sum+a.#January+a.#February+a.#March+a.#April+a.#May+a.#June+a.#July+a.#August+a.#September+a.#October+a.#November+a.#December<br /> <span style=\\"display:none\\">1 X: ?( m. `& I7 `1 G</span>   },<font class=\\"jammer\\">/ h; q! o2 z' {/ z</font><br />   o{"\r\n耗时", [clock()-t0]/1000., "秒。sum=", sum, "\r\n"};

结果：

1. 耗时0.53100000000000003秒。sum=7800000

复制代码

Matlab2009a代码：

1. tic;
   : V& B  ^9 |. z# y) b6 L3 H. N8 ~
2. sum=0;* Y. T\" [4 S6 w( p1 y# q
   
3. for i=1:100000
   ) ^2 @1 `, K5 r- N! f+ y( k( i
4.     a=struct('January',1,'February',2,'March',3,'April',4,'May',5,'June',6,'July',7,'August',8,'September',9,'October',10,'November',11,'December',12);
   ! A$ W+ P# e\" K- o! H! q/ K: {
5.     sum=sum+a.January+a.February+a.March+a.April+a.May+a.June+a.July+a.August+a.September+a.October+a.November+a.December;9 E4 X- G- e; M, e. o. Y
   
6. end
   9 E3 ~) t- q9 O\" g8 f$ d7 u9 t
7. toc,
   . D% E, r6 k; A+ ~7 S% e7 x$ h
8. sum

复制代码

结果：

1. Elapsed time is 6.390977 seconds.$ d$ T( j/ c) b! ~6 H& M
   
2. \" g# ^% p) I, p7 U0 W2 @
   
3. sum =7 c, g& R9 P2 c\" u  r
   
4. 
   ( [1 O: n/ ~) H\" ^
5.      7800000

复制代码