blob: 66183d8e641aaba5e6f563465bda10e1cfcc5bcc (
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
|
-- File: FairCurve_BattenLaw.cdl
-- Created: Fri Jan 26 16:13:07 1996
-- Author: Philippe MANGIN
-- <pmn@sgi29>
---Copyright: Matra Datavision 1996
private class BattenLaw from FairCurve inherits Function from math
---Purpose: This class compute the Heigth of an batten
is
Create(Heigth, Slope, Sliding : Real)
---Purpose: Constructor of linear batten with
-- Heigth : the Heigth at the middle point
-- Slope : the geometric slope of the batten
-- Sliding : Active Length of the batten without extension
returns BattenLaw;
SetSliding(me : in out; Sliding : Real);
---Purpose: Change the value of sliding
---C++: inline
SetHeigth(me : in out; Heigth : Real);
---Purpose: Change the value of Heigth at the middle point.
---C++: inline
SetSlope(me : in out; Slope : Real);
---Purpose: Change the value of the geometric slope.
---C++: inline
Value(me: in out; T: Real; THeigth: out Real) returns Boolean
---Purpose: computes the value of the heigth for the parameter T
-- on the neutral fibber
---C++: inline
is redefined;
fields
MiddleHeigth : Real; -- the Heigth at the middle point
GeometricSlope : Real; -- the geometric slope of the batten
LengthSliding : Real; -- the length of sliding of the batten
end BattenLaw;
|
