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

forcal

详细参考：http://www.forcal.net/sysm/lu1/luhtm/lusystem.htm

    结构（struct）是一个线性表，可以存放若干任意的Lu数据。结构成员必须以#开头。结构成员的存储顺序与其定义顺序不一定相同。
6 `' c9 n6 q& T  y+ o
  U4 [% m& K7 |% ^/ \; L8 A    （1）新建结构：相当于结构定义

2. !!!using("sys");$ O4 h9 o8 h, t& V
   
4. new[struct, #num, #姓名 : "luuu", #年龄].o[];    //用函数new生成结构，有3个成员，其中“姓名”成员进行了初始化。函数o用于输出 结构。

!!!using("sys");<font class=\\"jammer\\">$ O4 h9 o8 h, t& V</font><br /> new[struct, #num, #姓名 : "luuu", #年龄].o[];    //用函数new生成结构，有3个成员，其中“姓名”成员进行了初始化。函数o用于输出 结构。

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

2. !!!using("sys");1 ^' M+ U  p7 h
   
4. struct[#num, #姓名 : "luuu", #年龄].o[];        //用函数new生成结构，有3个成员，其中“姓名”成员进行了初始化。函数o用于输出 结构。

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

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

2. !!!using("sys");
   
3. + L5 Z5 c! ]\\" N+ Q: f3 P$ s
4. main(:a)= a=struct[#num, #姓名 : "luuu", #年龄], o[a,"\r\n",copy(a),"\r\n",copy(a, #num:22, #年龄:33),"\r\n"];

!!!using("sys");<br /> <span style=\\"display:none\\">+ L5 Z5 c! ]\\" N+ Q: f3 P$ s</span> 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}# l+ L, Z# S$ l, M
   
2. struct{#num : nil , #姓名 : luuu , #年龄 : nil}
   9 N7 c' z3 J+ X1 A- W- E5 n( @
3. struct{#num : 22 , #姓名 : luuu , #年龄 : 33}

复制代码

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

2. !!!using("sys");9 M' p/ f- m. q$ D  X$ ?* L
   
4. main(:a)= a=struct[#num, #姓名, #年龄], o[a,"\r\n"], a.set(#年龄:33, #num:22).o["\r\n"];

!!!using("sys");<font class=\\"jammer\\">9 M' p/ f- m. q$ D  X$ ?* L</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}. a+ O  [2 J1 @+ T1 n  C6 L  O: o
   
2. struct{#num : 22 , #姓名 : nil , #年龄 : 33}

复制代码

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

2. !!!using("sys");
   
3. 8 a* ]* C; f# x, T1 p! f, ?! n
4. main(:a)= a=struct[#num, #姓名, #年龄], a.#姓名="王强", a.#年龄=33, a.#num=22, o[a,"\r\n",a.#姓名,"\r\n",a.#年龄,"\r\n"];

!!!using("sys");<br /> <span style=\\"display:none\\">8 a* ]* C; f# x, T1 p! f, ?! n</span> 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}' ^& @8 J2 O0 D4 m( K& V  \
   
2. 王强
   / }2 g$ l- y& n/ q$ J
3. 33

复制代码

（5）结构嵌套

2. !!!using("sys");
   
3. 1 r9 f: s2 w0 w: t
4. main(:a)= a=struct[#num, #班级], a.#num=22, a.#班级=struct[#num, #姓名, #年龄],
   
5. / B# F$ n' d( g. W0 x1 y7 B
6.   a.#班级.#num=88,
   
7. 6 `& w6 i6 }' J% T, U0 J0 m$ |
8.   a.#班级.#姓名="王强",
   
