src/FEmTool/FEmTool_LinearJerk.cdl

   1 -- Created on: 1997-09-18
   2 -- Created by: Philippe MANGIN
   3 -- Copyright (c) 1997-1999 Matra Datavision
   4 -- Copyright (c) 1999-2012 OPEN CASCADE SAS
   5 --
   6 -- The content of this file is subject to the Open CASCADE Technology Public
   7 -- License Version 6.5 (the "License"). You may not use the content of this file
   8 -- except in compliance with the License. Please obtain a copy of the License
   9 -- at http://www.opencascade.org and read it completely before using this file.
  10 --
  11 -- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
  12 -- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
  13 --
  14 -- The Original Code and all software distributed under the License is
  15 -- distributed on an "AS IS" basis, without warranty of any kind, and the
  16 -- Initial Developer hereby disclaims all such warranties, including without
  17 -- limitation, any warranties of merchantability, fitness for a particular
  18 -- purpose or non-infringement. Please see the License for the specific terms
  19 -- and conditions governing the rights and limitations under the License.
  20
  21
  22
  23 class LinearJerk from FEmTool inherits ElementaryCriterion from FEmTool
  24
  25         ---Purpose: Criterion of LinearFlexion To Hermit-Jacobi  elements
  26
  27 uses
  28    Vector  from  math,
  29    Matrix  from  math,
  30    Shape   from GeomAbs,
  31    HArray2OfReal  from  TColStd,
  32    HArray2OfInteger  from TColStd
  33
  34 raises
  35   NotImplemented,
  36   DomainError
  37
  38 is
  39     Create(WorkDegree      : Integer ;
  40            ConstraintOrder : Shape from GeomAbs)
  41     returns LinearJerk from FEmTool;
  42
  43     DependenceTable(me)
  44     returns  HArray2OfInteger  from TColStd
  45     is  redefined;
  46
  47     Value  (me  : mutable)
  48     returns  Real  is  redefined;
  49
  50     Hessian(me  :  mutable ;
  51             Dimension1  :  Integer;
  52             Dimension2  :  Integer;
  53             H  :  out  Matrix  from  math)
  54      raises  DomainError -- If DependenceTable(Dimension1,Dimension2) is False
  55      is  redefined;
  56
  57     Gradient(me  : mutable;
  58              Dimension  :  Integer;
  59              G  :  out  Vector  from  math)
  60     is redefined;
  61
  62 fields
  63 RefMatrix  :  Matrix  from  math;
  64 myOrder    :  Integer;
  65 end LinearJerk;
  66
  67
  68
  69
  70
  71
  72
  73
  74