blob: 16a05131cf6a1f859f89781a74ac5f83dad90b5f (
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
|
-- File: FEmTool_LinearJerk.cdl
-- Created: Thu Sep 18 10:58:03 1997
-- Author: Philippe MANGIN
-- <pmn@sgi29>
---Copyright: Matra Datavision 1997
class LinearJerk from FEmTool inherits ElementaryCriterion from FEmTool
---Purpose: Criterion of LinearFlexion To Hermit-Jacobi elements
uses
Vector from math,
Matrix from math,
Shape from GeomAbs,
HArray2OfReal from TColStd,
HArray2OfInteger from TColStd
raises
NotImplemented,
DomainError
is
Create(WorkDegree : Integer ;
ConstraintOrder : Shape from GeomAbs)
returns LinearJerk from FEmTool;
DependenceTable(me)
returns HArray2OfInteger from TColStd
is redefined;
Value (me : mutable)
returns Real is redefined;
Hessian(me : mutable ;
Dimension1 : Integer;
Dimension2 : Integer;
H : out Matrix from math)
raises DomainError -- If DependenceTable(Dimension1,Dimension2) is False
is redefined;
Gradient(me : mutable;
Dimension : Integer;
G : out Vector from math)
is redefined;
fields
RefMatrix : Matrix from math;
myOrder : Integer;
end LinearJerk;
|