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

forcal

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

    结构（struct）是一个线性表，可以存放若干任意的Lu数据。结构成员必须以#开头。结构成员的存储顺序与其定义顺序不一定相同。
7 \9 M% ]3 @/ O& h. S4 J0 t& F
5 e& |6 o$ }# R7 ^/ \/ g; m; ^    （1）新建结构：相当于结构定义

2. !!!using("sys");- q3 P$ R/ v/ V\\" |\\" u  s$ G2 |$ i
   
4. new[struct, #num, #姓名 : "luuu", #年龄].o[];    //用函数new生成结构，有3个成员，其中“姓名”成员进行了初始化。函数o用于输出 结构。

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

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

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

!!!using("sys");<br /> <span style=\\"display:none\\">5 d- t( o3 m! ~0 H</span> struct[#num, #姓名 : "luuu", #年龄].o[];        //用函数new生成结构，有3个成员，其中“姓名”成员进行了初始化。函数o用于输出 结构。

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

2. !!!using("sys");
   
3. - o$ `' z) u0 L% I8 w4 \- 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\\">- o$ `' z) u0 L% I8 w4 \- 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}
   1 O1 b0 e* e1 f1 Z
2. struct{#num : nil , #姓名 : luuu , #年龄 : nil}
   ! i( N' @# U+ `% H1 g\" E
3. struct{#num : 22 , #姓名 : luuu , #年龄 : 33}

复制代码

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

2. !!!using("sys");0 |7 [7 c) a! X
   
4. main(:a)= a=struct[#num, #姓名, #年龄], o[a,"\r\n"], a.set(#年龄:33, #num:22).o["\r\n"];

!!!using("sys");<font class=\\"jammer\\">0 |7 [7 c) a! X</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}
   6 E% l6 G  F- {1 ~) S7 U2 S
2. struct{#num : 22 , #姓名 : nil , #年龄 : 33}

复制代码

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

2. !!!using("sys");+ O* _0 @$ ]% z6 ^6 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");<font class=\\"jammer\\">+ O* _0 @$ ]% z6 ^6 E</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}' T5 @9 T* b+ h% {2 u\" H
   
2. 王强
   ) p8 m9 Y! C$ V\" ~/ c2 h
3. 33

复制代码

（5）结构嵌套

2. !!!using("sys");, C1 F+ O( r/ e: S* D& A; v
   
4. main(:a)= a=struct[#num, #班级], a.#num=22, a.#班级=struct[#num, #姓名, #年龄],0 Z. |( k# L$ S* ~
   
6.   a.#班级.#num=88,# l; E, ^\\" I1 C7 l5 O: f1 i# e
   
8.   a.#班级.#姓名="王强",
   
9. 5 @: x3 e\\" U4 t, e
10.   a.#班级.#年龄=33,\\" |0 ^5 Z2 c: [: {6 v
    
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\\">, C1 F+ O( r/ e: S* D& A; v</font><br /> main(:a)= a=struct[#num, #班级], a.#num=22, a.#班级=struct[#num, #姓名, #年龄],<font class=\\"jammer\\">0 Z. |( k# L$ S* ~</font><br />   a.#班级.#num=88,<font class=\\"jammer\\"># l; E, ^\\" I1 C7 l5 O: f1 i# e</font><br />   a.#班级.#姓名="王强",<br /> <span style=\\"display:none\\">5 @: x3 e\\" U4 t, e</span>   a.#班级.#年龄=33,<font class=\\"jammer\\">\\" |0 ^5 Z2 c: [: {6 v</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[...]}, B3 A. H& S7 d\" p% n. W) C
   
2. 222 ^  V/ ]; R  t7 Y* ], z
   
3. struct{#num : 88 , #姓名 : 王强 , #年龄 : 33}
   * k2 P( p' o) o& a
4. 882 g7 t6 E+ R& T; s\" e  A( }
   
5. 王强6 z. L' D) R& K3 |: D/ M
   
6. 33

复制代码

（6）效率测试

2. !!!using("sys");$ i# G2 O* ]) c/ V& e, B
   
4. main(:a,i,t0,sum)=
   
5. * J% T$ o9 R; X# f3 b5 [  e- x+ {
6.   a=struct{# [6 e. ^+ O9 @5 Z6 T6 X
   
8.     #January,7 a# ^, {4 Y9 R8 g5 N
   
10.     #February,9 j' ]% P; C9 N( x8 H8 [5 a
    
12.     #March,4 D: Z2 j: o3 H5 K: @% d
    
14.     #April,  G5 {5 d( W. Z2 y
    
16.     #May,. z2 `: z, {/ o0 [: \) i5 b4 N
    
18.     #June,
    
19.   l! t7 A3 e: Y, h$ A
20.     #July,
    
21. 9 C8 O* d7 a3 B6 Q+ e9 c
22.     #August,
    
23. 3 P9 J1 S* ]8 m5 ^- ~/ J
24.     #September,
    
25. 0 e) e! ?* w% i& B% v) N
26.     #October,
    
27. 5 z, ^+ t/ ?' f+ O8 ]6 b6 _
28.     #November,
    
29. 0 |. ^8 ?& W  Z( `7 H8 `0 j
30.     #December
    
31. / K2 c% B, F+ g
32.   },
    
33. 0 Z\\" x# e7 e+ s& t1 d
34.   t0=clock(), sum=0,# s' _/ P: [\\" y! i  F, w. j
    
36.   i=0, while{++i<=100000,
    
37. * e5 p. C0 `7 ~# C
38.     a.#January=1,
    
39. , ~8 @8 b8 O7 X# ~
40.     a.#February=2,
    
41. 0 ]- o  [8 J2 C$ A; F; ~$ j
42.     a.#March=3,
    
43. 8 Q! b+ {$ F  o8 E9 t\\" B\\" w' x
44.     a.#April=4,7 Y: b  V6 |  D
    
46.     a.#May=5,
    
47. 9 y% N+ l3 W3 I! W
48.     a.#June=6,
    
49. 7 {9 l& f. I7 d9 K3 X
50.     a.#July=7,
    
51. 0 U! R! r# |: ?7 a2 H# h
52.     a.#August=8,6 v! B& u. c9 v$ X% M6 ?$ z
    
54.     a.#September=9,' W2 X( u\\" A, d( E- H\\" G
    
56.     a.#October=10,
    
57. $ q% d0 }; Z; E0 e$ w/ k  L3 U
58.     a.#November=11,& O; X! v+ L! r& ~( `8 p
    
60.     a.#December=12,* F5 y+ P7 E# H  O
    
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. ) ]8 P1 |& I% c* \5 X2 m* T; r
64.   },. D1 @- B7 U\\" @& w+ f0 C1 g1 a) i1 l
    
66.   o{"\r\n耗时", [clock()-t0]/1000., "秒。sum=", sum, "\r\n"};

!!!using("sys");<font class=\\"jammer\\">$ i# G2 O* ]) c/ V& e, B</font><br /> main(:a,i,t0,sum)=<br /> <span style=\\"display:none\\">* J% T$ o9 R; X# f3 b5 [  e- x+ {</span>   a=struct{<font class=\\"jammer\\"># [6 e. ^+ O9 @5 Z6 T6 X</font><br />     #January,<font class=\\"jammer\\">7 a# ^, {4 Y9 R8 g5 N</font><br />     #February,<font class=\\"jammer\\">9 j' ]% P; C9 N( x8 H8 [5 a</font><br />     #March,<font class=\\"jammer\\">4 D: Z2 j: o3 H5 K: @% d</font><br />     #April,<font class=\\"jammer\\">  G5 {5 d( W. Z2 y</font><br />     #May,<font class=\\"jammer\\">. z2 `: z, {/ o0 [: \) i5 b4 N</font><br />     #June,<br /> <span style=\\"display:none\\">  l! t7 A3 e: Y, h$ A</span>     #July,<br /> <span style=\\"display:none\\">9 C8 O* d7 a3 B6 Q+ e9 c</span>     #August,<br /> <span style=\\"display:none\\">3 P9 J1 S* ]8 m5 ^- ~/ J</span>     #September,<br /> <span style=\\"display:none\\">0 e) e! ?* w% i& B% v) N</span>     #October,<br /> <span style=\\"display:none\\">5 z, ^+ t/ ?' f+ O8 ]6 b6 _</span>     #November,<br /> <span style=\\"display:none\\">0 |. ^8 ?& W  Z( `7 H8 `0 j</span>     #December<br /> <span style=\\"display:none\\">/ K2 c% B, F+ g</span>   },<br /> <span style=\\"display:none\\">0 Z\\" x# e7 e+ s& t1 d</span>   t0=clock(), sum=0,<font class=\\"jammer\\"># s' _/ P: [\\" y! i  F, w. j</font><br />   i=0, while{++i<=100000,<br /> <span style=\\"display:none\\">* e5 p. C0 `7 ~# C</span>     a.#January=1,<br /> <span style=\\"display:none\\">, ~8 @8 b8 O7 X# ~</span>     a.#February=2,<br /> <span style=\\"display:none\\">0 ]- o  [8 J2 C$ A; F; ~$ j</span>     a.#March=3,<br /> <span style=\\"display:none\\">8 Q! b+ {$ F  o8 E9 t\\" B\\" w' x</span>     a.#April=4,<font class=\\"jammer\\">7 Y: b  V6 |  D</font><br />     a.#May=5,<br /> <span style=\\"display:none\\">9 y% N+ l3 W3 I! W</span>     a.#June=6,<br /> <span style=\\"display:none\\">7 {9 l& f. I7 d9 K3 X</span>     a.#July=7,<br /> <span style=\\"display:none\\">0 U! R! r# |: ?7 a2 H# h</span>     a.#August=8,<font class=\\"jammer\\">6 v! B& u. c9 v$ X% M6 ?$ z</font><br />     a.#September=9,<font class=\\"jammer\\">' W2 X( u\\" A, d( E- H\\" G</font><br />     a.#October=10,<br /> <span style=\\"display:none\\">$ q% d0 }; Z; E0 e$ w/ k  L3 U</span>     a.#November=11,<font class=\\"jammer\\">& O; X! v+ L! r& ~( `8 p</font><br />     a.#December=12,<font class=\\"jammer\\">* F5 y+ P7 E# H  O</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\\">) ]8 P1 |& I% c* \5 X2 m* T; r</span>   },<font class=\\"jammer\\">. D1 @- B7 U\\" @& w+ f0 C1 g1 a) i1 l</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);
   4 Z7 t' U3 w0 ]) R* ~- }
2. tic;
   - u! r6 [$ p6 Z
3. sum=0;
   7 [$ {: X- U1 D  j+ q! W+ h
4. for i=1:1000007 h# u1 A\" V5 q: B+ z
   
5.     a.January=1;/ j) L# c! s) E* j: H% h7 z+ |
   
6.     a.February=2;
   0 d' d1 x2 ]0 Y  `. B2 ~8 x
7.     a.March=3;$ B3 ^/ R+ _0 ~. F' z7 c
   
8.     a.April=4;
     r# n! _, C* Q; w. x+ f5 m
9.     a.May=5;* f  D2 M) ^  K$ R
   
10.     a.June=6;
    7 D) U! v% m2 U\" Y
11.     a.July=7;- a. x' ]9 i% q5 {% I
    
12.     a.August=8;$ {7 U& U* Z. M8 w
    
13.     a.September=9;/ \- \7 _: u4 {: Q\" J. Q1 _6 Y9 l
    
14.     a.October=10;\" U% r' u( v/ W5 k% a
    
15.     a.November=11;
    & E# y) e$ a$ S: u& k& d
16.     a.December=12;: U, e6 v8 K% v
    
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;
    ; w! ?! O6 y3 S) F- ?
18. end2 D1 A+ O& |- c* Z) A  Z- j
    
19. toc,
    ; q7 W* B; e+ S! ^8 i! U
20. sum

复制代码

结果：

1. Elapsed time is 3.275743 seconds.
   ( R# k- q4 L, ^\" u% A3 S/ Q
2. \" I; h0 {8 _9 N: X2 F4 O
   
3. sum =0 B5 g4 ~* z2 m9 U( p; v. \
   
4. 8 C( l6 q1 M% x1 T
   
5. 7800000

复制代码

forcal

测试2：
/ W; h6 P# ?- i5 ]2 r, N
+ I. f. |5 @, U3 D5 S! lLu代码：

2. !!!using("sys");7 b: m\\" U3 V$ j9 O4 n* W
   
4. main(:a,i,t0,sum)=4 w6 P9 Y3 U* I. e9 h
   
6.   t0=clock(), sum=0,
   
7. ( L1 ]' O% [0 M9 s! k2 b
8.   i=0, while{++i<=100000,
   
9. / A\\" f2 I/ N: z, N- @\\" G5 B\\" n
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. 7 r2 _& F: e/ G: c6 c; ]3 O: A
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. ; j' M; A+ o\\" X0 }8 F* Q' X8 q
14.   },- P! y/ j; |. ]/ j; x7 D8 Z5 H% W+ F
    
16.   o{"\r\n耗时", [clock()-t0]/1000., "秒。sum=", sum, "\r\n"};

!!!using("sys");<font class=\\"jammer\\">7 b: m\\" U3 V$ j9 O4 n* W</font><br /> main(:a,i,t0,sum)=<font class=\\"jammer\\">4 w6 P9 Y3 U* I. e9 h</font><br />   t0=clock(), sum=0,<br /> <span style=\\"display:none\\">( L1 ]' O% [0 M9 s! k2 b</span>   i=0, while{++i<=100000,<br /> <span style=\\"display:none\\">/ A\\" f2 I/ N: z, N- @\\" G5 B\\" n</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\\">7 r2 _& F: e/ G: c6 c; ]3 O: A</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' M; A+ o\\" X0 }8 F* Q' X8 q</span>   },<font class=\\"jammer\\">- P! y/ j; |. ]/ j; x7 D8 Z5 H% W+ F</font><br />   o{"\r\n耗时", [clock()-t0]/1000., "秒。sum=", sum, "\r\n"};

结果：

1. 耗时0.53100000000000003秒。sum=7800000

复制代码

Matlab2009a代码：

1. tic;
   % v8 h* R1 I3 Y* w. k9 K- J; {
2. sum=0;* A- a. K- }* T. @
   
3. for i=1:100000
   ( y9 K# Q$ b1 V. D
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);
   & `- M+ G% k8 A' w. Y5 E4 L
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;4 i8 }& \4 [4 L5 @- W/ H\" G
   
6. end
   ; F7 w. A3 X2 D1 @0 p$ K. L; w
7. toc,8 W$ F/ |\" |4 r. _* a
   
8. sum

复制代码

结果：

1. Elapsed time is 6.390977 seconds.4 V# r  i) C. }3 {( K* y( P
   
2. # D' n8 h1 I- X6 e, @0 a
   
3. sum =9 y! |/ M) X. ?- O
   
4. 
   4 i8 O6 U1 V\" C  `) X7 F( g0 S6 G
5.      7800000

复制代码