src/Expr/Expr_GeneralExpression.cxx

   1 // Created on: 1991-03-06
   2 // Created by: Arnaud BOUZY
   3 // Copyright (c) 1991-1999 Matra Datavision
   4 // Copyright (c) 1999-2014 OPEN CASCADE SAS
   5 //
   6 // This file is part of Open CASCADE Technology software library.
   7 //
   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
  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.
  13 //
  14 // Alternatively, this file may be used under the terms of Open CASCADE
  15 // commercial license or contractual agreement.
  16
  17
  18 #include <Expr_GeneralExpression.hxx>
  19 #include <Expr_InvalidOperand.hxx>
  20 #include <Expr_NamedUnknown.hxx>
  21 #include <Expr_NotEvaluable.hxx>
  22 #include <Standard_NumericError.hxx>
  23 #include <Standard_OutOfRange.hxx>
  24 #include <Standard_Type.hxx>
  25 #include <TCollection_AsciiString.hxx>
  26
  27 IMPLEMENT_STANDARD_RTTIEXT(Expr_GeneralExpression,Standard_Transient)
  28
  29 Standard_Boolean Expr_GeneralExpression::IsShareable() const
  30  {
  31    return Standard_False;
  32  }
  33
  34  Handle(Expr_GeneralExpression) Expr_GeneralExpression::NDerivative (const Handle(Expr_NamedUnknown)& X, const Standard_Integer N) const
  35  {
  36    if (N <= 0) {
  37      throw Standard_OutOfRange();
  38    }
  39    Handle(Expr_GeneralExpression) first = Derivative(X);
  40    if (N > 1) {
  41      return first->NDerivative(X,N-1);
  42    }
  43    return first;
  44  }
  45
  46
  47  Standard_Real Expr_GeneralExpression::EvaluateNumeric() const
  48  {
  49    if (ContainsUnknowns()) {
  50      throw Expr_NotEvaluable();
  51    }
  52    Expr_Array1OfNamedUnknown tabvr(1,1);
  53    TColStd_Array1OfReal tabvl(1,1);
  54    return Evaluate(tabvr,tabvl);
  55  }