9. : ~! {& W& y! U$ {- f- ^
10.   a.#班级.#年龄=33,4 Q# c# T7 t3 g
    
12.   o[a,"\r\n",a.#num,"\r\n",a.#班级,"\r\n",a.#班级.#num,"\r\n",a.#班级.#姓名,"\r\n",a.#班级.#年龄,"\r\n"];

!!!using("sys");<br /> <span style=\\"display:none\\">1 r9 f: s2 w0 w: t</span> main(:a)= a=struct[#num, #班级], a.#num=22, a.#班级=struct[#num, #姓名, #年龄],<br /> <span style=\\"display:none\\">/ B# F$ n' d( g. W0 x1 y7 B</span>   a.#班级.#num=88,<br /> <span style=\\"display:none\\">6 `& w6 i6 }' J% T, U0 J0 m$ |</span>   a.#班级.#姓名="王强",<br /> <span style=\\"display:none\\">: ~! {& W& y! U$ {- f- ^</span>   a.#班级.#年龄=33,<font class=\\"jammer\\">4 Q# c# T7 t3 g</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[...]}
   7 @2 r* T9 @6 P# A6 M
2. 22( h$ u0 V7 W( k. K, Z9 R) s
   
3. struct{#num : 88 , #姓名 : 王强 , #年龄 : 33}* N) U1 C% J% T3 a
   
4. 88
   ( L, f$ |) t$ o# n! E
5. 王强& d# W5 Q  ^9 k! _3 s8 D
   
6. 33

复制代码

（6）效率测试

2. !!!using("sys");
   
3. $ m1 W( c: r& o4 M% h0 T- I
4. main(:a,i,t0,sum)=
   
5. 9 k3 N- n; e  [# b\\" m4 g
6.   a=struct{) A8 I! F' I9 O' {4 Q
   
8.     #January,. W' y  N$ [, s+ }. e
   
10.     #February,
    
11. 8 B5 A1 b/ o4 v4 p
12.     #March,
    
13. 7 \+ V/ O& ]; Z) d0 S  o
14.     #April,: f. P0 u  W6 z) Z4 _
    
16.     #May,* z1 {# T/ O0 y. K/ x( n1 L) W0 W
    
18.     #June,
    
19. 9 d/ b1 P% J2 s9 M- |
20.     #July,
    
21. 7 \\\" Y/ g4 O; r8 m
22.     #August,2 x' S% v3 s' D. R
    
24.     #September,3 A6 o\\" P# I% k+ {
    
26.     #October,) d. O$ O. ~0 }1 a1 R0 u- e
    
28.     #November,) E; Q\\" U% j1 x2 p6 y
    
30.     #December. m  A' u# H, n3 X0 X
    
32.   },' Y' b3 Q0 o  ~0 i3 c2 h, `
    
34.   t0=clock(), sum=0,: D9 ?7 _6 U% K2 i, ]4 @
    
36.   i=0, while{++i<=100000,4 q1 @$ {3 P- d* `6 m2 {8 u: V$ F$ q
    
38.     a.#January=1,, W/ C6 p; T( j6 A6 [3 f( I, \
    
40.     a.#February=2,
    
41. : _( l1 [% K. E
42.     a.#March=3,) `. L; [2 B6 v0 F( g# {) X
    
44.     a.#April=4,0 J5 \6 _( X# M- f- b
    
46.     a.#May=5,
    
47. 0 P; v4 F$ ~0 K$ }; G) R1 d' R
48.     a.#June=6,
    
49. 3 B* x: c/ P/ D! n% ~
50.     a.#July=7,
    
51. 9 ~1 D\\" m\\" F0 [2 ~7 K  `* O
52.     a.#August=8,  `. X\\" _: E9 |( {. J. J+ H3 ^
    
54.     a.#September=9,2 v' x. `8 ]% Q$ ]
    
56.     a.#October=10,! X$ P6 q- {# Q1 a; g8 w; K
    
58.     a.#November=11,8 r$ G9 t2 y, f1 r- O
    
60.     a.#December=12,
    
61. $ y( ^/ d' F; h$ W
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 g/ I$ u\\" P9 M6 N) Y% P
64.   },
    
65. 3 [* o; v8 C4 C! k9 E, J% e) t* p
66.   o{"\r\n耗时", [clock()-t0]/1000., "秒。sum=", sum, "\r\n"};

!!!using("sys");<br /> <span style=\\"display:none\\">$ m1 W( c: r& o4 M% h0 T- I</span> main(:a,i,t0,sum)=<br /> <span style=\\"display:none\\">9 k3 N- n; e  [# b\\" m4 g</span>   a=struct{<font class=\\"jammer\\">) A8 I! F' I9 O' {4 Q</font><br />     #January,<font class=\\"jammer\\">. W' y  N$ [, s+ }. e</font><br />     #February,<br /> <span style=\\"display:none\\">8 B5 A1 b/ o4 v4 p</span>     #March,<br /> <span style=\\"display:none\\">7 \+ V/ O& ]; Z) d0 S  o</span>     #April,<font class=\\"jammer\\">: f. P0 u  W6 z) Z4 _</font><br />     #May,<font class=\\"jammer\\">* z1 {# T/ O0 y. K/ x( n1 L) W0 W</font><br />     #June,<br /> <span style=\\"display:none\\">9 d/ b1 P% J2 s9 M- |</span>     #July,<br /> <span style=\\"display:none\\">7 \\\" Y/ g4 O; r8 m</span>     #August,<font class=\\"jammer\\">2 x' S% v3 s' D. R</font><br />     #September,<font class=\\"jammer\\">3 A6 o\\" P# I% k+ {</font><br />     #October,<font class=\\"jammer\\">) d. O$ O. ~0 }1 a1 R0 u- e</font><br />     #November,<font class=\\"jammer\\">) E; Q\\" U% j1 x2 p6 y</font><br />     #December<font class=\\"jammer\\">. m  A' u# H, n3 X0 X</font><br />   },<font class=\\"jammer\\">' Y' b3 Q0 o  ~0 i3 c2 h, `</font><br />   t0=clock(), sum=0,<font class=\\"jammer\\">: D9 ?7 _6 U% K2 i, ]4 @</font><br />   i=0, while{++i<=100000,<font class=\\"jammer\\">4 q1 @$ {3 P- d* `6 m2 {8 u: V$ F$ q</font><br />     a.#January=1,<font class=\\"jammer\\">, W/ C6 p; T( j6 A6 [3 f( I, \</font><br />     a.#February=2,<br /> <span style=\\"display:none\\">: _( l1 [% K. E</span>     a.#March=3,<font class=\\"jammer\\">) `. L; [2 B6 v0 F( g# {) X</font><br />     a.#April=4,<font class=\\"jammer\\">0 J5 \6 _( X# M- f- b</font><br />     a.#May=5,<br /> <span style=\\"display:none\\">0 P; v4 F$ ~0 K$ }; G) R1 d' R</span>     a.#June=6,<br /> <span style=\\"display:none\\">3 B* x: c/ P/ D! n% ~</span>     a.#July=7,<br /> <span style=\\"display:none\\">9 ~1 D\\" m\\" F0 [2 ~7 K  `* O</span>     a.#August=8,<font class=\\"jammer\\">  `. X\\" _: E9 |( {. J. J+ H3 ^</font><br />     a.#September=9,<font class=\\"jammer\\">2 v' x. `8 ]% Q$ ]</font><br />     a.#October=10,<font class=\\"jammer\\">! X$ P6 q- {# Q1 a; g8 w; K</font><br />     a.#November=11,<font class=\\"jammer\\">8 r$ G9 t2 y, f1 r- O</font><br />     a.#December=12,<br /> <span style=\\"display:none\\">$ y( ^/ d' F; h$ W</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 g/ I$ u\\" P9 M6 N) Y% P</span>   },<br /> <span style=\\"display:none\\">3 [* o; v8 C4 C! k9 E, J% e) t* p</span>   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);2 |% ]5 x- u0 j$ M\" U+ i
   
2. tic;
   \" U, }: L) a1 x# K+ v
3. sum=0;
   ) A' Q9 e  M' S3 d5 \
4. for i=1:100000$ a  F6 ?* ^% g1 U7 t
   
5.     a.January=1;
   6 i- C3 V$ V& P0 [9 j6 k
6.     a.February=2;
   . [' K7 V( {' \1 F. {
7.     a.March=3;
   & a9 R, a6 k7 I9 {* d9 S
8.     a.April=4;
   5 H6 R3 o6 n* d: b5 \0 u: f
9.     a.May=5;
   * U5 T+ K* z- S. u1 T
10.     a.June=6;
    7 ?7 A6 V; [, a2 W; i& B. _! q
11.     a.July=7;
      c; o3 o4 g- z8 X) x
12.     a.August=8;- I: Z! X; e& @* T( i
    
13.     a.September=9;
    : Q\" b# c7 ?! d) e4 f. `+ _, B2 s
14.     a.October=10;
    & a. h  V3 R7 H  Y# {( n
15.     a.November=11;
    2 r/ S6 b& b+ t
16.     a.December=12;
    4 O& J# }6 w7 V1 w
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;\" D# W* b4 e% G9 |* f
    
18. end\" N+ ^5 E+ r' ?1 P
    
19. toc,
    . w8 R+ ^# H7 y% ]4 N
20. sum

复制代码

结果：

1. Elapsed time is 3.275743 seconds.  Q3 V  t: U0 A' u. }: ]4 T/ C
   
2. 
   ) e: ]& @: c; r' U5 k9 ~7 e  _
3. sum =
   % u5 r& y. R; n
4. 
   2 H3 k: o, Q\" A/ p9 C4 t
5. 7800000

复制代码

forcal

测试2：

% r5 L' z( b& g. ALu代码：

2. !!!using("sys");\\" ]8 P\\" A& z9 @' q
   
4. main(:a,i,t0,sum)=) n+ x2 P& g) W$ A6 ~& P9 h! N  w
   
6.   t0=clock(), sum=0,: p' ]0 s3 m) P* A
   
8.   i=0, while{++i<=100000,% \8 F0 ?\\" f) M- L( K
   
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},7 D* x2 T- ]6 A) \1 s5 v7 Q
    
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. ) B2 F' j8 M; e, y
14.   },
    
15. ) |, ]\\" u  t' b3 Y; P7 N# T! c
16.   o{"\r\n耗时", [clock()-t0]/1000., "秒。sum=", sum, "\r\n"};

!!!using("sys");<font class=\\"jammer\\">\\" ]8 P\\" A& z9 @' q</font><br /> main(:a,i,t0,sum)=<font class=\\"jammer\\">) n+ x2 P& g) W$ A6 ~& P9 h! N  w</font><br />   t0=clock(), sum=0,<font class=\\"jammer\\">: p' ]0 s3 m) P* A</font><br />   i=0, while{++i<=100000,<font class=\\"jammer\\">% \8 F0 ?\\" f) M- L( K</font><br />     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\\">7 D* x2 T- ]6 A) \1 s5 v7 Q</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\\">) B2 F' j8 M; e, y</span>   },<br /> <span style=\\"display:none\\">) |, ]\\" u  t' b3 Y; P7 N# T! c</span>   o{"\r\n耗时", [clock()-t0]/1000., "秒。sum=", sum, "\r\n"};

结果：

1. 耗时0.53100000000000003秒。sum=7800000

复制代码

Matlab2009a代码：

1. tic; ) _! B2 f  S/ Q( a  {
   
2. sum=0;
   + b* P6 d+ |+ F9 C* W
3. for i=1:100000* H& G\" ~6 _+ u( H
   
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);
   ' l( U9 U1 H/ z8 j$ z: [9 P\" C8 \6 w
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;* W3 u4 n& c. O- _& P: c* q1 u
   
6. end
   + }6 r/ n9 A- g5 q2 e5 W
7. toc,. z3 m\" C7 ^$ H  @' N
   
8. sum

复制代码

结果：

1. Elapsed time is 6.390977 seconds.
   0 ^4 B1 A8 ]$ ^, [
2. - T+ _' S! N5 D: w' ]% }3 [
   
3. sum =
   / |\" E) {7 r& k4 R  n\" u2 [
4. # h( H# R! x  f/ b( `
   
5.      7800000

复制代码