-- Created on: 1992-10-21
-- Created by: Laurent BUCHARD
-- Copyright (c) 1992-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and / or modify it
-- under the terms of the GNU Lesser General Public version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
generic class DistBetweenPCurvesGen from IntCurve (
TheCurve as any;
TheCurveTool as any) -- as CurveTool from IntCurve(TheCurve)
inherits FunctionSetWithDerivatives from math
---Purpose: provides a set of 2 function of 2 variables.
-- f1(u,v) = X1(u) - X2(v)
-- f2(u,v) = Y1(u) - Y2(v)
-- where (X1(u),Y1(u)) = ParamCurve1.Value(u)
-- and (X2(v),Y2(v)) = ParamCurve2.Value(v)
--
-- The Jacobian Matrix is :
--
-- | df1 df1 | | T1x(u) - T2x(v) |
-- | --- --- | = | |
-- | du dv | | T1y(u) - T2y(v) |
-- | |
-- | |
-- | df2 df2 |
-- | --- --- |
-- | du dv |
--
-- where T1(u) = (T1x(u),T1y(u)) is the tangent vector at
-- the curve1 at the parameter u.
-- and
-- T2(u) = (T2x(u),T2y(u)) is the tangent vector at
-- the curve2 at the parameter u.
---Level: Internal
uses Vector from math,
Matrix from math
is
Create(curve1: TheCurve;
curve2: TheCurve)
returns DistBetweenPCurvesGen;
NbVariables(me)
---Purpose: returns 2.
returns Integer from Standard
is static;
NbEquations(me)
---Purpose: returns 2.
returns Integer from Standard
is static;
Value(me: in out; X: Vector; F: out Vector)
---Purpose: computes the values of the Functions for the
-- variable .
-- returns True if the computation was done successfully,
-- False otherwise.
returns Boolean
is static;
Derivatives(me: in out; X: Vector; D: out Matrix)
---Purpose: returns the values of the derivatives for the
-- variable .
-- returns True if the computation was done successfully,
-- False otherwise.
returns Boolean
is static;
Values(me: in out; X: Vector; F: out Vector; D: out Matrix)
---Purpose: returns the values of the functions and the derivatives
-- for the variable .
-- returns True if the computation was done successfully,
-- False otherwise.
returns Boolean
is static;
fields
thecurve1 : Address from Standard; --- TheCurve;
thecurve2 : Address from Standard; --- TheCurve;
end DistBetweenPCurvesGen;