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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
|
//static const char* sccsid = "@(#)Expr_FunctionDerivative.cxx 3.2 95/01/10"; // Do not delete this line. Used by sccs.
// Copyright: Matra-Datavision 1991
// File: Expr_FunctionDerivative.cxx
// Created: Thu Jun 27 09:40:36 1991
// Author: Arnaud BOUZY
// <adn>
#include <Expr_FunctionDerivative.ixx>
#include <Expr_NumericValue.hxx>
#include <Expr_NamedFunction.hxx>
#include <Standard_OutOfRange.hxx>
#include <Standard_NotImplemented.hxx>
Expr_FunctionDerivative::Expr_FunctionDerivative (const Handle(Expr_GeneralFunction)& func, const Handle(Expr_NamedUnknown)& withX, const Standard_Integer deg)
{
myFunction = func;
myDerivate = withX;
if (deg <= 0) {
Standard_OutOfRange::Raise();
}
myDegree = deg;
UpdateExpression();
}
Standard_Integer Expr_FunctionDerivative::NbOfVariables () const
{
return myFunction->NbOfVariables();
}
Handle(Expr_NamedUnknown) Expr_FunctionDerivative::Variable (const Standard_Integer index) const
{
return myFunction->Variable(index);
}
Standard_Real Expr_FunctionDerivative::Evaluate (const Expr_Array1OfNamedUnknown& vars, const TColStd_Array1OfReal& values) const
{
if (vars.Length() != values.Length()) {
Standard_OutOfRange::Raise();
}
return myExp->Evaluate(vars,values);
}
Handle(Expr_GeneralFunction) Expr_FunctionDerivative::Copy () const
{
return new Expr_FunctionDerivative(myFunction->Copy(),myDerivate,myDegree);
}
Handle(Expr_GeneralFunction) Expr_FunctionDerivative::Derivative(const Handle(Expr_NamedUnknown)& var) const
{
return Derivative(var,1);
}
Handle(Expr_GeneralFunction) Expr_FunctionDerivative::Derivative(const Handle(Expr_NamedUnknown)& var, const Standard_Integer deg) const
{
if (var == myDerivate) {
return new Expr_FunctionDerivative(myFunction,var,myDegree+deg);
}
Handle(Expr_FunctionDerivative) me = this;
return new Expr_FunctionDerivative(me,var,deg);
}
Standard_Boolean Expr_FunctionDerivative::IsIdentical (const Handle(Expr_GeneralFunction)& func) const
{
if (!func->IsKind(STANDARD_TYPE(Expr_FunctionDerivative))) {
return Standard_False;
}
Handle(Expr_FunctionDerivative) dfunc = Handle(Expr_FunctionDerivative)::DownCast(func);
if (myDegree != dfunc->Degree()) {
return Standard_False;
}
if (!myDerivate->IsIdentical(dfunc->DerivVariable())) {
return Standard_False;
}
if (!myFunction->IsIdentical(dfunc->Function())) {
return Standard_False;
}
return Standard_True;
}
Standard_Boolean Expr_FunctionDerivative::IsLinearOnVariable(const Standard_Integer) const
{
// should be improved
return myExp->IsLinear();
}
Handle(Expr_GeneralFunction) Expr_FunctionDerivative::Function () const
{
return myFunction;
}
Standard_Integer Expr_FunctionDerivative::Degree () const
{
return myDegree;
}
Handle(Expr_NamedUnknown) Expr_FunctionDerivative::DerivVariable () const
{
return myDerivate;
}
TCollection_AsciiString Expr_FunctionDerivative::GetStringName() const
{
TCollection_AsciiString res;
if (NbOfVariables() ==1) {
res = myFunction->GetStringName();
char c = 39;
TCollection_AsciiString diff(myDegree,c);
res += diff;
return res;
}
TCollection_AsciiString diff("@");
if (myDegree > 1) {
TCollection_AsciiString deg(myDegree);
diff += deg;
}
res = diff;
res += myFunction->GetStringName();
res += "/";
Standard_Integer index=0;
for (Standard_Integer i=1; (i<= NbOfVariables()) && (index ==0) ; i++) {
if (Variable(i) == myDerivate) {
index =i;
}
}
res += diff;
res += "X";
TCollection_AsciiString rank(index);
res += rank;
return res;
}
Handle(Expr_GeneralExpression) Expr_FunctionDerivative::Expression() const
{
return myExp;
}
void Expr_FunctionDerivative::UpdateExpression()
{
if (myFunction->IsKind(STANDARD_TYPE(Expr_FunctionDerivative))) {
Handle(Expr_FunctionDerivative) defunc = Handle(Expr_FunctionDerivative)::DownCast(myFunction);
defunc->UpdateExpression();
myExp = defunc->Expression()->NDerivative(myDerivate,myDegree);
}
else {
Handle(Expr_NamedFunction) nafunc = Handle(Expr_NamedFunction)::DownCast(myFunction);
myExp = nafunc->Expression()->NDerivative(myDerivate,myDegree);
}
}
|
