b311480e |
1 | -- Created on: 1998-07-09 |
2 | -- Created by: Stephanie HUMEAU |
3 | -- Copyright (c) 1998-1999 Matra Datavision |
973c2be1 |
4 | -- Copyright (c) 1999-2014 OPEN CASCADE SAS |
b311480e |
5 | -- |
973c2be1 |
6 | -- This file is part of Open CASCADE Technology software library. |
b311480e |
7 | -- |
d5f74e42 |
8 | -- This library is free software; you can redistribute it and/or modify it under |
9 | -- the terms of the GNU Lesser General Public License version 2.1 as published |
973c2be1 |
10 | -- by the Free Software Foundation, with special exception defined in the file |
11 | -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT |
12 | -- distribution for complete text of the license and disclaimer of any warranty. |
b311480e |
13 | -- |
973c2be1 |
14 | -- Alternatively, this file may be used under the terms of Open CASCADE |
15 | -- commercial license or contractual agreement. |
7fd59977 |
16 | |
17 | private class FunctionGuide from GeomFill |
18 | inherits FunctionSetWithDerivatives from math |
19 | |
20 | uses |
21 | |
22 | Vector from math, |
23 | Matrix from math, |
24 | Surface from Geom, |
25 | Curve from Geom, |
26 | HCurve from Adaptor3d, |
27 | Vec from gp, |
28 | XYZ from gp, |
29 | Pnt from gp, |
30 | SectionLaw from GeomFill |
31 | |
32 | is |
33 | |
34 | Create(S : SectionLaw from GeomFill; |
35 | Guide : HCurve from Adaptor3d; |
36 | ParamOnLaw : Real = 0.0) |
37 | returns FunctionGuide from GeomFill ; |
38 | |
39 | SetParam(me : in out; |
40 | Param : Real; |
41 | Centre : Pnt from gp; |
42 | Dir : XYZ from gp; |
43 | XDir : XYZ from gp) |
44 | is static; |
45 | |
46 | NbVariables(me) |
47 | ---Purpose: returns the number of variables of the function. |
48 | |
49 | returns Integer is redefined; |
50 | |
51 | |
52 | NbEquations(me) |
53 | ---Purpose: returns the number of equations of the function. |
54 | |
55 | returns Integer is redefined; |
56 | |
57 | |
58 | Value(me: in out; X: Vector; F: out Vector) |
59 | ---Purpose: computes the values <F> of the Functions for the |
60 | -- variable <X>. |
61 | -- Returns True if the computation was done successfully, |
62 | -- False otherwise. |
63 | |
64 | returns Boolean is redefined; |
65 | |
66 | |
67 | Derivatives(me: in out; X: Vector; D: out Matrix) |
68 | ---Purpose: returns the values <D> of the derivatives for the |
69 | -- variable <X>. |
70 | -- Returns True if the computation was done successfully, |
71 | -- False otherwise. |
72 | |
73 | returns Boolean is redefined; |
74 | |
75 | |
76 | Values(me: in out; X: Vector; F: out Vector; D: out Matrix) |
77 | ---Purpose: returns the values <F> of the functions and the derivatives |
78 | -- <D> for the variable <X>. |
79 | -- Returns True if the computation was done successfully, |
80 | -- False otherwise. |
81 | |
82 | returns Boolean is redefined; |
83 | |
84 | |
85 | DerivT(me : in out; |
86 | X : Vector from math; |
87 | DCentre: XYZ from gp; |
88 | DDir : XYZ from gp; |
89 | DFDT : out Vector) |
90 | ---Purpose: returns the values <F> of the T derivatives for |
91 | -- the parameter Param . |
92 | returns Boolean is static; |
93 | |
94 | DSDT(me; |
95 | U, V : Real; |
96 | DCentre: XYZ from gp; |
97 | DDir : XYZ from gp; |
98 | DSDT : out Vec from gp) |
99 | is private; |
100 | |
101 | Deriv2T(me: in out; |
102 | DCentre: XYZ from gp; |
103 | DDir : XYZ from gp; |
104 | DFDT, D2FT : out Vector) |
105 | ---Purpose: returns the values <F> of the T2 derivatives for |
106 | -- the parameter Param . |
107 | returns Boolean is static; |
108 | |
109 | |
110 | -- DerivTX(me: in out; |
111 | -- Param : Real from Standard; |
112 | -- Param0 : Real from Standard; |
113 | -- R : Vector from math; |
114 | -- X0 : Vector from math; |
115 | -- D: out Matrix) |
116 | ---Purpose: returns the values <D> of the TX derivatives for |
117 | -- the parameter Param . |
118 | -- returns Boolean is static; |
119 | |
120 | |
121 | -- Deriv2X(me: in out; |
122 | -- X : Vector from math; |
123 | -- T: out Tensor) |
124 | ---Purpose: returns the values <T> of the X2 derivatives for |
125 | -- the parameter Param . |
126 | -- returns Boolean is static; |
127 | |
128 | |
129 | |
130 | fields |
131 | TheGuide : HCurve from Adaptor3d; |
132 | TheLaw : SectionLaw from GeomFill; |
133 | isconst : Boolean; |
134 | TheCurve : Curve from Geom; |
135 | TheConst : Curve from Geom; |
136 | TheSurface: Surface from Geom; |
137 | First,Last: Real; |
138 | TheUonS : Real; |
139 | Centre : XYZ; |
140 | Dir : XYZ; |
141 | end FunctionGuide; |