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

forcal

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

    结构（struct）是一个线性表，可以存放若干任意的Lu数据。结构成员必须以#开头。结构成员的存储顺序与其定义顺序不一定相同。

" E+ B7 q4 q; }8 c2 ?+ x    （1）新建结构：相当于结构定义

2. !!!using("sys");: w7 t7 p5 ?' a/ [- x2 }& i
   
4. new[struct, #num, #姓名 : "luuu", #年龄].o[];    //用函数new生成结构，有3个成员，其中“姓名”成员进行了初始化。函数o用于输出 结构。

!!!using("sys");<font class=\\"jammer\\">: w7 t7 p5 ?' a/ [- x2 }& i</font><br /> new[struct, #num, #姓名 : "luuu", #年龄].o[];    //用函数new生成结构，有3个成员，其中“姓名”成员进行了初始化。函数o用于输出 结构。

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

2. !!!using("sys");+ U- S( S\\" Y4 @- m\\" Q! f
   
4. struct[#num, #姓名 : "luuu", #年龄].o[];        //用函数new生成结构，有3个成员，其中“姓名”成员进行了初始化。函数o用于输出 结构。

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

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

2. !!!using("sys");
   
3. \\" O5 p1 I) `7 ]$ V
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\\">\\" O5 p1 I) `7 ]$ V</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}- Q* U0 n. G  G; Y
   
2. struct{#num : nil , #姓名 : luuu , #年龄 : nil}
   7 H  ?8 D& ]7 W7 `( P
3. struct{#num : 22 , #姓名 : luuu , #年龄 : 33}

复制代码

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

2. !!!using("sys");
   
3. 2 c/ p& o4 j) k; ^
4. main(:a)= a=struct[#num, #姓名, #年龄], o[a,"\r\n"], a.set(#年龄:33, #num:22).o["\r\n"];

!!!using("sys");<br /> <span style=\\"display:none\\">2 c/ p& o4 j) k; ^</span> main(:a)= a=struct[#num, #姓名, #年龄], o[a,"\r\n"], a.set(#年龄:33, #num:22).o["\r\n"];

结果：

1. struct{#num : nil , #姓名 : nil , #年龄 : nil}\" i: r+ D+ S% }4 P
   
2. struct{#num : 22 , #姓名 : nil , #年龄 : 33}

复制代码

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

2. !!!using("sys");
   
3. : V0 F3 \  ~$ K* m/ 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\\">: V0 F3 \  ~$ K* m/ 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}! v% }' I! k; C, v
   
2. 王强
   9 J* i! [. k1 g\" i4 `! _
3. 33

复制代码

（5）结构嵌套

2. !!!using("sys");
   
3. 8 h1 V; |0 B& q' V7 T! ]
4. main(:a)= a=struct[#num, #班级], a.#num=22, a.#班级=struct[#num, #姓名, #年龄],, u4 n\\" R1 e. c9 X5 Q  _$ |2 M
   
6.   a.#班级.#num=88,8 Y- ^* d6 ~\\" r/ j0 C3 Q. c0 u
   
8.   a.#班级.#姓名="王强",
   
9. - b, J- x! B8 t: k
10.   a.#班级.#年龄=33,
    
11.   q/ d3 P3 F3 w6 T+ Q. Y* b0 [
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\\">8 h1 V; |0 B& q' V7 T! ]</span> main(:a)= a=struct[#num, #班级], a.#num=22, a.#班级=struct[#num, #姓名, #年龄],<font class=\\"jammer\\">, u4 n\\" R1 e. c9 X5 Q  _$ |2 M</font><br />   a.#班级.#num=88,<font class=\\"jammer\\">8 Y- ^* d6 ~\\" r/ j0 C3 Q. c0 u</font><br />   a.#班级.#姓名="王强",<br /> <span style=\\"display:none\\">- b, J- x! B8 t: k</span>   a.#班级.#年龄=33,<br /> <span style=\\"display:none\\">  q/ d3 P3 F3 w6 T+ Q. Y* b0 [</span>   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[...]}* v1 Q8 j! _/ M8 W
   
2. 22
   9 {1 w# S5 |2 N) I3 P/ L
3. struct{#num : 88 , #姓名 : 王强 , #年龄 : 33}
   $ ^  U  M( g1 i
4. 88
   + ]; F9 v5 i2 k( f
5. 王强
   + f. U3 v$ J# x7 g0 v9 k
6. 33

复制代码

（6）效率测试

2. !!!using("sys");4 R: N5 F0 k$ w# S7 t6 M) z. G
   
4. main(:a,i,t0,sum)=
   
5. 6 G+ j# M8 @( T3 R$ \1 E/ M, D
6.   a=struct{
   
7. & Y4 r  y2 Z1 J
8.     #January,
   
9. & @; W  N1 b! O) _
10.     #February,* W6 V. X% Q2 B. A* N7 {
    
12.     #March,
    
13. . }# a# r9 @2 f9 _  a
14.     #April,
    
15. ; O* t7 \2 E( W+ y- T0 s7 m
16.     #May,
    
17. 7 [\\" b. b* O4 m
18.     #June,
    
19. - G% j: @/ d3 u2 O6 Y3 c+ ?
20.     #July,! d- v' a# u: d' l. M+ B
    
22.     #August,. V. o  l3 {7 Z2 ^) C5 K9 ~
    
24.     #September,+ Z% k6 ]  J\\" [# L* e, T
    
26.     #October,* X( w: @1 W; T& d4 W
    
28.     #November,\\" ^) V5 D, G, m- }3 c3 v  F8 O. J
    
30.     #December8 r$ j  J, q9 A7 o2 V4 @/ w
    
32.   },
    
33. ; O6 C8 u# J. K9 I; F$ W# z) @1 b
34.   t0=clock(), sum=0,
    
35. 1 X' G; X& m' M: V
36.   i=0, while{++i<=100000,4 e1 B; m' a# Y6 [4 U
    
38.     a.#January=1,) A0 F$ G3 s5 [' c3 s
    
40.     a.#February=2,- X  T. v1 I; Q9 Z% B' X
    
42.     a.#March=3,3 l9 m' U/ ?  {5 T
    
44.     a.#April=4,
    
45. + K- N, U. E% a. n4 S; }6 v& \
46.     a.#May=5,% ?: W\\" d# M& K- Y! u
    
48.     a.#June=6,/ H. n' V3 i6 O( p1 e
    
50.     a.#July=7,* \$ v/ O- ?# J' s9 W( ^
    
52.     a.#August=8,
    
53. ' }\\" z4 Q) A* t$ v! ]
54.     a.#September=9,3 L, A; U- @3 T1 w: d
    
56.     a.#October=10,( ?6 V0 @4 R6 B6 \
    
58.     a.#November=11,& Q5 {& Z4 F/ M* Q( A. A8 [
    
60.     a.#December=12,8 G1 i0 a2 \2 q/ y# u
    
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. . v  @% c9 L, J% n# P) F$ @
64.   },, U, {& i( Q( C
    
66.   o{"\r\n耗时", [clock()-t0]/1000., "秒。sum=", sum, "\r\n"};

!!!using("sys");<font class=\\"jammer\\">4 R: N5 F0 k$ w# S7 t6 M) z. G</font><br /> main(:a,i,t0,sum)=<br /> <span style=\\"display:none\\">6 G+ j# M8 @( T3 R$ \1 E/ M, D</span>   a=struct{<br /> <span style=\\"display:none\\">& Y4 r  y2 Z1 J</span>     #January,<br /> <span style=\\"display:none\\">& @; W  N1 b! O) _</span>     #February,<font class=\\"jammer\\">* W6 V. X% Q2 B. A* N7 {</font><br />     #March,<br /> <span style=\\"display:none\\">. }# a# r9 @2 f9 _  a</span>     #April,<br /> <span style=\\"display:none\\">; O* t7 \2 E( W+ y- T0 s7 m</span>     #May,<br /> <span style=\\"display:none\\">7 [\\" b. b* O4 m</span>     #June,<br /> <span style=\\"display:none\\">- G% j: @/ d3 u2 O6 Y3 c+ ?</span>     #July,<font class=\\"jammer\\">! d- v' a# u: d' l. M+ B</font><br />     #August,<font class=\\"jammer\\">. V. o  l3 {7 Z2 ^) C5 K9 ~</font><br />     #September,<font class=\\"jammer\\">+ Z% k6 ]  J\\" [# L* e, T</font><br />     #October,<font class=\\"jammer\\">* X( w: @1 W; T& d4 W</font><br />     #November,<font class=\\"jammer\\">\\" ^) V5 D, G, m- }3 c3 v  F8 O. J</font><br />     #December<font class=\\"jammer\\">8 r$ j  J, q9 A7 o2 V4 @/ w</font><br />   },<br /> <span style=\\"display:none\\">; O6 C8 u# J. K9 I; F$ W# z) @1 b</span>   t0=clock(), sum=0,<br /> <span style=\\"display:none\\">1 X' G; X& m' M: V</span>   i=0, while{++i<=100000,<font class=\\"jammer\\">4 e1 B; m' a# Y6 [4 U</font><br />     a.#January=1,<font class=\\"jammer\\">) A0 F$ G3 s5 [' c3 s</font><br />     a.#February=2,<font class=\\"jammer\\">- X  T. v1 I; Q9 Z% B' X</font><br />     a.#March=3,<font class=\\"jammer\\">3 l9 m' U/ ?  {5 T</font><br />     a.#April=4,<br /> <span style=\\"display:none\\">+ K- N, U. E% a. n4 S; }6 v& \</span>     a.#May=5,<font class=\\"jammer\\">% ?: W\\" d# M& K- Y! u</font><br />     a.#June=6,<font class=\\"jammer\\">/ H. n' V3 i6 O( p1 e</font><br />     a.#July=7,<font class=\\"jammer\\">* \$ v/ O- ?# J' s9 W( ^</font><br />     a.#August=8,<br /> <span style=\\"display:none\\">' }\\" z4 Q) A* t$ v! ]</span>     a.#September=9,<font class=\\"jammer\\">3 L, A; U- @3 T1 w: d</font><br />     a.#October=10,<font class=\\"jammer\\">( ?6 V0 @4 R6 B6 \</font><br />     a.#November=11,<font class=\\"jammer\\">& Q5 {& Z4 F/ M* Q( A. A8 [</font><br />     a.#December=12,<font class=\\"jammer\\">8 G1 i0 a2 \2 q/ y# u</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\\">. v  @% c9 L, J% n# P) F$ @</span>   },<font class=\\"jammer\\">, U, {& i( Q( C</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);
   $ Z) Z, X& g\" \! {- m/ _
2. tic; / m8 ^/ l; c% \  \4 i! C1 A' ]. `
   
3. sum=0;
   2 i  s! E* T3 i+ A0 U6 `+ X* Y; _# D$ M
4. for i=1:1000004 L6 ^/ a0 W+ N; B/ X5 V3 `% m
   
5.     a.January=1;$ W4 R0 z* A% U& p, K/ ~
   
6.     a.February=2;  b. w. X: x; Y2 z- b' s+ l4 q( L+ s
   
7.     a.March=3;- l: z6 T3 S: k; v8 G* H
   
8.     a.April=4;
   1 w# G% C6 Z7 K+ A
9.     a.May=5;
     t. X4 @% @' P& d7 N* x9 _
10.     a.June=6;
    * @1 C- ~' f# b! x9 ~) X! u, ]
11.     a.July=7;
    + ^: R# C. x  A8 S7 R7 x
12.     a.August=8;% a\" S; o\" S1 c; @8 l& @: ?6 p, x4 u
    
13.     a.September=9;
      u' o* s! |% q3 T: T0 q
14.     a.October=10;
    : z/ H; h. `/ c9 `1 X$ {
15.     a.November=11;2 G5 l9 I$ T# ?5 F6 ]
    
16.     a.December=12;$ p( @6 o8 {( Z. N- U
    
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;* z# H5 E, e9 [; H; F+ Q1 J# ^
    
18. end$ L0 k7 e% S' D# F+ N( E/ o+ c
    
19. toc,0 G* N0 P; g& Y% ?! Y$ u
    
20. sum

复制代码

结果：

1. Elapsed time is 3.275743 seconds.7 O  U. Y! z$ c( v( n% f, q# C
   
2. 
   \" H# t4 `, `# K2 g( w9 ^
3. sum =
   1 {0 k  C0 E/ T( v4 o) u
4. 
   ' O1 m8 `# P3 B. g6 U. U  W! W+ H
5. 7800000

复制代码

forcal

测试2：
6 b; a  d" V- R
3 B  g) n/ R. M, }$ @Lu代码：

2. !!!using("sys");/ \' G# s\\" _, P8 ^1 l
   
4. main(:a,i,t0,sum)=9 B: N, n( j; i$ `3 q5 f
   
6.   t0=clock(), sum=0,, c5 J% Q) s9 k+ ^9 ]1 Z
   
8.   i=0, while{++i<=100000,
   
9. $ L1 \6 R* I& R2 l! w
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},
    
11. 1 m! C5 C; M) ?1 D
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( L\\" y3 @! {1 w6 v! L8 d
    
14.   },
    
15. 1 F6 \8 h& H1 ?4 B: G7 j% Y7 G/ Q
16.   o{"\r\n耗时", [clock()-t0]/1000., "秒。sum=", sum, "\r\n"};

!!!using("sys");<font class=\\"jammer\\">/ \' G# s\\" _, P8 ^1 l</font><br /> main(:a,i,t0,sum)=<font class=\\"jammer\\">9 B: N, n( j; i$ `3 q5 f</font><br />   t0=clock(), sum=0,<font class=\\"jammer\\">, c5 J% Q) s9 k+ ^9 ]1 Z</font><br />   i=0, while{++i<=100000,<br /> <span style=\\"display:none\\">$ L1 \6 R* I& R2 l! w</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},<br /> <span style=\\"display:none\\">1 m! C5 C; M) ?1 D</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<font class=\\"jammer\\">( L\\" y3 @! {1 w6 v! L8 d</font><br />   },<br /> <span style=\\"display:none\\">1 F6 \8 h& H1 ?4 B: G7 j% Y7 G/ Q</span>   o{"\r\n耗时", [clock()-t0]/1000., "秒。sum=", sum, "\r\n"};

结果：

1. 耗时0.53100000000000003秒。sum=7800000

复制代码

Matlab2009a代码：

1. tic; # _9 c! s% A7 ]) E- B3 \
   
2. sum=0;
   & S* @7 k* U* ]7 w; f3 ~/ e
3. for i=1:100000
   ! }' v/ D/ k1 X( n8 V& N. b
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);
   7 Z  p$ A6 ?3 L9 O: y/ Y
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;$ `* Z: W/ n- G' i) X( v4 A
   
6. end6 g* {: r7 G\" ~) G
   
7. toc,0 y6 |# S8 A' I: m7 t) `: g
   
8. sum

复制代码

结果：

1. Elapsed time is 6.390977 seconds.
   ! U  ?4 K5 X& l) v! N
2. ; O9 ]- _- o, k1 ]. j2 z
   
3. sum =
   0 @+ q4 c$ {6 Z
4. # s6 U; ^# E/ y3 ^5 _) O
   
5.      7800000

复制代码