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

forcal

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

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

; s  i0 x: X7 C3 q) B4 }* @/ ^    （1）新建结构：相当于结构定义

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

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

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

2. !!!using("sys");6 i* k  a6 d% W3 v% z
   
4. struct[#num, #姓名 : "luuu", #年龄].o[];        //用函数new生成结构，有3个成员，其中“姓名”成员进行了初始化。函数o用于输出 结构。

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

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

2. !!!using("sys");0 p: A  w. |+ k7 e$ e) Z+ j' E& 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");<font class=\\"jammer\\">0 p: A  w. |+ k7 e$ e) Z+ j' E& V</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}& g7 j0 r5 s/ e$ k$ u; `$ |, J8 w
   
2. struct{#num : nil , #姓名 : luuu , #年龄 : nil}
   8 U5 F6 x& a  n
3. struct{#num : 22 , #姓名 : luuu , #年龄 : 33}

复制代码

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

2. !!!using("sys");. C3 V1 S7 o. K6 w9 N. G\\" H6 |# O
   
4. main(:a)= a=struct[#num, #姓名, #年龄], o[a,"\r\n"], a.set(#年龄:33, #num:22).o["\r\n"];

!!!using("sys");<font class=\\"jammer\\">. C3 V1 S7 o. K6 w9 N. G\\" H6 |# 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}+ e7 D7 z: S9 X4 y# r) B# x
   
2. struct{#num : 22 , #姓名 : nil , #年龄 : 33}

复制代码

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

2. !!!using("sys");
   
3. . A$ Q9 B- E+ ^* H' r# _
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\\">. A$ Q9 B- E+ ^* H' r# _</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}
   6 H  p( @9 A9 ^; k0 ?' |
2. 王强) ]) e  J6 M\" K6 n- n; F
   
3. 33

复制代码

（5）结构嵌套

2. !!!using("sys");  }8 }# ^3 s1 l7 m; p
   
4. main(:a)= a=struct[#num, #班级], a.#num=22, a.#班级=struct[#num, #姓名, #年龄],/ h* A5 w9 F. L& y( I; N
   
6.   a.#班级.#num=88,
   
7.   q+ r% L6 N0 B( U3 ^2 M
8.   a.#班级.#姓名="王强",
   
9. \\" v5 c: Q9 O8 ~0 f. M+ U' R
10.   a.#班级.#年龄=33,
    
11. 1 E+ o2 c) v2 Z
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\\">  }8 }# ^3 s1 l7 m; p</font><br /> main(:a)= a=struct[#num, #班级], a.#num=22, a.#班级=struct[#num, #姓名, #年龄],<font class=\\"jammer\\">/ h* A5 w9 F. L& y( I; N</font><br />   a.#班级.#num=88,<br /> <span style=\\"display:none\\">  q+ r% L6 N0 B( U3 ^2 M</span>   a.#班级.#姓名="王强",<br /> <span style=\\"display:none\\">\\" v5 c: Q9 O8 ~0 f. M+ U' R</span>   a.#班级.#年龄=33,<br /> <span style=\\"display:none\\">1 E+ o2 c) v2 Z</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[...]}
   8 s/ ?3 O& |  I
2. 22) W/ O, M+ a6 ?  j: {+ Y+ w
   
3. struct{#num : 88 , #姓名 : 王强 , #年龄 : 33}! \$ |7 G! Y% Z! f  C4 H9 T
   
4. 88
   0 f% A+ ^! L3 W+ b: ^6 u0 N
5. 王强' M  v  C* I* M9 _5 \% U9 V# l
   
6. 33

复制代码

（6）效率测试

2. !!!using("sys");1 u8 o& U) `& {9 x. u, |6 \  l
   
4. main(:a,i,t0,sum)=
   
5. , \. q- s; c9 ?- D! K
6.   a=struct{- w. k7 P) `. K- A
   
8.     #January,- V4 o' I: h; t. i- |4 o- ]& g* w  V% Z5 Q
   
10.     #February,\\" l) f0 j- c7 q
    
12.     #March,2 y4 F& Y1 C\\" D\\" A+ g3 [8 R5 ~
    
14.     #April,+ O0 J% Q& }& i9 X% X$ q% B
    
16.     #May,* Z4 _1 u  C$ y: y; P
    
18.     #June,/ C' k. a/ U+ w( n: O% S# I* p  W* g! C8 s
    
20.     #July,
    
21. 4 y: @7 o' g* Y% L* i6 U
22.     #August,
    
23. ! [' E5 o  _+ T4 [- n7 F# k
24.     #September,9 B# _' i0 y' H7 U0 _0 ^
    
26.     #October,! I! H1 p/ M$ B3 z
    
28.     #November,
    
29. 6 V2 P: ~1 j$ B5 z1 O- V2 J, `
30.     #December
    
31. ! I+ D, ~5 D' b) S2 r- b
32.   },
    
