数学建模社区-数学中国

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

---

作者: forcal    时间: 2011-11-28 20:39
标题: Lu系统扩展动态库LuSystem之类及对象
    类（class）是一个具有数据成员和方法成员的自定义数据结构。类可以继承和派生，类的层次结构是一棵树。
4 m) ]" d4 G6 P9 b: \$ z
5 G5 O9 J! T: |' {% G1 D    类对象（obj）是类的实例。

0 z( H* w0 J) B$ H! Zsys::class{... ...}：创建类定义

    类定义格式如下：

1. class{#cMyClass: #cBase1, #cBase2, ...  //定义类cMyClass，继承自cBase1和cBase2, ...
   3 e4 U. S0 m# B( ]
2. private:                  //私有数据成员
   
3.   #pvMem1, #pvMem2, ...
   
4. public:                   //公有数据成员
   & W1 T9 t% n9 O) A: I
5.   #plMem1, #plMem2, ...
   - |: |5 u9 q$ ]% T4 D
6. method:                   //方法（函数成员）
   + S5 G: s- v5 Z5 Q4 t
7.   #__init__ : @init, #__del__ : @delme, #mFun1 ：@Fun1, #mFun2 ：@Fun2, ...
   1 L. Y& s6 n5 y
8. };

复制代码

类定义中，类名称、基类名称、成员及方法都是以#开头的标识符，不可重复。类名称在最前面，其次是基类名称；private、public及method的次序是任意的，且可多次定义；方法标识符后必须提供函数句柄。类成员的存储顺序与其定义顺序不一定相同。
; k$ E; h* M' W! u  r. Q  e) a7 X
+ b( E6 x" b7 M8 c3 u2 j/ B8 J: \    #__init__和#__del__只可被定义为方法，其中#__init__用于定义构造函数，#__del__用于定义析构函数。若这两个方法被缺省，其函数句柄被自动指定为0。构造函数和析构函数只有一个参数，即对象本身。

    若方法有不止一个参数，则方法被调用时，第一个参数总是传入对象本身，相当于C++的this指针。
0 l% w* i0 S& D" N9 `/ x
    约定：类名称以字母c开头；私有数据成员以pv开头；公有数据成员以pl开头；方法成员以m开头。
3 c: a1 a  Q/ R3 e. g0 {0 B
sys:bj{pClass}：创建类对象

    pClass是类定义的句柄。

. q# O7 c8 H/ e% S& t/ S7 M4 e    创建类对象时，将自动调用每一个基类的构造函数#__init__初始化基类对象。对象被销毁时，将自动调用每一个基类的析构函数#__del__销毁基类对象。

    语句 a.=b 将对象b的内容复制到对象a，要求a和b具有相同的类定义，若类定义中定义了方法#__copy__（有且只有2个参数），将自动调用该方法进行对象复制，否则仅依次复制类成员的值。

5 g$ L8 `7 R* Y    （1）类定义

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

复制代码

结果：

1. class{#人 :
   
2. private:
   8 P6 H/ r1 ^) P5 f% H
3.   #性别, #年龄,
   
4. public:
   
5.   #姓名,
   
6. method:
   
7.   #__init__ : 0, #__del__ : 0
   
8. }

复制代码

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

1. !!!using("sys");
   ' j9 ~  [* S: @+ u
2. class[#人, public : #姓名, private : #性别, #年龄].o[];    //用函数new定义类，有1个公有成员，2个私有成员。函数o用于输出类定义。

复制代码

输出结果与上面相同。

6 O* s- }7 A5 l) ?    （2）单一继承

1. !!!using("sys");
   6 ^$ S/ K6 ?+ e4 T* i4 S4 J
2. class[#人, public : #姓名, private : #性别, #年龄],
   $ B4 A, B1 R+ B3 u, d' u3 f
3. class[#学生, #人, public : #学校, #班级].o[];

复制代码

结果：

1. class{#学生 : #人,
   ! D5 l) Q! N* ?$ B
2. private:
   
3. 
   
4. public:
   1 K- i- z0 m* L+ G3 V% q) z8 J
5.   #学校, #班级,
   2 \$ `; c; {4 T0 Y0 R( W4 |+ U
6. method:
   
7.   #__init__ : 0, #__del__ : 0
   9 W* p; q8 n- U) H
8. }

复制代码

（3）类对象

1. !!!using("sys");
   
2. main(:a,b)=
   
3.   class[#人, public : #姓名, #性别, #年龄],
   
4.   a=class[#学生, #人, public : #学校, #班级],
   
5.   b=obj[a],
   
6.   b.#学校="实验中学", b.#班级="二年级", b.#姓名="王强", b.#性别="男", b.#年龄=12,
   
7.   o[b, b.#学校,"  ", b.#班级,"  ", b.#姓名,"  ", b.#性别, "  ", b.#年龄, "\r\n"];

复制代码

结果：

1. class obj{#学生 : #人,
   $ O- F( R( B& ^  U- A6 @# f
2. private:
   3 U; Q  ]4 ]/ q7 O0 |
3. public:
   
4.   #学校 : 实验中学,
   
5.   #班级 : 二年级
   $ l2 r/ I8 k1 n7 N  ]  G% C
6. }
   ( S  g2 G! O4 K8 U
7. 实验中学 二年级 王强 男 12

复制代码

说明：如果基类“#人”中#性别和#年龄被定义为私有成员，将无法直接进行存取。

7 }! [. M2 Y$ j' K' j    （4）多重继承及构造函数和析构函数

    例子1：

1. !!!using("sys");
   , ]: \0 D. p1 t2 U
2. initA(p)= o["\r\nA的构造函数!"];
   
3. initB(p)= o["\r\nB的构造函数!"];
   4 W" g! p. U8 `& u- k
4. initC(p)= o["\r\nC的构造函数!"];
   
5. initD(p)= o["\r\nD的构造函数!"];
   
6. delA(p) = o["\r\nA的析构函数!"];
   
7. delB(p) = o["\r\nB的析构函数!"];
   
8. delC(p) = o["\r\nC的析构函数!"];
   $ d, R9 y7 i1 e
9. delD(p) = o["\r\nD的析构函数!"];
   ' m) h$ @1 @1 t' Q8 a
10. main()=
    5 ^0 ?0 s& P* H2 k8 @* K4 `7 f1 N/ y
11.   class[#A,         method : #__init__ : @initA, #__del__ : @delA],
    
12.   class[#B, #A,     method : #__init__ : @initB, #__del__ : @delB],
    
13.   class[#C, #A,     method : #__init__ : @initC, #__del__ : @delC],
    
14.   class[#D, #B, #C, method : #__init__ : @initD, #__del__ : @delD].obj[].delete[];

复制代码

结果：

1. A的构造函数!
   4 U/ _, |' D/ E, p
2. B的构造函数!
   ! s% G( X8 k1 R& A6 g& D( J3 X
3. A的构造函数!
   
4. C的构造函数!
   $ R; v2 b8 A2 P4 S
5. D的构造函数!
   
6. D的析构函数!
   ) Q. w. R. ?4 K7 \  \- E! j
7. B的析构函数!
   
8. A的析构函数!
   
9. C的析构函数!
   
10. A的析构函数!

复制代码

例子2：

1. !!!using("sys");
   + {- j! n# R9 Q0 ^0 O
2. initA(p)= p.#a=0;
   7 ?7 ]' j! U8 e2 I( M) l9 }
3. initB(p)= p.#a=1;
   
4. initC(p)= p.#a=2;
   ( G* O( r6 ^9 |5 ~! N
5. initD(p)= p.#a=3;
   * m+ p4 E% q1 M) x: q* I5 G1 B
6. main(:c)=
   ( G' E$ q8 S8 j
7.   class[#A,           public: #a, method : #__init__ : @initA],
   + c. h4 u$ j4 r, f
8.   class[#B, #A,       public: #a, method : #__init__ : @initB],
   
9.   class[#C, #A,       public: #a, method : #__init__ : @initC],
   ' e1 U% Q4 n, U" N( h  d+ z& x5 u
10.   c=class[#D, #B, #C, public: #a, method : #__init__ : @initD].obj[],
    , I3 \7 a5 U) @! J* ]" G5 E
11.   o[c.#a,"  ",c.#B.#a,"  ",c.#C.#a,"  ",c.#B.#A.#a,"  ",c.#C.#A.#a,"\r\n"],
    
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
   $ s0 E+ k1 z6 y
2. 5 6

复制代码

例子3：

1. !!!using("sys");
   
2. initA(p)= p.#a=0;
   : [! t6 z) k$ b2 p
3. initB(p)= p.#b=1;
   3 n2 a6 A; }7 s. C: Y( [, E$ R
4. initC(p)= p.#c=2;
   
5. initD(p)= p.#d=3;
   & t0 ^: P2 \1 }0 }& \8 E
6. main(:c)=
   
7.   class[#A,           public: #a, method : #__init__ : @initA],
   2 B- p! f; _5 I, B+ b2 e* s
8.   class[#B, #A,       public: #b, method : #__init__ : @initB],
   
9.   class[#C, #A,       public: #c, method : #__init__ : @initC],
   
10.   c=class[#D, #B, #C, public: #d, method : #__init__ : @initD].obj[],
    $ Q8 ~& A# R! Z; s/ W2 [( l
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,
    # Y' P3 o! M( J0 l, r8 [1 I* n/ p7 \3 }" R
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
   
2. 5 6 7 8
   
3. 11 11 12

复制代码

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

    例子1：

1. !!!using("sys");
   
2. setA(p,x)= p.#a=x;
   
3. setB(p,x)= p.#a=x;
   6 t0 @$ @# F$ p4 ^9 `# s
4. setC(p,x)= p.#a=x;
   ; w- O6 Z7 s4 h' G
5. getA(p)= p.#a;
   . f% M0 m1 I9 I% \* T1 j- Q, }3 A7 r
6. getB(p)= p.#a;
   
7. getC(p)= p.#a;
   
8. main(:c)=
   # c! m7 C% G- y
9.   class[#A,           private: #a, method : #mGetA : @getA, #mSetA : @setA],
   & w7 c+ ], y; t# D( }) M: f* y( s
10.   class[#B,           private: #a, method : #mGetB : @getB, #mSetB : @setB],
    4 ^. U" D9 F/ p3 C- q$ t, c
11.   c=class[#C, #A, #B, private: #a, method : #mGetC : @getC, #mSetC : @setC].obj[],
    5 `8 C; _! W& q! h9 h1 J
12.   c.#mSetA=5, c.#mSetB=6, c.#mSetC=7,
    
13.   o[c.#mGetA,"  ",c.#mGetB,"  ",c.#mGetC,"\r\n"];

复制代码

结果：

1. 5 6 7

复制代码

说明：类的方法成员和数据成员用法几乎相同，但方法可以接受多个参数，如下例。
% f/ \$ n6 i6 Q& t( N
    例子2：

1. !!!using("sys");
   
2. out(p,x,y,z)= o[x,y,z,"\r\n"];
   ( n, ^3 G3 a$ ^! e
3. main(:c)=
   * n7 d/ A) V6 h8 B8 b
4.   c=class[#A, method : #mOut : @out].obj[],
   ; o4 H6 m( d9 k+ H  H
5.   c.#mOut := [5,6,7],
   3 u$ f5 o$ }$ w2 f' C
6.   c.#mOut."***".(888)."***";

复制代码

结果：

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

复制代码

（6）类对象复制

1. !!!using("sys");
   ! _: E3 [! K) p1 J6 t" N2 u
2. setA(p,x,y)= p.#a=x, p.#b=y;
   
3. sumA(p)= p.#a+p.#b;
   ; o7 t7 l5 K+ j5 x$ W# K$ H
4. copyAB(s,t)= s.#a=t.#a, s.#b=t.#b;
   
5. class[#A,     private : #a, public : #b, method : #__copy__ : @copyAB, #setA : @setA, #sumA : @sumA],
   
6. class[#B, #A, private : #a, public : #b, method : #__copy__ : @copyAB];
   - ~' l+ }% P: o: Y" g2 B0 h4 |
7. main(:a,b)=
   - L; G* L4 C, f9 M$ C! N3 O
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,
    ( Z( j! s4 j) U9 T0 ?
11.   b.#a+b.#b+b.#sumA;

复制代码

结果：

2 ]& f0 r# j4 t" a) ]* J20
4 r* }: d  Q4 l  C" ^  r4 `9 x9 `! a
    （7）多态性

1. !!!using("sys");
   3 W" C1 ~1 G- H( G4 r$ N' p# E# g
2. getA()= 1;
   
3. getB()= 2;
   
4. getC()= 3;
   
5. class[#A,     method : #mGet : @getA],
   0 w0 i3 i$ D; d9 T2 M) F
6. class[#B, #A, method : #mGet : @getB],
   
7. class[#C, #B, method : #mGet : @getC];
   
8. main(:a,b,c)=
   
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,  //获得基类对象
    
12.   o[c.#mGet,"  ",b.#mGet,"  ",a.#mGet,"\r\n"];

复制代码

结果：
1 K2 @& S/ q+ O, Q4 O2 M' [9 k4 u% I) H
' v4 Y: t( }, }  u: v/ F3 2 1
3 2 1
# w* Y' H; y! B6 D
8 V  t  r: Q8 a9 b1 \# ]/ B3 w    （8）效率测试

1. !!!using("sys");
   # R1 D' h7 u6 h' _0 L' l
2. main(:a,i,t0,sum)=
   % d1 ?* c- ~: C/ K' I$ ^
3.   a=class{#A,
   + u" ?4 Y# D  t: }& ^! ^+ X; O
4.     public:
   
5.     #January,
   8 ~) A- d4 m  g3 W1 T! ^5 k! {2 x' C
6.     #February,
   7 H: m# t$ |9 Z! D" e
7.     #March,
   : d% l+ w! ^' ?% s* L" X; D
8.     #April,
   
9.     #May,
   6 V6 `! m# l) h4 a" n: @% R. d8 _
10.     #June,
    , M" x- y) r) M  h* {! D
11.     #July,
    & o0 Y3 v1 w6 z! M4 i' C- Z
12.     #August,
    
13.     #September,
    
14.     #October,
    ! h% g; b5 {; L  o; \
15.     #November,
    / a% q$ i3 T1 g7 S
16.     #December
    2 ]7 N" d# k. s' J2 A1 Q4 f& }* B4 N9 Y
17.   }.obj[],
    
18.   t0=clock(), sum=0,
    
19.   i=0, while{++i<=100000,
    0 ]0 H9 {. E. _
20.     a.#January=1,
    
21.     a.#February=2,
    
22.     a.#March=3,
    " @# }1 J8 A$ O5 M( m4 ]- R% ?/ G% W
23.     a.#April=4,
    
24.     a.#May=5,
    2 F& K# b; S5 \- _5 T  X: O
25.     a.#June=6,
    
26.     a.#July=7,
    
27.     a.#August=8,
    ! c; _1 k. _& e5 ~' Q
28.     a.#September=9,
    
29.     a.#October=10,
    
30.     a.#November=11,
      a. G3 s7 `% H* Y  V# d/ b1 c
31.     a.#December=12,
    
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
    
33.   },
    
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