1 //static const char* sccsid = "@(#)Expr_Exponential.cxx 3.2 95/01/10"; // Do not delete this line. Used by sccs.
2 // Copyright: Matra-Datavision 1991
3 // File: Expr_Exponential.cxx
4 // Created: Mon May 27 17:30:32 1991
5 // Author: Arnaud BOUZY
8 #include <Expr_Exponential.ixx>
9 #include <Expr_NumericValue.hxx>
10 #include <Expr_LogOfe.hxx>
11 #include <Expr_Product.hxx>
12 #include <Expr_Operators.hxx>
15 Expr_Exponential::Expr_Exponential(const Handle(Expr_GeneralExpression)& exp)
20 Handle(Expr_GeneralExpression) Expr_Exponential::ShallowSimplified () const
22 Handle(Expr_GeneralExpression) myexp = Operand();
23 if (myexp->IsKind(STANDARD_TYPE(Expr_NumericValue))) {
24 Handle(Expr_NumericValue) myNVexp = Handle(Expr_NumericValue)::DownCast(myexp);
25 return new Expr_NumericValue(Exp(myNVexp->GetValue()));
27 if (myexp->IsKind(STANDARD_TYPE(Expr_LogOfe))) {
28 return myexp->SubExpression(1);
30 Handle(Expr_Exponential) me = this;
34 Handle(Expr_GeneralExpression) Expr_Exponential::Copy () const
36 return new Expr_Exponential(Expr::CopyShare(Operand()));
39 Standard_Boolean Expr_Exponential::IsIdentical (const Handle(Expr_GeneralExpression)& Other) const
41 if (Other->IsKind(STANDARD_TYPE(Expr_Exponential))) {
42 Handle(Expr_GeneralExpression) myexp = Operand();
43 return myexp->IsIdentical(Other->SubExpression(1));
45 return Standard_False;
48 Standard_Boolean Expr_Exponential::IsLinear () const
50 return !ContainsUnknowns();
53 Handle(Expr_GeneralExpression) Expr_Exponential::Derivative (const Handle(Expr_NamedUnknown)& X) const
56 return new Expr_NumericValue(0.0);
58 Handle(Expr_GeneralExpression) myexp = Operand();
59 Handle(Expr_GeneralExpression) myder = myexp->Derivative(X);
60 Handle(Expr_Product) resu = Expr::CopyShare(this) * myder;
61 return resu->ShallowSimplified();
64 Standard_Real Expr_Exponential::Evaluate(const Expr_Array1OfNamedUnknown& vars, const TColStd_Array1OfReal& vals) const
66 return ::Exp(Operand()->Evaluate(vars,vals));
69 TCollection_AsciiString Expr_Exponential::String() const
71 TCollection_AsciiString str("Exp(");
72 str += Operand()->String();