33. + V/ a\\" b' l- e. y. i1 l6 B
34.   t0=clock(), sum=0,
    
35. : D' K+ e0 W- M; H# M% A
36.   i=0, while{++i<=100000,. L1 V) G5 d) H+ L' K) l
    
38.     a.#January=1,
    
39. , z/ l. \* v' E* j# b
40.     a.#February=2,
    
41. # |& _$ ^6 u) H& G7 i. ~+ I- h
42.     a.#March=3,
    
43. 2 Q8 a) \% X\\" a2 r
44.     a.#April=4,6 J* t; C: I5 w  u# u4 P8 t% E1 d
    
46.     a.#May=5,
    
47. , H% o  \0 }! ?) |
48.     a.#June=6,
    
49. * b* g! k1 y$ Q+ q
50.     a.#July=7,5 N- g% g: S. d
    
52.     a.#August=8,
    
53. ; j4 n7 l; p\\" X+ b\\" K0 c& o
54.     a.#September=9,/ t0 X7 P/ @- a8 L% ]. @
    
56.     a.#October=10,
    
57. 9 ]/ U4 ~, W/ d( q0 g8 U
58.     a.#November=11,
    
59. * ?  i: i! n. H+ J) f3 u
60.     a.#December=12,0 V) ^) @, X' r8 p- n) p* L% B
    
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. ( J9 _; m\\" p' k3 L6 C4 P4 s
64.   },  `& ?8 o7 d% [/ l% r1 x* J
    
66.   o{"\r\n耗时", [clock()-t0]/1000., "秒。sum=", sum, "\r\n"};

!!!using("sys");<font class=\\"jammer\\">1 u8 o& U) `& {9 x. u, |6 \  l</font><br /> main(:a,i,t0,sum)=<br /> <span style=\\"display:none\\">, \. q- s; c9 ?- D! K</span>   a=struct{<font class=\\"jammer\\">- w. k7 P) `. K- A</font><br />     #January,<font class=\\"jammer\\">- V4 o' I: h; t. i- |4 o- ]& g* w  V% Z5 Q</font><br />     #February,<font class=\\"jammer\\">\\" l) f0 j- c7 q</font><br />     #March,<font class=\\"jammer\\">2 y4 F& Y1 C\\" D\\" A+ g3 [8 R5 ~</font><br />     #April,<font class=\\"jammer\\">+ O0 J% Q& }& i9 X% X$ q% B</font><br />     #May,<font class=\\"jammer\\">* Z4 _1 u  C$ y: y; P</font><br />     #June,<font class=\\"jammer\\">/ C' k. a/ U+ w( n: O% S# I* p  W* g! C8 s</font><br />     #July,<br /> <span style=\\"display:none\\">4 y: @7 o' g* Y% L* i6 U</span>     #August,<br /> <span style=\\"display:none\\">! [' E5 o  _+ T4 [- n7 F# k</span>     #September,<font class=\\"jammer\\">9 B# _' i0 y' H7 U0 _0 ^</font><br />     #October,<font class=\\"jammer\\">! I! H1 p/ M$ B3 z</font><br />     #November,<br /> <span style=\\"display:none\\">6 V2 P: ~1 j$ B5 z1 O- V2 J, `</span>     #December<br /> <span style=\\"display:none\\">! I+ D, ~5 D' b) S2 r- b</span>   },<br /> <span style=\\"display:none\\">+ V/ a\\" b' l- e. y. i1 l6 B</span>   t0=clock(), sum=0,<br /> <span style=\\"display:none\\">: D' K+ e0 W- M; H# M% A</span>   i=0, while{++i<=100000,<font class=\\"jammer\\">. L1 V) G5 d) H+ L' K) l</font><br />     a.#January=1,<br /> <span style=\\"display:none\\">, z/ l. \* v' E* j# b</span>     a.#February=2,<br /> <span style=\\"display:none\\"># |& _$ ^6 u) H& G7 i. ~+ I- h</span>     a.#March=3,<br /> <span style=\\"display:none\\">2 Q8 a) \% X\\" a2 r</span>     a.#April=4,<font class=\\"jammer\\">6 J* t; C: I5 w  u# u4 P8 t% E1 d</font><br />     a.#May=5,<br /> <span style=\\"display:none\\">, H% o  \0 }! ?) |</span>     a.#June=6,<br /> <span style=\\"display:none\\">* b* g! k1 y$ Q+ q</span>     a.#July=7,<font class=\\"jammer\\">5 N- g% g: S. d</font><br />     a.#August=8,<br /> <span style=\\"display:none\\">; j4 n7 l; p\\" X+ b\\" K0 c& o</span>     a.#September=9,<font class=\\"jammer\\">/ t0 X7 P/ @- a8 L% ]. @</font><br />     a.#October=10,<br /> <span style=\\"display:none\\">9 ]/ U4 ~, W/ d( q0 g8 U</span>     a.#November=11,<br /> <span style=\\"display:none\\">* ?  i: i! n. H+ J) f3 u</span>     a.#December=12,<font class=\\"jammer\\">0 V) ^) @, X' r8 p- n) p* L% B</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\\">( J9 _; m\\" p' k3 L6 C4 P4 s</span>   },<font class=\\"jammer\\">  `& ?8 o7 d% [/ l% r1 x* J</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);
   ; h! O6 z7 t; K3 X& [, u( _  L, T' X
2. tic;
   9 f3 H$ w3 u% D! q, Q* T
3. sum=0;
   1 Z8 D3 b: ^* |+ b, D
4. for i=1:100000
   7 ]\" q. T( I5 C) \% t9 n
5.     a.January=1;' i' n\" E2 A' F1 B; m: x
   
6.     a.February=2;  d# V) f( y; I8 p. |: x; R7 D% |1 u
   
7.     a.March=3;
   & W# \9 ?: R. u: Z# f! s0 m
8.     a.April=4;4 \' a5 c% {5 E) P0 A' g* v) i
   
9.     a.May=5;
   7 M1 h/ V4 v4 V  V& D6 t' I
10.     a.June=6;
    \" X& t# s' x8 h) ~8 I
11.     a.July=7;+ e2 b  s1 X! v1 y. @( N9 X
    
12.     a.August=8;
    ( U1 i- W4 P! j( R4 b. M
13.     a.September=9;
    ! B- d6 o. _$ f1 K/ J9 Y
14.     a.October=10;( h4 J6 ]- i; X4 n
    
15.     a.November=11;
    / o& h7 h: p\" c$ [# f
16.     a.December=12;3 S* l8 [$ B, ?8 w
    
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;# e  }0 w! B$ b4 S( Y) M/ X
    
18. end, `+ b$ O& f4 K& @# \4 m9 Y5 `$ _1 X
    
19. toc,1 ^. W. a) }. ]6 a9 N
    
20. sum

复制代码

结果：

1. Elapsed time is 3.275743 seconds.
   ' O& M' X& b# h. z( T
2. 7 \8 p; c+ d' L! I
   
3. sum =% u5 |) M! o' @6 i( c- j
   
4. 
   6 s5 L$ B9 F2 z7 Z8 P, ]
