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

forcal

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

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

    （1）新建结构：相当于结构定义

2. !!!using("sys");& P( |+ A$ ~9 X% \
   
4. new[struct, #num, #姓名 : "luuu", #年龄].o[];    //用函数new生成结构，有3个成员，其中“姓名”成员进行了初始化。函数o用于输出 结构。

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

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

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

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

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

2. !!!using("sys");
   
3. + X\\" M+ f5 \+ a8 |
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\\">+ X\\" M+ f5 \+ a8 |</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}% J$ W4 [& D! ?2 o2 {+ Z) U
   
2. struct{#num : nil , #姓名 : luuu , #年龄 : nil}
   ( U( n1 D( b6 ?5 i5 l6 x6 x8 |
3. struct{#num : 22 , #姓名 : luuu , #年龄 : 33}

复制代码

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

2. !!!using("sys");6 y+ G8 E; W: N/ H% T
   
4. main(:a)= a=struct[#num, #姓名, #年龄], o[a,"\r\n"], a.set(#年龄:33, #num:22).o["\r\n"];

!!!using("sys");<font class=\\"jammer\\">6 y+ G8 E; W: N/ H% T</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}$ j% a# d, F4 D! t( w) A. N; y# e8 g
   
2. struct{#num : 22 , #姓名 : nil , #年龄 : 33}

复制代码

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

2. !!!using("sys");
   
3. ) ^& r/ {8 y. b; Z* _2 `- d6 E
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\\">) ^& r/ {8 y. b; Z* _2 `- d6 E</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}
   & F/ P& r$ N1 L0 N
2. 王强# y\" }5 x8 N! y/ ~( H& y3 k
   
3. 33

复制代码

（5）结构嵌套

2. !!!using("sys");
   
3. 1 g! T* |% _2 e& u7 X, w2 C! S2 ]8 h1 O& h
4. main(:a)= a=struct[#num, #班级], a.#num=22, a.#班级=struct[#num, #姓名, #年龄],
   
5. 0 ]/ N# D( q; P- H% E  ?% F4 K\\" Y
6.   a.#班级.#num=88,! O) }0 s8 ]& U7 G
   
8.   a.#班级.#姓名="王强",
   
9. % ^7 @5 t1 j6 F' M* L' o
10.   a.#班级.#年龄=33,# _; E& i& X\\" ~! M
    
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 g! T* |% _2 e& u7 X, w2 C! S2 ]8 h1 O& h</span> main(:a)= a=struct[#num, #班级], a.#num=22, a.#班级=struct[#num, #姓名, #年龄],<br /> <span style=\\"display:none\\">0 ]/ N# D( q; P- H% E  ?% F4 K\\" Y</span>   a.#班级.#num=88,<font class=\\"jammer\\">! O) }0 s8 ]& U7 G</font><br />   a.#班级.#姓名="王强",<br /> <span style=\\"display:none\\">% ^7 @5 t1 j6 F' M* L' o</span>   a.#班级.#年龄=33,<font class=\\"jammer\\"># _; E& i& X\\" ~! M</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[...]}8 ]& ]7 l: Q9 ?5 o! A
   
2. 223 e( q  F; ?' g6 x# W  P
   
3. struct{#num : 88 , #姓名 : 王强 , #年龄 : 33}
   2 B* F# g) b1 Y0 H
4. 88. L8 |0 S* T% }, p$ G: T
   
5. 王强  A3 [8 }  Z. @3 M: m
   
6. 33

复制代码

（6）效率测试

2. !!!using("sys");
   
3. # c( o0 H! K' u  i
4. main(:a,i,t0,sum)=
   
5. \\" g2 L+ Z. T; \) A, N
6.   a=struct{
   
7. 5 }0 X6 o. N) q! B% `( E6 L
8.     #January,
   
9. : J' U  A  a1 s& O2 p/ Q
10.     #February,$ y% U6 ^; ?, x4 ?% G
    
12.     #March,
    
13. + I: D  Q! {- O& U& @5 q
14.     #April,
    
15. ' U# }- k) |! @% v, z
16.     #May,* {0 L+ ]7 Y; t( }, b1 ?7 O
    
18.     #June,4 I) J% U5 x2 U2 y
    
20.     #July,
    
21. ) L4 M3 G! F( n2 U* K: y
22.     #August,
    
23. ; [# v\\" ^4 M  R9 T2 J  j! d
24.     #September,\\" z6 N* D' s5 s6 @% Z, v% t
    
26.     #October,) \! y6 F1 S5 l# V\\" m; B
    
28.     #November,
    
29. 5 W9 u+ n) M1 H  M( d1 f
30.     #December+ p* ~, {! c( T/ _2 A
    
32.   },2 k% ?, d; w7 ~$ A
    
34.   t0=clock(), sum=0,2 k2 l2 {% C7 O% N/ n5 c* s& R9 M7 c6 J
    
36.   i=0, while{++i<=100000,
    
37. 2 h6 s/ M4 }  Q3 `  Y' u7 V6 l
38.     a.#January=1,0 `; O' |) |- M! b: D1 _$ S
    
40.     a.#February=2,- F9 j0 C- x, n* I0 C( ^\\" U
    
42.     a.#March=3,
    
43. ' k) n. T$ E# n\\" m+ z
44.     a.#April=4,
    
45. 9 c+ U* V- x1 _4 b% E* h; u# C
46.     a.#May=5,, b: Y$ N8 V- \( _. Q\\" l! D  C
    
48.     a.#June=6,1 o* L( E! N/ k4 m, P5 ?/ ~) M) m
    
50.     a.#July=7,. q5 c0 v. k. U0 y% Z
    
52.     a.#August=8,6 U$ \; K2 _9 w6 Z/ `* J, Y
    
54.     a.#September=9,- Z+ k( W( `0 S# g8 o6 s- F. X5 R7 V9 p
    
56.     a.#October=10,
    
57. 8 [. \0 l& {# g) O
58.     a.#November=11,0 G& Z! n% m. y0 x
    
60.     a.#December=12,
    
61. # X( Q. f. p. g# F9 p
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' G! O/ r  G' Q! Y/ S* G, W\\" q1 E
    
64.   },6 j# L) L; y- n  C* ^
    
66.   o{"\r\n耗时", [clock()-t0]/1000., "秒。sum=", sum, "\r\n"};

!!!using("sys");<br /> <span style=\\"display:none\\"># c( o0 H! K' u  i</span> main(:a,i,t0,sum)=<br /> <span style=\\"display:none\\">\\" g2 L+ Z. T; \) A, N</span>   a=struct{<br /> <span style=\\"display:none\\">5 }0 X6 o. N) q! B% `( E6 L</span>     #January,<br /> <span style=\\"display:none\\">: J' U  A  a1 s& O2 p/ Q</span>     #February,<font class=\\"jammer\\">$ y% U6 ^; ?, x4 ?% G</font><br />     #March,<br /> <span style=\\"display:none\\">+ I: D  Q! {- O& U& @5 q</span>     #April,<br /> <span style=\\"display:none\\">' U# }- k) |! @% v, z</span>     #May,<font class=\\"jammer\\">* {0 L+ ]7 Y; t( }, b1 ?7 O</font><br />     #June,<font class=\\"jammer\\">4 I) J% U5 x2 U2 y</font><br />     #July,<br /> <span style=\\"display:none\\">) L4 M3 G! F( n2 U* K: y</span>     #August,<br /> <span style=\\"display:none\\">; [# v\\" ^4 M  R9 T2 J  j! d</span>     #September,<font class=\\"jammer\\">\\" z6 N* D' s5 s6 @% Z, v% t</font><br />     #October,<font class=\\"jammer\\">) \! y6 F1 S5 l# V\\" m; B</font><br />     #November,<br /> <span style=\\"display:none\\">5 W9 u+ n) M1 H  M( d1 f</span>     #December<font class=\\"jammer\\">+ p* ~, {! c( T/ _2 A</font><br />   },<font class=\\"jammer\\">2 k% ?, d; w7 ~$ A</font><br />   t0=clock(), sum=0,<font class=\\"jammer\\">2 k2 l2 {% C7 O% N/ n5 c* s& R9 M7 c6 J</font><br />   i=0, while{++i<=100000,<br /> <span style=\\"display:none\\">2 h6 s/ M4 }  Q3 `  Y' u7 V6 l</span>     a.#January=1,<font class=\\"jammer\\">0 `; O' |) |- M! b: D1 _$ S</font><br />     a.#February=2,<font class=\\"jammer\\">- F9 j0 C- x, n* I0 C( ^\\" U</font><br />     a.#March=3,<br /> <span style=\\"display:none\\">' k) n. T$ E# n\\" m+ z</span>     a.#April=4,<br /> <span style=\\"display:none\\">9 c+ U* V- x1 _4 b% E* h; u# C</span>     a.#May=5,<font class=\\"jammer\\">, b: Y$ N8 V- \( _. Q\\" l! D  C</font><br />     a.#June=6,<font class=\\"jammer\\">1 o* L( E! N/ k4 m, P5 ?/ ~) M) m</font><br />     a.#July=7,<font class=\\"jammer\\">. q5 c0 v. k. U0 y% Z</font><br />     a.#August=8,<font class=\\"jammer\\">6 U$ \; K2 _9 w6 Z/ `* J, Y</font><br />     a.#September=9,<font class=\\"jammer\\">- Z+ k( W( `0 S# g8 o6 s- F. X5 R7 V9 p</font><br />     a.#October=10,<br /> <span style=\\"display:none\\">8 [. \0 l& {# g) O</span>     a.#November=11,<font class=\\"jammer\\">0 G& Z! n% m. y0 x</font><br />     a.#December=12,<br /> <span style=\\"display:none\\"># X( Q. f. p. g# F9 p</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\\">' G! O/ r  G' Q! Y/ S* G, W\\" q1 E</font><br />   },<font class=\\"jammer\\">6 j# L) L; y- n  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);( k* O% G: \* R! m0 i; Y& p- K( B
   
2. tic;
   2 K+ E\" D# {% x7 s8 @3 F
3. sum=0;0 M\" r\" O: O; P* q- [9 g6 q
   
4. for i=1:1000004 M8 K) T! l  P6 O9 n8 C, D) I
   
5.     a.January=1;
   # _9 M9 \/ b. C/ |# n7 d
6.     a.February=2;
   , c; o9 G7 q8 B
7.     a.March=3;% Y+ i7 i0 N. \/ d
   
8.     a.April=4;: Y6 h8 n- h, b4 }3 t
   
9.     a.May=5;. Q9 h, y' [, B
   
10.     a.June=6;/ U1 ]# l( u0 l$ {
    
11.     a.July=7;6 s0 k$ O8 b! `# m
    
12.     a.August=8;
    $ z- Q& b/ y; z- q+ }; C+ d
13.     a.September=9;8 g/ u- e7 K3 w) w/ D2 D! B
    
14.     a.October=10;8 c* M: M$ m2 B6 T# |\" j* ?+ a
    
15.     a.November=11;
    . }/ B* S; T( W# d, q
16.     a.December=12;# T. t2 J\" |+ i8 C
    
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;( X# c+ f1 l3 [+ Y2 j; r5 g
    
18. end
    9 G7 ?. W\" ], y, N
19. toc,
    $ b# E! d2 q\" s7 c' R# C
20. sum

复制代码

结果：

1. Elapsed time is 3.275743 seconds.
   ( q6 w6 [& `1 D5 m5 n\" M
2. % G) a1 p$ W* g2 D' T+ y0 ~
   
3. sum =8 N) r, H# T1 ~# C+ w/ n1 |$ g8 H
   
4. 
     h8 z9 E: H! S& e
5. 7800000

复制代码

forcal

测试2：

Lu代码：

2. !!!using("sys");/ F6 e, y# u# V! h
   
4. main(:a,i,t0,sum)=
   
5. 0 _2 @! u. E9 P( g0 ~( d
6.   t0=clock(), sum=0,$ z% ?+ `( m7 D, d
   
8.   i=0, while{++i<=100000,
   
9. 1 m( Q( b, Z/ X' W( m
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},9 _. m7 {! w, r% A5 G
    
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: X& ?. F& }4 I* X+ b: o% J7 L  B
    
14.   },
    
15. 9 ]* X& Q- w7 f
16.   o{"\r\n耗时", [clock()-t0]/1000., "秒。sum=", sum, "\r\n"};

!!!using("sys");<font class=\\"jammer\\">/ F6 e, y# u# V! h</font><br /> main(:a,i,t0,sum)=<br /> <span style=\\"display:none\\">0 _2 @! u. E9 P( g0 ~( d</span>   t0=clock(), sum=0,<font class=\\"jammer\\">$ z% ?+ `( m7 D, d</font><br />   i=0, while{++i<=100000,<br /> <span style=\\"display:none\\">1 m( Q( b, Z/ X' W( m</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\\">9 _. m7 {! w, r% A5 G</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<font class=\\"jammer\\">: X& ?. F& }4 I* X+ b: o% J7 L  B</font><br />   },<br /> <span style=\\"display:none\\">9 ]* X& Q- w7 f</span>   o{"\r\n耗时", [clock()-t0]/1000., "秒。sum=", sum, "\r\n"};

结果：

1. 耗时0.53100000000000003秒。sum=7800000

复制代码

Matlab2009a代码：

1. tic;
   , P9 L1 |7 ]9 y
2. sum=0;2 p$ [) ?$ F8 {
   
3. for i=1:1000001 k7 c- l6 |  T\" E- N: v
   
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);2 P4 f# ~% \5 G
   
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;
   0 [7 Z) \' d) M: I# \) n* l/ r
6. end
   0 A) i) A9 d& ^' U
7. toc,3 s' ^; o& [+ d- M
   
8. sum

复制代码

结果：

1. Elapsed time is 6.390977 seconds.' |; ]; y9 T$ ~6 q2 Y5 u8 e
   
2. 8 y; _  K8 u. p7 w
   
3. sum =
   2 P0 M; L: P# O& l# I
4.   V  s5 A% l\" m7 [- R$ J1 `8 Q& m: R  L* N0 D
   
5.      7800000

复制代码