blob: 67d0a1a62a59e7ad40c3cf34575fbd70fac1f7e2 (
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
|
-- File: Bisector_FunctionInter.cdl
-- Created: Tue Apr 5 14:05:05 1994
-- Author: Yves FRICAUD
-- <yfr@phylox>
---Copyright: Matra Datavision 1994
private class FunctionInter from Bisector
inherits FunctionWithDerivative from math
---Purpose: 2 2
-- F(u) = (PC(u) - PBis1(u)) + (PC(u) - PBis2(u))
uses
Curve from Geom2d,
Curve from Bisector
--
is
Create returns FunctionInter from Bisector;
Create (C : Curve from Geom2d ;
Bis1 : Curve from Bisector;
Bis2 : Curve from Bisector)
returns FunctionInter from Bisector;
Perform (me : in out;
C : Curve from Geom2d ;
Bis1 : Curve from Bisector;
Bis2 : Curve from Bisector)
is static;
Value(me : in out; X : Real; F : out Real)
---Purpose: Computes the values of the Functions for the variable <X>.
returns Boolean
is static;
Derivative(me : in out; X : Real; D : out Real)
returns Boolean;
Values(me : in out ; X : Real; F : out Real; D : out Real)
---Purpose: Returns the values of the functions and the derivatives
-- for the variable <X>.
returns Boolean
is static;
fields
curve : Curve from Geom2d;
bisector1 : Curve from Bisector;
bisector2 : Curve from Bisector;
end FunctionInter;
|
