src/Bisector/Bisector_FunctionInter.cdl

   1 -- File:        Bisector_FunctionInter.cdl
   2 -- Created:     Tue Apr  5 14:05:05 1994
   3 -- Author:      Yves FRICAUD
   4 --              <yfr@phylox>
   5 ---Copyright:    Matra Datavision 1994
   6
   7
   8 private class FunctionInter from Bisector
   9 inherits FunctionWithDerivative from math
  10
  11         ---Purpose:                           2                      2
  12         --          F(u) =  (PC(u) - PBis1(u))   + (PC(u) - PBis2(u))
  13
  14 uses
  15     Curve   from Geom2d,
  16     Curve   from Bisector
  17         --
  18
  19 is
  20
  21     Create  returns FunctionInter from Bisector;
  22
  23     Create (C     : Curve   from Geom2d ;
  24             Bis1  : Curve   from Bisector;
  25             Bis2  : Curve   from Bisector)
  26     returns FunctionInter from Bisector;
  27
  28     Perform (me    : in out;
  29              C     : Curve   from Geom2d ;
  30              Bis1  : Curve   from Bisector;
  31              Bis2  : Curve   from Bisector)
  32     is static;
  33
  34     Value(me : in out; X : Real; F : out Real)
  35         ---Purpose: Computes the values of the Functions for the variable <X>.
  36     returns Boolean
  37     is static;
  38
  39     Derivative(me : in out; X : Real; D : out Real)
  40     returns Boolean;
  41
  42     Values(me : in out ; X  : Real; F  : out Real; D  : out Real)
  43         ---Purpose: Returns the values of the functions and the derivatives
  44         --          for the variable <X>.
  45     returns Boolean
  46     is static;
  47
  48 fields
  49
  50     curve     : Curve from Geom2d;
  51     bisector1 : Curve from Bisector;
  52     bisector2 : Curve from Bisector;
  53
  54 end FunctionInter;