blob: 75be53f4fa8891877c4bc2b98812b7dbc351d771 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
-- File: SystemRelation.cdl
-- Created: Mon Jan 14 09:50:50 1991
-- Author: Arnaud BOUZY
-- <adn@topsn3>
---Copyright: Matra Datavision 1991
class SystemRelation from Expr
inherits GeneralRelation from Expr
uses SequenceOfGeneralRelation from Expr,
GeneralExpression from Expr,
NamedUnknown from Expr,
AsciiString from TCollection
raises OutOfRange,NoSuchObject,DimensionMismatch,NumericError
is
Create(relation : GeneralRelation)
---Purpose: Creates a system with one relation
---Level : Advanced
returns mutable SystemRelation;
Add(me : mutable; relation : GeneralRelation)
---Purpose: Appends <relation> in the list of components of <me>.
---Level : Advanced
is static;
Remove(me : mutable; relation : GeneralRelation)
---Level : Internal
raises NoSuchObject,DimensionMismatch
is static;
IsLinear(me)
---Purpose: Tests if <me> is linear between its NamedUnknowns.
returns Boolean
is static;
NbOfSubRelations(me)
---Purpose: Returns the number of relations contained in <me>.
returns Integer
is static;
NbOfSingleRelations(me)
---Purpose: Returns the number of SingleRelations contained in
-- <me>.
returns Integer
is static;
SubRelation(me; index : Integer)
---Purpose: Returns the relation denoted by <index> in <me>.
-- An exception is raised if <index> is out of range.
returns any GeneralRelation
raises OutOfRange
is static;
IsSatisfied(me)
returns Boolean;
Simplified(me)
---Purpose: Returns a GeneralRelation after replacement of
-- NamedUnknowns by an associated expression, and after
-- values computation.
returns mutable GeneralRelation
raises NumericError;
Simplify(me : mutable)
---Purpose: Replaces NamedUnknowns by associated expressions,
-- and computes values in <me>.
raises NumericError;
Copy(me)
---Purpose: Returns a copy of <me> having the same unknowns and functions.
returns mutable like me;
Contains(me; exp : GeneralExpression)
---Purpose: Tests if <me> contains <exp>.
returns Boolean;
Replace(me : mutable ; var : NamedUnknown ; with : GeneralExpression);
---Purpose: Replaces all occurences of <var> with <with> in <me>.
String(me)
---Purpose: returns a string representing <me> in a readable way.
returns AsciiString;
fields
myRelations : SequenceOfGeneralRelation;
end SystemRelation;
|