5. 7800000

复制代码

forcal

测试2：
# {( R; V+ V$ c: y5 L* z" S
% @0 {. x% V# j, U+ WLu代码：

2. !!!using("sys");
   
3. % b7 x: |8 s8 D2 B. D  N+ a, G
4. main(:a,i,t0,sum)=
   
5. 3 T4 g* S  y, U, D, P' S
6.   t0=clock(), sum=0,3 d7 Q% s; r* O6 R
   
8.   i=0, while{++i<=100000,) @4 S) K3 a5 o8 j
   
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},6 b  X4 n! [+ R# m
    
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. 6 c8 t) ~4 B, v6 |+ k- l
14.   },
    
15. / X, t/ l9 \1 i8 o. K7 q# V
16.   o{"\r\n耗时", [clock()-t0]/1000., "秒。sum=", sum, "\r\n"};

!!!using("sys");<br /> <span style=\\"display:none\\">% b7 x: |8 s8 D2 B. D  N+ a, G</span> main(:a,i,t0,sum)=<br /> <span style=\\"display:none\\">3 T4 g* S  y, U, D, P' S</span>   t0=clock(), sum=0,<font class=\\"jammer\\">3 d7 Q% s; r* O6 R</font><br />   i=0, while{++i<=100000,<font class=\\"jammer\\">) @4 S) K3 a5 o8 j</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},<font class=\\"jammer\\">6 b  X4 n! [+ R# m</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\\">6 c8 t) ~4 B, v6 |+ k- l</span>   },<br /> <span style=\\"display:none\\">/ X, t/ l9 \1 i8 o. K7 q# V</span>   o{"\r\n耗时", [clock()-t0]/1000., "秒。sum=", sum, "\r\n"};

结果：

1. 耗时0.53100000000000003秒。sum=7800000

复制代码

Matlab2009a代码：

1. tic;
   2 z; g& m( U6 r3 _) n! `8 ]
2. sum=0;
   0 A4 t+ M! |2 \- d$ j' A8 f
3. for i=1:100000! F7 G! Q: e; r
   
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);
   0 Z0 f9 {8 q8 z4 t7 z. n; ^+ O
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 ~' c$ `. ?+ A3 Y$ Z
6. end0 t  @. B5 k+ C& o( U- Y/ m( r
   
7. toc,\" ?5 \( H, D' d4 ^' f
   
8. sum

复制代码

结果：

1. Elapsed time is 6.390977 seconds.
   . q  _+ V: p; `
2. 
   - T% T6 ~  p3 u' X, q$ `+ A: s
3. sum =/ a& Z2 }: h: H% I, C1 d6 l. [7 P  ^
   
4. , a- Y  A0 ?* d  Y# r) S
   
5.      7800000

复制代码