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

forcal

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

    结构（struct）是一个线性表，可以存放若干任意的Lu数据。结构成员必须以#开头。结构成员的存储顺序与其定义顺序不一定相同。
6 A! l4 K# {4 ?  T! p/ h
    （1）新建结构：相当于结构定义

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

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

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

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

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

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

2. !!!using("sys");3 {1 y4 X8 i+ ?; b* Y
   
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\\">3 {1 y4 X8 i+ ?; b* Y</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}
   # S( L+ G3 b3 v# M
2. struct{#num : nil , #姓名 : luuu , #年龄 : nil}' Y# @9 G# ]' ~: T% q! P9 x0 L/ v; U
   
3. struct{#num : 22 , #姓名 : luuu , #年龄 : 33}

复制代码

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

2. !!!using("sys");
   
3. 6 A9 t7 s\\" [2 J
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\\">6 A9 t7 s\\" [2 J</span> main(:a)= a=struct[#num, #姓名, #年龄], o[a,"\r\n"], a.set(#年龄:33, #num:22).o["\r\n"];

结果：

1. struct{#num : nil , #姓名 : nil , #年龄 : nil}( T/ x( C3 p$ t% J; _7 q) c6 W
   
2. struct{#num : 22 , #姓名 : nil , #年龄 : 33}

复制代码

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

2. !!!using("sys");1 a+ [* b2 ?/ P& f, ?5 C
   
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\\">1 a+ [* b2 ?/ P& f, ?5 C</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}
   & R& I4 s! Q: A5 `) ^4 d
2. 王强
   3 ]\" Z1 I: w: D5 \7 ?( n' x; z
3. 33

复制代码

（5）结构嵌套

2. !!!using("sys");
   
3.   T. s3 }+ V0 u. N7 T& U
4. main(:a)= a=struct[#num, #班级], a.#num=22, a.#班级=struct[#num, #姓名, #年龄],8 ~% F, o7 t% h/ U
   
6.   a.#班级.#num=88,
   
7. : R\\" Q- l! `3 g8 l4 }. k
8.   a.#班级.#姓名="王强",
   
9. $ j9 k* Q4 U: T! }6 m3 e
10.   a.#班级.#年龄=33,
    
11. # H+ p- u3 s8 z- b6 B. j5 j# U
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\\">  T. s3 }+ V0 u. N7 T& U</span> main(:a)= a=struct[#num, #班级], a.#num=22, a.#班级=struct[#num, #姓名, #年龄],<font class=\\"jammer\\">8 ~% F, o7 t% h/ U</font><br />   a.#班级.#num=88,<br /> <span style=\\"display:none\\">: R\\" Q- l! `3 g8 l4 }. k</span>   a.#班级.#姓名="王强",<br /> <span style=\\"display:none\\">$ j9 k* Q4 U: T! }6 m3 e</span>   a.#班级.#年龄=33,<br /> <span style=\\"display:none\\"># H+ p- u3 s8 z- b6 B. j5 j# U</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[...]}
   + W& t' k+ H. I( u
2. 22
   9 X1 H2 @2 l/ |2 e
3. struct{#num : 88 , #姓名 : 王强 , #年龄 : 33}. v8 L# t5 R- F5 _$ t
   
4. 88- F2 R) L/ i/ T8 T6 u
   
5. 王强
   ' g& F# P/ @' m4 _
6. 33

复制代码

（6）效率测试

2. !!!using("sys");- U/ V$ i; N: \. u! }+ ]9 d. d
   
4. main(:a,i,t0,sum)=% q  q2 r5 d* d; r8 F
   
6.   a=struct{
   
7. 5 {; W9 t3 l) X4 m# F
8.     #January,9 I% b- b( R, q
   
10.     #February,+ h9 d/ y. \; J. h
    
12.     #March,6 w7 s/ L& t& @. k4 t\\" m* y
    
14.     #April,
    
15. - c+ N! I$ p( k4 J\\" H( {
16.     #May,, n3 @+ W+ e( W\\" E
    
18.     #June,
    
19. ; o+ h8 a' {/ q3 @6 E& I6 r
20.     #July,0 P# P# `& g& x4 g/ v7 A* r
    
22.     #August,
    
23. ) O% T. U- k$ {
24.     #September,# P0 T/ K: E3 O' Q
    
26.     #October,
    
27. * _2 z5 c7 @& \' \) D5 x
28.     #November,) ^% v  T0 p( r. |( [
    
30.     #December$ h' n- ~+ l& {/ f$ h+ T
    
32.   },+ ^3 u; N- {1 B4 ^& C
    
34.   t0=clock(), sum=0,$ k- j0 q3 f: n- A; J1 S. i\\" G
    
36.   i=0, while{++i<=100000,3 W0 Z2 ^% e+ z1 u* `
    
38.     a.#January=1,4 h* S! e4 Q8 p$ D& u8 p
    
40.     a.#February=2,' ]; F/ b\\" y2 P! y. p
    
42.     a.#March=3,
    
43. 5 T6 r1 `' Z' T9 X
44.     a.#April=4,) [' b/ \/ |\\" y! E; H1 i9 y
    
46.     a.#May=5,) p3 X/ H- ~; _7 U$ [
    
48.     a.#June=6,
    
49. & K9 J1 x! h9 c5 S: L
50.     a.#July=7,& _: S\\" R9 Y& l: P1 {
    
52.     a.#August=8,* b4 N- L7 g2 H; d6 m
    
54.     a.#September=9,
    
55. 8 U* \3 e. A) ~$ z
56.     a.#October=10,
    
57. \\" h9 I, a. _; U( L3 x
58.     a.#November=11,* Q( H8 x2 D& h( u4 X6 e' m% W
    
60.     a.#December=12,
    
61. . f- C- p+ K& d$ @
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. 6 u\\" R\\" M. @- U2 r- @
64.   },
    
65. \\" T( C5 q4 F% Q7 K& I3 P
66.   o{"\r\n耗时", [clock()-t0]/1000., "秒。sum=", sum, "\r\n"};

!!!using("sys");<font class=\\"jammer\\">- U/ V$ i; N: \. u! }+ ]9 d. d</font><br /> main(:a,i,t0,sum)=<font class=\\"jammer\\">% q  q2 r5 d* d; r8 F</font><br />   a=struct{<br /> <span style=\\"display:none\\">5 {; W9 t3 l) X4 m# F</span>     #January,<font class=\\"jammer\\">9 I% b- b( R, q</font><br />     #February,<font class=\\"jammer\\">+ h9 d/ y. \; J. h</font><br />     #March,<font class=\\"jammer\\">6 w7 s/ L& t& @. k4 t\\" m* y</font><br />     #April,<br /> <span style=\\"display:none\\">- c+ N! I$ p( k4 J\\" H( {</span>     #May,<font class=\\"jammer\\">, n3 @+ W+ e( W\\" E</font><br />     #June,<br /> <span style=\\"display:none\\">; o+ h8 a' {/ q3 @6 E& I6 r</span>     #July,<font class=\\"jammer\\">0 P# P# `& g& x4 g/ v7 A* r</font><br />     #August,<br /> <span style=\\"display:none\\">) O% T. U- k$ {</span>     #September,<font class=\\"jammer\\"># P0 T/ K: E3 O' Q</font><br />     #October,<br /> <span style=\\"display:none\\">* _2 z5 c7 @& \' \) D5 x</span>     #November,<font class=\\"jammer\\">) ^% v  T0 p( r. |( [</font><br />     #December<font class=\\"jammer\\">$ h' n- ~+ l& {/ f$ h+ T</font><br />   },<font class=\\"jammer\\">+ ^3 u; N- {1 B4 ^& C</font><br />   t0=clock(), sum=0,<font class=\\"jammer\\">$ k- j0 q3 f: n- A; J1 S. i\\" G</font><br />   i=0, while{++i<=100000,<font class=\\"jammer\\">3 W0 Z2 ^% e+ z1 u* `</font><br />     a.#January=1,<font class=\\"jammer\\">4 h* S! e4 Q8 p$ D& u8 p</font><br />     a.#February=2,<font class=\\"jammer\\">' ]; F/ b\\" y2 P! y. p</font><br />     a.#March=3,<br /> <span style=\\"display:none\\">5 T6 r1 `' Z' T9 X</span>     a.#April=4,<font class=\\"jammer\\">) [' b/ \/ |\\" y! E; H1 i9 y</font><br />     a.#May=5,<font class=\\"jammer\\">) p3 X/ H- ~; _7 U$ [</font><br />     a.#June=6,<br /> <span style=\\"display:none\\">& K9 J1 x! h9 c5 S: L</span>     a.#July=7,<font class=\\"jammer\\">& _: S\\" R9 Y& l: P1 {</font><br />     a.#August=8,<font class=\\"jammer\\">* b4 N- L7 g2 H; d6 m</font><br />     a.#September=9,<br /> <span style=\\"display:none\\">8 U* \3 e. A) ~$ z</span>     a.#October=10,<br /> <span style=\\"display:none\\">\\" h9 I, a. _; U( L3 x</span>     a.#November=11,<font class=\\"jammer\\">* Q( H8 x2 D& h( u4 X6 e' m% W</font><br />     a.#December=12,<br /> <span style=\\"display:none\\">. f- C- p+ K& 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<br /> <span style=\\"display:none\\">6 u\\" R\\" M. @- U2 r- @</span>   },<br /> <span style=\\"display:none\\">\\" T( C5 q4 F% Q7 K& I3 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);
   1 k& V% [& n9 {: x4 P7 d' C
2. tic; & e- l1 T- ^! ~
   
3. sum=0;
   9 q7 _' P\" |: X+ ~; h\" E& \- z9 _
4. for i=1:100000
   7 t- f* N5 [' c1 O' x8 V' y\" X
5.     a.January=1;
     g: O* f0 [, }' y$ ]
6.     a.February=2;
   & w5 G. W4 N; M( l. _( g& n
7.     a.March=3;$ Z3 H' q  K! R! x. c/ ^
   
8.     a.April=4;( h* }- Y: \' T) a1 c
   
9.     a.May=5;4 I- d. U& S\" y# Z
   
10.     a.June=6;0 G, A7 z\" i! {% j2 O. C7 Q  H
    
11.     a.July=7;$ f* r  C' r  {3 J1 A' E) {) k
    
12.     a.August=8;
    ! R. s9 D$ R  s, ]
13.     a.September=9;
    ) B( }* W7 R  Y3 {' g! H7 S* f
14.     a.October=10;1 L0 F1 B% z% P2 G& j
    
15.     a.November=11;) _/ a7 |\" ~! f9 ^$ ^2 ]: U
    
16.     a.December=12;
    , M! i' i8 E) S$ R, O2 T1 `2 s( F
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;, l\" X$ Y6 U5 v' q0 ]$ }: H  P1 b, G: ^
    
18. end; Z4 q. p5 s' P$ F% L2 F
    
19. toc,- I+ I+ `. \) I
    
20. sum

复制代码

结果：

1. Elapsed time is 3.275743 seconds.
   ( a4 f8 [6 H1 z
2. ' _7 Z\" q7 g5 V7 T3 y
   
3. sum =\" I2 ]  l  T7 Y$ i  r; ~, o. D! |) a
   
4. 
   # o- S: r, |- s' G3 K, Y
5. 7800000

复制代码

forcal

测试2：

Lu代码：

2. !!!using("sys");) p( s1 F8 A# D
   
4. main(:a,i,t0,sum)=- ?# b. d\\" W9 a/ N2 T6 E% e7 b) t
   
6.   t0=clock(), sum=0,' @% [; ^5 T$ ~- i0 s9 q\\" Z
   
8.   i=0, while{++i<=100000,# q8 d0 v/ j/ D# s9 ?
   
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. * R0 K: R, X\\" }7 |( @$ D- W
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. \\" @% }5 u( r/ @% l) C& `
14.   },. X( |' }/ w5 Z1 C/ i0 |
    
16.   o{"\r\n耗时", [clock()-t0]/1000., "秒。sum=", sum, "\r\n"};

!!!using("sys");<font class=\\"jammer\\">) p( s1 F8 A# D</font><br /> main(:a,i,t0,sum)=<font class=\\"jammer\\">- ?# b. d\\" W9 a/ N2 T6 E% e7 b) t</font><br />   t0=clock(), sum=0,<font class=\\"jammer\\">' @% [; ^5 T$ ~- i0 s9 q\\" Z</font><br />   i=0, while{++i<=100000,<font class=\\"jammer\\"># q8 d0 v/ j/ D# s9 ?</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\\">* R0 K: R, X\\" }7 |( @$ D- 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\\">\\" @% }5 u( r/ @% l) C& `</span>   },<font class=\\"jammer\\">. X( |' }/ w5 Z1 C/ i0 |</font><br />   o{"\r\n耗时", [clock()-t0]/1000., "秒。sum=", sum, "\r\n"};

结果：

1. 耗时0.53100000000000003秒。sum=7800000

复制代码

Matlab2009a代码：

1. tic;
   % p* z0 r5 ^7 t# W
2. sum=0;
   6 U$ Z1 S, `\" t- p* k# U
3. for i=1:100000) n7 n) B+ e4 z  u5 v* B$ y
   
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);
   . R3 c8 H\" z( u4 @
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;: F. [+ t% n9 H\" w4 q/ i  C9 t
   
6. end
   ( z# a7 P0 z( |% O' J# r! q
7. toc,
   1 U; D! g5 O: f: A
8. sum

复制代码

结果：

1. Elapsed time is 6.390977 seconds.
   : I2 U; R! h+ N' Z
2. ) T% l3 h( D3 V
   
3. sum =: X* Y& ^' h4 e: Q) X, }
   
4. 
   * E8 ?, r) G2 P3 D# n0 v) v( X
5.      7800000

复制代码