0022904: Clean up sccsid variables
[occt.git] / src / Expr / Expr_LogOfe.cxx
1 // Copyright:   Matra-Datavision 1991
2 // File:        Expr_LogOfe.cxx
3 // Created:     Tue May 28 12:33:48 1991
4 // Author:      Arnaud BOUZY
5 //              <adn>
6
7 #include <Expr_LogOfe.ixx>
8 #include <Expr_NumericValue.hxx>
9 #include <Expr_Division.hxx>
10 #include <Expr_Exponential.hxx>
11 #include <Expr_Operators.hxx>
12 #include <Expr.hxx>
13
14 Expr_LogOfe::Expr_LogOfe(const Handle(Expr_GeneralExpression)& exp)
15 {
16   CreateOperand(exp);
17 }
18
19 Handle(Expr_GeneralExpression) Expr_LogOfe::ShallowSimplified () const
20 {
21   Handle(Expr_GeneralExpression) myexp = Operand();
22   if (myexp->IsKind(STANDARD_TYPE(Expr_NumericValue))) {
23     Handle(Expr_NumericValue) myNVexp = Handle(Expr_NumericValue)::DownCast(myexp);
24     return new Expr_NumericValue(Log(myNVexp->GetValue()));
25   }
26   if (myexp->IsKind(STANDARD_TYPE(Expr_Exponential))) {
27     return myexp->SubExpression(1);
28   }
29   Handle(Expr_LogOfe) me = this;
30   return me;
31 }
32
33 Handle(Expr_GeneralExpression) Expr_LogOfe::Copy () const
34 {
35   return new Expr_LogOfe(Expr::CopyShare(Operand()));
36 }
37
38 Standard_Boolean Expr_LogOfe::IsIdentical (const Handle(Expr_GeneralExpression)& Other) const
39 {
40   if (Other->IsKind(STANDARD_TYPE(Expr_LogOfe))) {
41     Handle(Expr_GeneralExpression) myexp = Operand();
42     return myexp->IsIdentical(Other->SubExpression(1));
43   }
44   return Standard_False;
45 }
46
47 Standard_Boolean Expr_LogOfe::IsLinear () const
48 {
49   return !ContainsUnknowns();
50 }
51
52 Handle(Expr_GeneralExpression) Expr_LogOfe::Derivative (const Handle(Expr_NamedUnknown)& X) const
53 {
54   if (!Contains(X)) {
55     return new Expr_NumericValue(0.0);
56   }
57   Handle(Expr_GeneralExpression) myexp = Operand();
58   Handle(Expr_GeneralExpression) myder = myexp->Derivative(X);
59   Handle(Expr_Division) thediv = myder / Expr::CopyShare(myexp);
60   return thediv->ShallowSimplified();
61 }
62
63 Standard_Real Expr_LogOfe::Evaluate(const Expr_Array1OfNamedUnknown& vars, const TColStd_Array1OfReal& vals) const
64 {
65   return ::Log(Operand()->Evaluate(vars,vals));
66 }
67
68 TCollection_AsciiString Expr_LogOfe::String() const
69 {
70   TCollection_AsciiString str("Ln(");
71   str += Operand()->String();
72   str += ")";
73   return str;
74 }