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

forcal

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

    结构（struct）是一个线性表，可以存放若干任意的Lu数据。结构成员必须以#开头。结构成员的存储顺序与其定义顺序不一定相同。
/ Q6 ~- _' ]+ }
    （1）新建结构：相当于结构定义

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

!!!using("sys");<br /> <span style=\\"display:none\\">4 ?9 a' o\\" b: S</span> new[struct, #num, #姓名 : "luuu", #年龄].o[];    //用函数new生成结构，有3个成员，其中“姓名”成员进行了初始化。函数o用于输出 结构。

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

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

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

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

2. !!!using("sys");- j& \, o% e4 g\\" v- {. I2 o
   
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\\">- j& \, o% e4 g\\" v- {. I2 o</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}  Y7 e) o7 e( ]6 l( |5 u
   
2. struct{#num : nil , #姓名 : luuu , #年龄 : nil}) Z6 D/ C6 `) v6 \
   
3. struct{#num : 22 , #姓名 : luuu , #年龄 : 33}

复制代码

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

2. !!!using("sys");. ^# n; k2 v4 S- Y0 F4 d! M! o
   
4. main(:a)= a=struct[#num, #姓名, #年龄], o[a,"\r\n"], a.set(#年龄:33, #num:22).o["\r\n"];

!!!using("sys");<font class=\\"jammer\\">. ^# n; k2 v4 S- Y0 F4 d! M! o</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}) N5 m! a2 w# ~; ?/ D9 Q  ?* H
   
2. struct{#num : 22 , #姓名 : nil , #年龄 : 33}

复制代码

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

2. !!!using("sys");
   
3. & U0 b% E: _/ i9 I$ s# 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");<br /> <span style=\\"display:none\\">& U0 b% E: _/ i9 I$ s# O</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}- T/ i! T9 Q: e/ O  A$ }) z
   
2. 王强
   1 Y) f6 E6 f1 a6 ~
3. 33

复制代码

（5）结构嵌套

2. !!!using("sys");
   
3. / h. z/ o1 Y\\" ^& N6 x
4. main(:a)= a=struct[#num, #班级], a.#num=22, a.#班级=struct[#num, #姓名, #年龄],
   
5. 1 c$ |/ M# C# J+ P6 B& u& W! o6 S6 ?
6.   a.#班级.#num=88,
   
7. 7 X# y& n: N4 x% }; }
8.   a.#班级.#姓名="王强",\\" g/ Z  i1 _# V0 ?% [
   
10.   a.#班级.#年龄=33,1 w$ ?: ]7 K6 G# g7 n# I5 R5 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");<br /> <span style=\\"display:none\\">/ h. z/ o1 Y\\" ^& N6 x</span> main(:a)= a=struct[#num, #班级], a.#num=22, a.#班级=struct[#num, #姓名, #年龄],<br /> <span style=\\"display:none\\">1 c$ |/ M# C# J+ P6 B& u& W! o6 S6 ?</span>   a.#班级.#num=88,<br /> <span style=\\"display:none\\">7 X# y& n: N4 x% }; }</span>   a.#班级.#姓名="王强",<font class=\\"jammer\\">\\" g/ Z  i1 _# V0 ?% [</font><br />   a.#班级.#年龄=33,<font class=\\"jammer\\">1 w$ ?: ]7 K6 G# g7 n# I5 R5 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[...]}
   & Y8 P. b: Q, Q- `8 [7 N' Y9 I1 G
2. 22  r\" H% r$ [) x6 j& O. K! j' `6 @
   
3. struct{#num : 88 , #姓名 : 王强 , #年龄 : 33}
   - D+ g( R$ ~3 V) `5 H\" e
4. 88% A% [8 U6 T. N+ L
   
5. 王强& i5 Y% @. w/ n9 x6 N
   
6. 33

复制代码

（6）效率测试

2. !!!using("sys");
   
3. 3 W# }/ i6 C+ K
4. main(:a,i,t0,sum)=
   
5. * p- {2 O2 Q6 a/ I. n% {
6.   a=struct{7 w% b8 F& N! y: I- R9 q
   
8.     #January,
   
9. + x$ @% x3 [9 L# C5 S
10.     #February,+ i+ q; a! o2 b  b6 S
    
12.     #March,( I9 ^- t+ |+ K- }3 W! K
    
14.     #April,
    
15. $ ^0 l7 t# X- b\\" \# ?1 u( p! n
16.     #May,
    
17. . V7 Z! [0 ~& i\\" ~
18.     #June,
    
19. 1 L2 C4 L& A/ \3 _; Z
20.     #July,  _' ~% R- d& l& N* e) W! f
    
22.     #August,
    
23. 5 F% k* C4 F  M! q, B0 B2 h
24.     #September,
    
25. ! h( N6 D/ Y% \3 K7 j1 R
26.     #October,0 a4 g) Y' l& ~( U7 l
    
28.     #November,
    
29. 4 P9 L7 y( c1 |  Z\\" R* `
30.     #December
    
31. , [* H) a; q5 {* q+ \# O0 P
32.   },
    
33. % g6 ~: @! r2 v0 N/ Q( ^6 O
34.   t0=clock(), sum=0,1 x8 g6 M2 K% s
    
36.   i=0, while{++i<=100000,\\" k! V: i, V0 S\\" ^) F5 Q
    
38.     a.#January=1,
    
39. . O$ m( ?  `4 P7 ~, i$ X& D4 ]
40.     a.#February=2,/ `8 U% m/ B& n) W; r
    
42.     a.#March=3,
    
43. 7 ~( P7 K% J# a2 v0 z
44.     a.#April=4,
    
45. \\" f4 h- b. h) w+ E
46.     a.#May=5,( i' C\\" L6 Z: g5 f! @
    
48.     a.#June=6,
    
49.   x  ^( d* m. ~2 w& m; b
50.     a.#July=7,
    
51. 0 p+ [& Z& M/ I3 K0 ]) ?/ t/ Y, |
52.     a.#August=8,/ G\\" s1 ^7 R& B) f
    
54.     a.#September=9,5 ?9 E  C  |9 A- U, _9 z
    
56.     a.#October=10,% f0 ~0 C  b4 B4 G
    
58.     a.#November=11,. Q+ N! \; ]2 Z7 T) Z\\" ]
    
60.     a.#December=12,
    
61. 1 Z- E! f# A% [  s
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. + j& j7 l& @- M2 ^
64.   },' X( ]% N4 t* i& B! y9 o: T
    
66.   o{"\r\n耗时", [clock()-t0]/1000., "秒。sum=", sum, "\r\n"};

!!!using("sys");<br /> <span style=\\"display:none\\">3 W# }/ i6 C+ K</span> main(:a,i,t0,sum)=<br /> <span style=\\"display:none\\">* p- {2 O2 Q6 a/ I. n% {</span>   a=struct{<font class=\\"jammer\\">7 w% b8 F& N! y: I- R9 q</font><br />     #January,<br /> <span style=\\"display:none\\">+ x$ @% x3 [9 L# C5 S</span>     #February,<font class=\\"jammer\\">+ i+ q; a! o2 b  b6 S</font><br />     #March,<font class=\\"jammer\\">( I9 ^- t+ |+ K- }3 W! K</font><br />     #April,<br /> <span style=\\"display:none\\">$ ^0 l7 t# X- b\\" \# ?1 u( p! n</span>     #May,<br /> <span style=\\"display:none\\">. V7 Z! [0 ~& i\\" ~</span>     #June,<br /> <span style=\\"display:none\\">1 L2 C4 L& A/ \3 _; Z</span>     #July,<font class=\\"jammer\\">  _' ~% R- d& l& N* e) W! f</font><br />     #August,<br /> <span style=\\"display:none\\">5 F% k* C4 F  M! q, B0 B2 h</span>     #September,<br /> <span style=\\"display:none\\">! h( N6 D/ Y% \3 K7 j1 R</span>     #October,<font class=\\"jammer\\">0 a4 g) Y' l& ~( U7 l</font><br />     #November,<br /> <span style=\\"display:none\\">4 P9 L7 y( c1 |  Z\\" R* `</span>     #December<br /> <span style=\\"display:none\\">, [* H) a; q5 {* q+ \# O0 P</span>   },<br /> <span style=\\"display:none\\">% g6 ~: @! r2 v0 N/ Q( ^6 O</span>   t0=clock(), sum=0,<font class=\\"jammer\\">1 x8 g6 M2 K% s</font><br />   i=0, while{++i<=100000,<font class=\\"jammer\\">\\" k! V: i, V0 S\\" ^) F5 Q</font><br />     a.#January=1,<br /> <span style=\\"display:none\\">. O$ m( ?  `4 P7 ~, i$ X& D4 ]</span>     a.#February=2,<font class=\\"jammer\\">/ `8 U% m/ B& n) W; r</font><br />     a.#March=3,<br /> <span style=\\"display:none\\">7 ~( P7 K% J# a2 v0 z</span>     a.#April=4,<br /> <span style=\\"display:none\\">\\" f4 h- b. h) w+ E</span>     a.#May=5,<font class=\\"jammer\\">( i' C\\" L6 Z: g5 f! @</font><br />     a.#June=6,<br /> <span style=\\"display:none\\">  x  ^( d* m. ~2 w& m; b</span>     a.#July=7,<br /> <span style=\\"display:none\\">0 p+ [& Z& M/ I3 K0 ]) ?/ t/ Y, |</span>     a.#August=8,<font class=\\"jammer\\">/ G\\" s1 ^7 R& B) f</font><br />     a.#September=9,<font class=\\"jammer\\">5 ?9 E  C  |9 A- U, _9 z</font><br />     a.#October=10,<font class=\\"jammer\\">% f0 ~0 C  b4 B4 G</font><br />     a.#November=11,<font class=\\"jammer\\">. Q+ N! \; ]2 Z7 T) Z\\" ]</font><br />     a.#December=12,<br /> <span style=\\"display:none\\">1 Z- E! f# A% [  s</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\\">+ j& j7 l& @- M2 ^</span>   },<font class=\\"jammer\\">' X( ]% N4 t* i& B! y9 o: T</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);* F. W1 |* W/ X, @' X$ k2 x( Z1 X
   
2. tic;
   : c% O7 {' E: U  M6 S: _
3. sum=0;
   5 _( `. |3 {' W1 X; q! e
4. for i=1:100000
   & c1 d\" }5 N$ L  S* N. H8 W
5.     a.January=1;1 V, \, Q5 I$ W/ e
   
6.     a.February=2;& n( R. `! Y' @& B% e8 C
   
7.     a.March=3;
   \" z$ j, ^( P' j2 r& a
8.     a.April=4;
   2 \/ S/ z5 Z* K* s
9.     a.May=5;5 @5 {2 l% ~: R6 v. `
   
10.     a.June=6;
    9 v8 W, ^4 B( @) H& Q. M
11.     a.July=7;
    2 m1 S! ]9 S* P+ O0 f* j8 D! G0 i% k
12.     a.August=8;
    ! h; W. z2 p6 G) c- l
13.     a.September=9;
    5 E8 K/ S* |# y7 J
14.     a.October=10;  \, L  B( Z  x! P4 r& _) P8 l
    
15.     a.November=11;2 l  Z; f6 h9 C! s( G, U  M6 r
    
16.     a.December=12;
    % O( B( n. B# Q
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;
    7 g& C, [  C: m& w
18. end( C2 [5 b8 f- b5 U  f3 A
    
19. toc,7 r6 h+ b% d5 ^1 E) H
    
20. sum

复制代码

结果：

1. Elapsed time is 3.275743 seconds.0 H0 y5 N. F9 n( z& [& j! Z* Y
   
2. 
   2 q  _  g- X9 r\" t- B) Y
3. sum =& K  y4 C9 n& {
   
4. 2 T3 ~! d  d, t* ^+ `
   
5. 7800000

复制代码

forcal

测试2：
  V2 Y) ]0 N2 h; I
, g4 Q3 \# a7 J* @4 lLu代码：

2. !!!using("sys");) E2 p8 o# A& |$ J) K
   
4. main(:a,i,t0,sum)=
   
5. , u6 l. H  ~+ E2 N# s! b8 f% R
6.   t0=clock(), sum=0,, E* b2 A+ i/ U; n' N
   
8.   i=0, while{++i<=100000,, Y3 N0 ?1 X\\" q2 w9 ~8 H
   
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. / `- x# r  S& G* @) ]' X0 |. b
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. 9 o- y2 \\\" I/ Q) L
14.   },: \2 ~6 r5 z( A  a
    
16.   o{"\r\n耗时", [clock()-t0]/1000., "秒。sum=", sum, "\r\n"};

!!!using("sys");<font class=\\"jammer\\">) E2 p8 o# A& |$ J) K</font><br /> main(:a,i,t0,sum)=<br /> <span style=\\"display:none\\">, u6 l. H  ~+ E2 N# s! b8 f% R</span>   t0=clock(), sum=0,<font class=\\"jammer\\">, E* b2 A+ i/ U; n' N</font><br />   i=0, while{++i<=100000,<font class=\\"jammer\\">, Y3 N0 ?1 X\\" q2 w9 ~8 H</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},<br /> <span style=\\"display:none\\">/ `- x# r  S& G* @) ]' X0 |. 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\\">9 o- y2 \\\" I/ Q) L</span>   },<font class=\\"jammer\\">: \2 ~6 r5 z( A  a</font><br />   o{"\r\n耗时", [clock()-t0]/1000., "秒。sum=", sum, "\r\n"};

结果：

1. 耗时0.53100000000000003秒。sum=7800000

复制代码

Matlab2009a代码：

1. tic; & ?: G' z; f1 {) x; m
   
2. sum=0;
   . G\" V& W8 C: m* ~' E# B: E
3. for i=1:100000$ Z9 J. M) a' j0 ]
   
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);
   # s. i+ m6 S, s5 k8 E
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: O( U4 S1 f* E  b9 U; o; Z
   
6. end( n- ?$ L% g7 z7 D0 Y- n& w; O
   
7. toc,. X5 [, i( ~\" C5 M4 ~3 \+ P
   
8. sum

复制代码

结果：

1. Elapsed time is 6.390977 seconds.5 q0 o% K- z1 ]
   
2. 
   1 r9 C7 V! G- V7 j0 X* ~& l
3. sum =
   2 w* o; O# w3 w5 R- E4 k6 Y# l& {; {
4. 
   # t8 }, S9 L+ s; |# L# L
5.      7800000

复制代码