数学建模社区-数学中国

标题: Lu系统扩展动态库LuSystem之类及对象 [打印本页]

---

作者: forcal    时间: 2011-11-28 20:39
标题: Lu系统扩展动态库LuSystem之类及对象
    类（class）是一个具有数据成员和方法成员的自定义数据结构。类可以继承和派生，类的层次结构是一棵树。

4 U, f; o& Z6 o3 \+ m( d3 l    类对象（obj）是类的实例。

: V7 P# q; M$ b; E7 @sys::class{... ...}：创建类定义
: j0 X; Q, F, e* ^) @% g" t
% _+ h7 W, X/ A* S( X    类定义格式如下：

1. class{#cMyClass: #cBase1, #cBase2, ...  //定义类cMyClass，继承自cBase1和cBase2, ...
   ; k, k4 l; q% p- V% O! Q4 i
2. private:                  //私有数据成员
   6 J7 T  `$ ^: e* r2 r8 c
3.   #pvMem1, #pvMem2, ...
   5 l: Y- m; ~: d& a
4. public:                   //公有数据成员
   * h$ R/ c: J2 ?# {4 u4 ?
5.   #plMem1, #plMem2, ...
   2 S6 q6 O+ z, Q0 J: H$ A
6. method:                   //方法（函数成员）
   
7.   #__init__ : @init, #__del__ : @delme, #mFun1 ：@Fun1, #mFun2 ：@Fun2, ...
   . i% F% ?: ?* j% }6 R
8. };

复制代码

类定义中，类名称、基类名称、成员及方法都是以#开头的标识符，不可重复。类名称在最前面，其次是基类名称；private、public及method的次序是任意的，且可多次定义；方法标识符后必须提供函数句柄。类成员的存储顺序与其定义顺序不一定相同。

8 _, E6 n: y% b  J: g0 e/ l    #__init__和#__del__只可被定义为方法，其中#__init__用于定义构造函数，#__del__用于定义析构函数。若这两个方法被缺省，其函数句柄被自动指定为0。构造函数和析构函数只有一个参数，即对象本身。

    若方法有不止一个参数，则方法被调用时，第一个参数总是传入对象本身，相当于C++的this指针。

    约定：类名称以字母c开头；私有数据成员以pv开头；公有数据成员以pl开头；方法成员以m开头。

  p2 x* u2 e5 }! L# Tsys:bj{pClass}：创建类对象
; y1 v& V1 a/ L: w" S# e$ i) Z
    pClass是类定义的句柄。

    创建类对象时，将自动调用每一个基类的构造函数#__init__初始化基类对象。对象被销毁时，将自动调用每一个基类的析构函数#__del__销毁基类对象。
- [* M: k7 J' p: M, m4 C
    语句 a.=b 将对象b的内容复制到对象a，要求a和b具有相同的类定义，若类定义中定义了方法#__copy__（有且只有2个参数），将自动调用该方法进行对象复制，否则仅依次复制类成员的值。

6 V; \; ], r% B9 e6 `6 t2 z* x    （1）类定义

1. !!!using("sys");
   * R! U0 ]9 q( p$ p5 e, N
2. new[class, #人, public : #姓名, private : #性别, #年龄].o[];    //用函数new定义类，有1个公有成员，2个私有成员。函数o用于输出类定义。

复制代码

结果：

1. class{#人 :
   % G' i; @/ ~1 v8 v7 q  `4 `
2. private:
   
3.   #性别, #年龄,
   
4. public:
   
5.   #姓名,
   4 @; x1 g' {& l: d2 R
6. method:
   $ H% a. w+ ]$ t) n
7.   #__init__ : 0, #__del__ : 0
   
8. }

复制代码

用函数class定义类更为方便：

1. !!!using("sys");
   9 }7 W9 z# P: b. q# a) ^
