-// File: SingularityAna_PolyStyle.cxx
-// Created: Fri Aug 23 11:00:24 1996
-// Author: Benoit TANNIOU
-// <bt1@sgi65>
+// Created on: 1996-08-23
+// Created by: Benoit TANNIOU
+// Copyright (c) 1996-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 License 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.
-#include <CSLib_NormalPolyDef.ixx>
+#include <CSLib_NormalPolyDef.hxx>
#include <PLib.hxx>
//=============================================================================
co=cos(X);
si=sin(X);
+ if(Abs(co) <= RealSmall() || Abs(si) <= RealSmall())
+ {
+ F = 0.;
+ return Standard_True;
+ }
for(Standard_Integer i=0;i<=myK0;i++){
F=F+PLib::Bin(myK0,i)*pow(co,i)*pow(si,(myK0-i))*myTABli(i);
}
Standard_Real co,si;
co=cos(X);
si=sin(X);
+ if(Abs(co) <= RealSmall() || Abs(si) <= RealSmall())
+ {
+ D = 0.;
+ return Standard_True;
+ }
for(Standard_Integer i=0;i<=myK0;i++){
D=D+PLib::Bin(myK0,i)*pow(co,(i-1))*pow(si,(myK0-i-1))*(myK0*co*co-i);
}
Standard_Real co,si;
co=cos(X);
si=sin(X);
+ if(Abs(co) <= RealSmall() || Abs(si) <= RealSmall())
+ {
+ F = 0.;
+ D = 0.;
+ return Standard_True;
+ }
for(Standard_Integer i=0;i<=myK0;i++){
F=F+PLib::Bin(myK0,i)*pow(co,i)*pow(si,(myK0-i))*myTABli(i);
D=D+PLib::Bin(myK0,i)*pow(co,(i-1))*