数学建模社区-数学中国

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

---

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

3 p: s7 u7 W( v5 o2 D0 X    类对象（obj）是类的实例。

5 m- r' B! B% w( v' a( S9 zsys::class{... ...}：创建类定义

8 _9 t/ T+ o5 T0 L, n' V- S    类定义格式如下：

1. class{#cMyClass: #cBase1, #cBase2, ...  //定义类cMyClass，继承自cBase1和cBase2, ...
   
2. private:                  //私有数据成员
   4 F: L" z6 Y( w$ \/ D, b
3.   #pvMem1, #pvMem2, ...
   
4. public:                   //公有数据成员
   
5.   #plMem1, #plMem2, ...
     o" e! y$ C- S4 ^6 m) |7 U' s" ]
6. method:                   //方法（函数成员）
   
7.   #__init__ : @init, #__del__ : @delme, #mFun1 ：@Fun1, #mFun2 ：@Fun2, ...
   
8. };

复制代码

类定义中，类名称、基类名称、成员及方法都是以#开头的标识符，不可重复。类名称在最前面，其次是基类名称；private、public及method的次序是任意的，且可多次定义；方法标识符后必须提供函数句柄。类成员的存储顺序与其定义顺序不一定相同。
0 E, ~6 b$ t6 c; \' W/ x
    #__init__和#__del__只可被定义为方法，其中#__init__用于定义构造函数，#__del__用于定义析构函数。若这两个方法被缺省，其函数句柄被自动指定为0。构造函数和析构函数只有一个参数，即对象本身。
% M, _$ x9 j* w! E
    若方法有不止一个参数，则方法被调用时，第一个参数总是传入对象本身，相当于C++的this指针。

    约定：类名称以字母c开头；私有数据成员以pv开头；公有数据成员以pl开头；方法成员以m开头。
+ w1 {1 Z! [1 Y! t/ J& `
sys:bj{pClass}：创建类对象

. B# m1 c- b/ e& [2 c: n    pClass是类定义的句柄。
6 x, X% j* X7 i. y( Y- `
    创建类对象时，将自动调用每一个基类的构造函数#__init__初始化基类对象。对象被销毁时，将自动调用每一个基类的析构函数#__del__销毁基类对象。

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

( F( j0 z( s7 B$ m1 u' h    （1）类定义

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

复制代码

结果：

1. class{#人 :
   5 {3 P5 f5 ]7 _6 I- F2 J- Q1 N. `
2. private:
   
3.   #性别, #年龄,
   
4. public:
   
5.   #姓名,
   
6. method:
   , [. H5 B& j% e
7.   #__init__ : 0, #__del__ : 0
   
8. }

复制代码

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

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

复制代码

输出结果与上面相同。
: z. K& Z: s# @! Q2 ]
9 b6 A. Z5 j' ^# l/ I. |8 m    （2）单一继承

1. !!!using("sys");
   5 f) K9 X" h9 J
2. class[#人, public : #姓名, private : #性别, #年龄],
   
3. class[#学生, #人, public : #学校, #班级].o[];

复制代码

结果：

1. class{#学生 : #人,
   
2. private:
   $ O+ d1 k* m) i9 x
3. 
   
4. public:
   - U# M% g" `7 c6 W; ?8 M
5.   #学校, #班级,
   
6. method:
   + A1 \, H+ |6 v
7.   #__init__ : 0, #__del__ : 0
   # V) S: B- I- L( j6 e/ K- a
8. }

复制代码

（3）类对象

1. !!!using("sys");
   
2. main(:a,b)=
   ; Z  b( J$ J8 w/ i7 X
3.   class[#人, public : #姓名, #性别, #年龄],
   9 u) W' ~4 \) l& Q- Y( B$ ]
4.   a=class[#学生, #人, public : #学校, #班级],
   
5.   b=obj[a],
   3 V  _$ k5 `* _& H! x4 `
6.   b.#学校="实验中学", b.#班级="二年级", b.#姓名="王强", b.#性别="男", b.#年龄=12,
   4 M4 Z8 l$ D: n7 A2 H/ o* P" p6 O
7.   o[b, b.#学校,"  ", b.#班级,"  ", b.#姓名,"  ", b.#性别, "  ", b.#年龄, "\r\n"];

复制代码

结果：

1. class obj{#学生 : #人,
   
2. private:
   / `+ ~$ z% x( S3 h1 P5 T8 @
3. public:
     j9 y% P9 Z+ M
4.   #学校 : 实验中学,
   5 _3 C% v$ @% t
5.   #班级 : 二年级
   
6. }
   
7. 实验中学 二年级 王强 男 12

复制代码

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

    （4）多重继承及构造函数和析构函数
1 g5 M9 s& w2 a7 ^- D
    例子1：

1. !!!using("sys");
   
2. initA(p)= o["\r\nA的构造函数!"];
   
3. initB(p)= o["\r\nB的构造函数!"];
   
4. initC(p)= o["\r\nC的构造函数!"];
   % X3 P8 ~5 N& u4 b8 }9 Z
5. initD(p)= o["\r\nD的构造函数!"];
   
6. delA(p) = o["\r\nA的析构函数!"];
     k, b* J% g# U$ z4 a9 A+ R
7. delB(p) = o["\r\nB的析构函数!"];
   : N& u9 @, q/ k! T. G
8. delC(p) = o["\r\nC的析构函数!"];
   
9. delD(p) = o["\r\nD的析构函数!"];
   
10. main()=
    
11.   class[#A,         method : #__init__ : @initA, #__del__ : @delA],
    , G& g& A. y& L" ~7 w0 ~! l( \
12.   class[#B, #A,     method : #__init__ : @initB, #__del__ : @delB],
    - d) S" v5 ^) d% P' \& [  q6 {
13.   class[#C, #A,     method : #__init__ : @initC, #__del__ : @delC],
    / q' P7 E) Z( ~4 L. v$ f5 W
14.   class[#D, #B, #C, method : #__init__ : @initD, #__del__ : @delD].obj[].delete[];

复制代码

结果：

1. A的构造函数!
   
2. B的构造函数!
   
3. A的构造函数!
   ) @9 J& T; V( u+ ]1 q
4. C的构造函数!
   . w/ C1 h/ n6 E7 ]/ k
5. D的构造函数!
   
6. D的析构函数!
   7 J% }. w3 K& w1 T
7. B的析构函数!
   
8. A的析构函数!
   
9. C的析构函数!
   1 c4 m+ U( S5 P5 h1 b! d! L
10. A的析构函数!

复制代码

例子2：

1. !!!using("sys");
   * g6 }7 v3 s: N
2. initA(p)= p.#a=0;
   : O* [2 i9 r. v; L! w. R8 V
3. initB(p)= p.#a=1;
   . h' q& g0 U6 T, I7 {4 I0 }1 X7 R
4. initC(p)= p.#a=2;
   
5. initD(p)= p.#a=3;
   
6. main(:c)=
   8 v3 w$ |* T& G
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],
   
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"],
    3 M, Q( _  W3 Z8 v2 e& _
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. 5 6

复制代码

例子3：

1. !!!using("sys");
   
2. initA(p)= p.#a=0;
   
3. initB(p)= p.#b=1;
   . [7 e" C- S8 O, O8 ^( s; o$ c
4. initC(p)= p.#c=2;
   7 i5 j7 e8 f; c2 p
5. initD(p)= p.#d=3;
   
6. main(:c)=
   5 C2 ~$ D9 _- N- ]# i9 f6 M
7.   class[#A,           public: #a, method : #__init__ : @initA],
   + O* ^: j" T- N0 ~( R
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[],
    2 m6 o/ w& R: V; c! b4 p
11.   o[c.#a,"  ",c.#b,"  ",c.#c,"  ",c.#d,"\r\n"],
    0 u& p" ?) `* j! k: U
12.   c.#a=5, c.#b=6, c.#c=7, c.#d=8,
    
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）成员函数：第一个参数为对象指针

5 v) Y  l( R) w' O2 ]    例子1：

1. !!!using("sys");
   ' E, [: x1 {+ P9 y! d
2. setA(p,x)= p.#a=x;
   . J' l$ g  ^. }. d6 p  j
3. setB(p,x)= p.#a=x;
   ' M4 @$ R$ Y$ {) B
4. setC(p,x)= p.#a=x;
   : L( `7 c) n3 D' G: R8 ^/ f, ^' ^
5. getA(p)= p.#a;
   9 O6 i6 B& Q; q4 a: G! n7 X
6. getB(p)= p.#a;
   
7. getC(p)= p.#a;
   8 o9 N' l, Y5 J5 _$ A8 m
8. main(:c)=
   , R6 J/ v( y. n5 I" C- p- T( x
9.   class[#A,           private: #a, method : #mGetA : @getA, #mSetA : @setA],
   + k# |5 J( y8 d. Y& f. I2 G1 h
10.   class[#B,           private: #a, method : #mGetB : @getB, #mSetB : @setB],
    " E, V, H; M8 ~1 ?/ P
11.   c=class[#C, #A, #B, private: #a, method : #mGetC : @getC, #mSetC : @setC].obj[],
    
12.   c.#mSetA=5, c.#mSetB=6, c.#mSetC=7,
    ) e! ?% d$ n# d: H! p8 ^
13.   o[c.#mGetA,"  ",c.#mGetB,"  ",c.#mGetC,"\r\n"];

复制代码

结果：

1. 5 6 7

复制代码

说明：类的方法成员和数据成员用法几乎相同，但方法可以接受多个参数，如下例。
# a8 o6 w" @: r* A
& D5 w8 A7 z1 K( s+ B  [    例子2：

1. !!!using("sys");
   * [1 M* v; W% [% @3 G5 k4 U
2. out(p,x,y,z)= o[x,y,z,"\r\n"];
   ; I* W9 T, B- \8 {/ b6 q2 s
3. main(:c)=
   
4.   c=class[#A, method : #mOut : @out].obj[],
   
5.   c.#mOut := [5,6,7],
   - u! g) r3 Y% m9 B" W
6.   c.#mOut."***".(888)."***";

复制代码

结果：

1. 567
   % X! X  I+ k3 ^$ B4 P
2. ***888***

复制代码

（6）类对象复制

1. !!!using("sys");
   
2. setA(p,x,y)= p.#a=x, p.#b=y;
   # m$ x( ~7 X% _0 C6 l: n/ _( C
3. sumA(p)= p.#a+p.#b;
   
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];
   
7. main(:a,b)=
   
8.   a=obj[class_handle(#B)], b=obj[class_handle(#B)],
   : A  U/ T0 z) L& T  o# G3 z
9.   a.#a=1, a.#b=2, a.#setA:=[8,9],
   7 a, t4 b6 Z; D. {$ x8 ^' y+ r
10.   b.=a,
    0 d  x9 z, X2 M; Z7 h8 S
11.   b.#a+b.#b+b.#sumA;

复制代码

结果：
8 g  I7 `) Y# c
20
# t7 z" y$ B- Q; r9 G
$ M: X) r+ g. t) K5 F/ S    （7）多态性

1. !!!using("sys");
   
2. getA()= 1;
   
3. getB()= 2;
   
4. getC()= 3;
   
5. class[#A,     method : #mGet : @getA],
   % e7 w* P3 }$ F# d4 ~
6. class[#B, #A, method : #mGet : @getB],
   
7. class[#C, #B, method : #mGet : @getC];
   / U7 x& h2 b4 @- g; w3 ?6 a8 L
8. main(:a,b,c)=
   6 H' \6 M4 X5 C+ Y% P+ [' n7 P' m
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,  //获得基类对象
    - S' X9 T/ k" C+ v5 N3 {
12.   o[c.#mGet,"  ",b.#mGet,"  ",a.#mGet,"\r\n"];

复制代码

结果：

3 2 1
3 2 1

    （8）效率测试

1. !!!using("sys");
   1 O7 [% O8 {/ X, f6 O6 c' ~
2. main(:a,i,t0,sum)=
   & L. h% S/ B6 d' e/ i0 k
3.   a=class{#A,
   " K' ~- o* y4 x- R0 p
4.     public:
   
5.     #January,
   
6.     #February,
   
7.     #March,
   
8.     #April,
   . o* K/ M( E6 b$ e; U$ N
9.     #May,
   4 d' @$ ^2 s. d/ _" J' L
10.     #June,
    $ [1 a7 r( e2 z$ w# y8 N
11.     #July,
    " m+ {, d# ]+ O) ~2 `3 L
12.     #August,
    
13.     #September,
    0 U4 [  i( c& u1 g: Z1 h
14.     #October,
    - W) ^: @( I0 d3 D$ s5 D
15.     #November,
    : \6 h$ S% e' l/ o2 r9 S& M
16.     #December
    
17.   }.obj[],
    
18.   t0=clock(), sum=0,
    
19.   i=0, while{++i<=100000,
    - v+ b- b/ l2 B" R/ }9 Q
20.     a.#January=1,
    7 T. M7 G4 r( U/ [. w
21.     a.#February=2,
    . k6 Y; D: h; m
22.     a.#March=3,
    
23.     a.#April=4,
    
24.     a.#May=5,
    
25.     a.#June=6,
    
26.     a.#July=7,
    8 P! f; H) h1 i! v
27.     a.#August=8,
    # i! _! l4 w- B1 W# f" x
28.     a.#September=9,
    
29.     a.#October=10,
    
30.     a.#November=11,
    1 s2 A* J$ o. @
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.   },
    ; F3 J2 H4 g  J# {) M8 L$ i; ?
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