2. class[#人, public : #姓名, private : #性别, #年龄].o[];    //用函数new定义类，有1个公有成员，2个私有成员。函数o用于输出类定义。

复制代码

输出结果与上面相同。
* u: e# R% U( N3 l( a+ ^
    （2）单一继承

1. !!!using("sys");
   8 q' n  g2 ?  A) O
2. class[#人, public : #姓名, private : #性别, #年龄],
   
3. class[#学生, #人, public : #学校, #班级].o[];

复制代码

结果：

1. class{#学生 : #人,
   3 O4 d; N! m1 d9 v$ s; w
2. private:
   
3. 
   
4. public:
   7 v6 b: N; s! @7 X; B
5.   #学校, #班级,
   0 Z2 X1 T/ r: t. n
6. method:
   7 l+ b& ^; n! l8 X4 A1 j
7.   #__init__ : 0, #__del__ : 0
   % ]+ D" N1 t& E; Q8 ^( T
8. }

复制代码

（3）类对象

1. !!!using("sys");
     U2 z: S8 E  }: I
2. main(:a,b)=
   
3.   class[#人, public : #姓名, #性别, #年龄],
   
4.   a=class[#学生, #人, public : #学校, #班级],
   
5.   b=obj[a],
   9 C/ ^, R' _3 y0 D
6.   b.#学校="实验中学", b.#班级="二年级", b.#姓名="王强", b.#性别="男", b.#年龄=12,
   6 f2 {3 k2 r0 d: ~: P& p
7.   o[b, b.#学校,"  ", b.#班级,"  ", b.#姓名,"  ", b.#性别, "  ", b.#年龄, "\r\n"];

复制代码

结果：

1. class obj{#学生 : #人,
   
2. private:
   6 q3 I; {8 E5 Q6 T. T  B5 ?3 V
3. public:
   & {2 v8 T+ b7 \8 J0 S* O" [
4.   #学校 : 实验中学,
   
5.   #班级 : 二年级
   
6. }
   4 v/ b; N( g. z2 R* g; n5 [. e
7. 实验中学 二年级 王强 男 12

复制代码

说明：如果基类“#人”中#性别和#年龄被定义为私有成员，将无法直接进行存取。
+ l. x9 t* p& z7 @% h4 g
    （4）多重继承及构造函数和析构函数
$ _5 R! g* y  J; i. v% c
    例子1：

1. !!!using("sys");
   # w( q% H' A- x6 A! q
2. initA(p)= o["\r\nA的构造函数!"];
   ( v6 ~  A; ?0 U" r. L) i: s
3. initB(p)= o["\r\nB的构造函数!"];
   
4. initC(p)= o["\r\nC的构造函数!"];
   ( C% L# \+ [/ g3 p1 I! p
5. initD(p)= o["\r\nD的构造函数!"];
   5 }2 J6 v# n3 m, u& N' l0 |; [
6. delA(p) = o["\r\nA的析构函数!"];
   % Z! Z& Z8 q% W8 l. L" Q
7. delB(p) = o["\r\nB的析构函数!"];
   * G" R# R1 j$ B2 {1 U+ i
8. delC(p) = o["\r\nC的析构函数!"];
   3 v. {" @* S6 a5 c5 ?" u
9. delD(p) = o["\r\nD的析构函数!"];
   . o9 }7 w; E, i! J  N/ V/ Q
10. main()=
    " G; c3 u; L1 k. j/ p
11.   class[#A,         method : #__init__ : @initA, #__del__ : @delA],
    
12.   class[#B, #A,     method : #__init__ : @initB, #__del__ : @delB],
    ' W- A6 c, N8 z
13.   class[#C, #A,     method : #__init__ : @initC, #__del__ : @delC],
    5 p/ Y# C% i6 r0 D( m
14.   class[#D, #B, #C, method : #__init__ : @initD, #__del__ : @delD].obj[].delete[];

复制代码

结果：

1. A的构造函数!
   
2. B的构造函数!
   , J9 z3 G* o2 p% a% C+ d7 B9 H) c
3. A的构造函数!
   
4. C的构造函数!
   . A( l1 l. U5 w. y& d
5. D的构造函数!
   $ v# B* b) R- P& |7 }
6. D的析构函数!
   5 N9 Y, \3 n* T8 S8 ]  U
7. B的析构函数!
   
8. A的析构函数!
   
9. C的析构函数!
   9 N( y# u+ ^6 u& j* V9 Q
10. A的析构函数!

复制代码

例子2：

1. !!!using("sys");
   
2. initA(p)= p.#a=0;
   
3. initB(p)= p.#a=1;
   8 B! |9 G0 A( Z/ `; O# m- {% R- c/ V
4. initC(p)= p.#a=2;
   
5. initD(p)= p.#a=3;
   
6. main(:c)=
   * G+ @' h$ f: Q& s! h. w3 a
7.   class[#A,           public: #a, method : #__init__ : @initA],
   
8.   class[#B, #A,       public: #a, method : #__init__ : @initB],
   
9.   class[#C, #A,       public: #a, method : #__init__ : @initC],
   6 Z* }( S( `9 u& N# k3 _
10.   c=class[#D, #B, #C, public: #a, method : #__init__ : @initD].obj[],
    
11.   o[c.#a,"  ",c.#B.#a,"  ",c.#C.#a,"  ",c.#B.#A.#a,"  ",c.#C.#A.#a,"\r\n"],
    - r; r9 E) e+ Q: G) G2 k% a
12.   c.#B.#A.#a=5, c.#C.#A.#a=6, o[c.#B.#A.#a,"  ",c.#C.#A.#a,"\r\n"];

复制代码

结果：

1. 3 1 2 0 0
   2 h% ?4 W0 _% _: Z
2. 5 6

复制代码

例子3：

1. !!!using("sys");
   0 J- |0 a4 j! O' p/ e
2. initA(p)= p.#a=0;
   
3. initB(p)= p.#b=1;
   
4. initC(p)= p.#c=2;
   
5. initD(p)= p.#d=3;
   
6. main(:c)=
   
7.   class[#A,           public: #a, method : #__init__ : @initA],
   % p" R0 o% Q. U$ C8 P" f
8.   class[#B, #A,       public: #b, method : #__init__ : @initB],
   
9.   class[#C, #A,       public: #c, method : #__init__ : @initC],
   8 A  `1 l2 w/ O; }7 ^! I+ @
10.   c=class[#D, #B, #C, public: #d, method : #__init__ : @initD].obj[],
    2 I  W  X4 q, e. W8 t' u0 ^. |
11.   o[c.#a,"  ",c.#b,"  ",c.#c,"  ",c.#d,"\r\n"],
    
12.   c.#a=5, c.#b=6, c.#c=7, c.#d=8,
    ! H# Y. m4 l7 ?( v( |
13.   o[c.#a,"  ",c.#b,"  ",c.#c,"  ",c.#d,"\r\n"],
    
14.   c.#B.#A.#a=11, c.#C.#A.#a=12, o[c.#a," ",c.#B.#A.#a,"  ",c.#C.#A.#a,"\r\n"];

复制代码

结果：

1. 0 1 2 3
   : h  a1 @7 h, F0 b- t5 u
2. 5 6 7 8
   
3. 11 11 12

复制代码

（5）成员函数：第一个参数为对象指针

* J4 V% c1 F, B! h1 E3 f    例子1：

1. !!!using("sys");
   ) A% T$ C( o4 \5 t6 j6 l8 ]. Z
2. setA(p,x)= p.#a=x;
   ! ]' o3 F. V" N7 J9 Z) k
3. setB(p,x)= p.#a=x;
   6 I2 b2 k) y4 S% l
4. setC(p,x)= p.#a=x;
   . v% ^$ k' c) h# _) O& ], X9 c
5. getA(p)= p.#a;
   1 [0 ]$ _5 C$ f
6. getB(p)= p.#a;
   5 J- `$ P4 r5 i1 X
7. getC(p)= p.#a;
   
8. main(:c)=
     |5 p: s+ e/ G
9.   class[#A,           private: #a, method : #mGetA : @getA, #mSetA : @setA],
   
10.   class[#B,           private: #a, method : #mGetB : @getB, #mSetB : @setB],
    
11.   c=class[#C, #A, #B, private: #a, method : #mGetC : @getC, #mSetC : @setC].obj[],
    
12.   c.#mSetA=5, c.#mSetB=6, c.#mSetC=7,
    $ T! Z1 N$ ]) s7 J% e
13.   o[c.#mGetA,"  ",c.#mGetB,"  ",c.#mGetC,"\r\n"];

复制代码

结果：

1. 5 6 7

复制代码

说明：类的方法成员和数据成员用法几乎相同，但方法可以接受多个参数，如下例。
5 s: D$ P( ~0 \9 f4 y3 K# Z% h1 X# _
! w. I% J* N* s7 B4 }, C    例子2：

1. !!!using("sys");
   
2. out(p,x,y,z)= o[x,y,z,"\r\n"];
   ; U5 d1 h, A# c2 o& ]; w) u- U
3. main(:c)=
   
4.   c=class[#A, method : #mOut : @out].obj[],
   ( s0 x( [4 w* f& P9 n4 @: t/ O% t, k
5.   c.#mOut := [5,6,7],
   & F# b- Y1 Q2 g9 ^% W, l
6.   c.#mOut."***".(888)."***";

复制代码

结果：

1. 567
   
2. ***888***

复制代码

（6）类对象复制

1. !!!using("sys");
   
2. setA(p,x,y)= p.#a=x, p.#b=y;
   
3. sumA(p)= p.#a+p.#b;
   
4. copyAB(s,t)= s.#a=t.#a, s.#b=t.#b;
     M6 z! Y' D; V! E
5. class[#A,     private : #a, public : #b, method : #__copy__ : @copyAB, #setA : @setA, #sumA : @sumA],
   ; \; i, k2 e9 f# C2 }& g( n
6. class[#B, #A, private : #a, public : #b, method : #__copy__ : @copyAB];
   / M6 u( q  U, w; J: Y# N
7. main(:a,b)=
   
8.   a=obj[class_handle(#B)], b=obj[class_handle(#B)],
   
9.   a.#a=1, a.#b=2, a.#setA:=[8,9],
   
10.   b.=a,
    
11.   b.#a+b.#b+b.#sumA;

复制代码

结果：

20
- [& [1 J0 S) q4 P
    （7）多态性

1. !!!using("sys");
   
2. getA()= 1;
   ! b5 I3 Q' W7 u+ Z: h- j
3. getB()= 2;
   
4. getC()= 3;
   " y2 N) n2 s: B
5. class[#A,     method : #mGet : @getA],
   1 {3 E; C& D/ V+ [4 p
6. class[#B, #A, method : #mGet : @getB],
   ( @* Z. A3 W$ i: c
7. class[#C, #B, method : #mGet : @getC];
   
8. main(:a,b,c)=
   3 |2 j: W7 j7 C; B& {
9.   c=obj[class_handle(#C)],
   
10.   o[c.#mGet,"  ",c.#B.#mGet,"  ",c.#B.#A.#mGet,"\r\n"],
    
11.   b=c.#B, a=b.#A,  //获得基类对象
    1 E* [$ b. W- X" G& }: k, A
12.   o[c.#mGet,"  ",b.#mGet,"  ",a.#mGet,"\r\n"];

复制代码

结果：

3 2 1
3 2 1
* d& V. [, y( y. ]' y. E: V$ C& _+ e
/ [+ S9 {) N2 |: R& g$ @    （8）效率测试

1. !!!using("sys");
   
2. main(:a,i,t0,sum)=
   $ _  y6 ^+ w. w3 Y3 p$ m5 j
3.   a=class{#A,
   # n, u! j! \9 g- ?" z
4.     public:
     U. C. }, h+ q% j* X! i' P
5.     #January,
   . L* {* q$ z+ C6 Z- b/ U0 E3 G  P2 `
6.     #February,
   ( [& V) P$ \5 Y% ^: v  `! I/ n
7.     #March,
   
8.     #April,
   
9.     #May,
   
10.     #June,
    
11.     #July,
    
12.     #August,
    $ R' f, |0 N+ I
13.     #September,
    ( h8 ?4 p3 @2 R( N5 a8 M( N
14.     #October,
    
15.     #November,
    $ q# E( G" _; L( `" m" P$ k
16.     #December
    
17.   }.obj[],
    , M8 l8 \9 N2 i$ l7 o
18.   t0=clock(), sum=0,
    6 L2 u1 T% I6 M" |% g
19.   i=0, while{++i<=100000,
    1 D$ O, f1 R% p1 k: O! @
20.     a.#January=1,
    
21.     a.#February=2,
    
22.     a.#March=3,
    2 r9 h1 s& Q  P+ q. y4 O. y8 r2 D
23.     a.#April=4,
    8 S$ Q5 x0 S7 m3 x7 s' a( T& f  M
24.     a.#May=5,
    
25.     a.#June=6,
    
26.     a.#July=7,
    # Z8 U( n5 Q5 f8 c4 [
27.     a.#August=8,
    2 l" Y/ L) u0 j$ @/ J! V
28.     a.#September=9,
    8 S7 _  e! |" \' ?2 B
29.     a.#October=10,
    
30.     a.#November=11,
    # V* X- T: U) `" B
31.     a.#December=12,
    # U: y2 r: [4 p3 v* i; z
32.     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 o. ]# N) h+ F$ k) W
33.   },
    ' @9 Q$ Y7 x9 G" Q  _& ^8 }
34.   o{"\r\n耗时", [clock()-t0]/1000., "秒。sum=", sum, "\r\n"};

复制代码

结果：

1. 耗时0.85999999999999999秒。sum=7800000

复制代码

---

欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)

Powered by Discuz! X2.5