0023024: Update headers of OCCT files
[occt.git] / src / AppParCurves / AppParCurves_Gradient_BFGS.gxx
1 // Created on: 1999-12-16
2 // Created by: Atelier CAS2000
3 // Copyright (c) 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 // Redefinition de math_BFGS:
24 // ==========================
25
26
27 AppParCurves_Gradient_BFGS::AppParCurves_Gradient_BFGS(math_MultipleVarFunctionWithGradient& F,
28                                                        const math_Vector& StartingPoint,
29                                                        const Standard_Real Tolerance3d,
30                                                        const Standard_Real Tolerance2d,
31                                                        const Standard_Real Eps,
32                                                        const Standard_Integer NbIterations ):
33        math_BFGS(F, Eps, NbIterations, Eps),
34        myTol3d(Tolerance3d),
35        myTol2d(Tolerance2d) 
36 {
37   Perform(F, StartingPoint);
38 }
39
40 Standard_Boolean AppParCurves_Gradient_BFGS::IsSolutionReached(math_MultipleVarFunctionWithGradient& F) const 
41 {
42     AppParCurves_ParFunction *F1 = (AppParCurves_ParFunction*) &F;
43     Standard_Boolean Result, Result2;
44
45     Result = (2.0 * fabs(TheMinimum - PreviousMinimum) <= 
46         1.e-10 * (fabs(TheMinimum) + fabs(PreviousMinimum))+1.e-12);
47     Standard_Real MErr3d = F1->MaxError3d();
48     Standard_Real MErr2d = F1->MaxError2d();
49     
50     Result2 = ((MErr3d <= myTol3d) && (MErr2d <= myTol2d));
51     return (Result || Result2);
52   }
53
54