1 // Copyright (C) 2007-2016 CEA/DEN, EDF R&D, OPEN CASCADE
3 // Copyright (C) 2003-2007 OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
4 // CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
6 // This library is free software; you can redistribute it and/or
7 // modify it under the terms of the GNU Lesser General Public
8 // License as published by the Free Software Foundation; either
9 // version 2.1 of the License, or (at your option) any later version.
11 // This library is distributed in the hope that it will be useful,
12 // but WITHOUT ANY WARRANTY; without even the implied warranty of
13 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 // Lesser General Public License for more details.
16 // You should have received a copy of the GNU Lesser General Public
17 // License along with this library; if not, write to the Free Software
18 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
20 // See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
23 // SMESH SMESH : implementaion of SMESH idl descriptions
24 // File : StdMeshers_AutomaticLength.cxx
25 // Author : Edward AGAPOV, OCC
28 #include "StdMeshers_AutomaticLength.hxx"
30 #include "SMESH_Mesh.hxx"
31 #include "SMESHDS_Mesh.hxx"
32 #include "SMESH_Algo.hxx"
33 #include "SMESHDS_SubMesh.hxx"
35 #include "utilities.h"
37 #include <TopTools_IndexedMapOfShape.hxx>
40 #include <TopoDS_Edge.hxx>
44 //=============================================================================
48 //=============================================================================
50 StdMeshers_AutomaticLength::StdMeshers_AutomaticLength(int hypId, int studyId, SMESH_Gen * gen)
51 :SMESH_Hypothesis(hypId, studyId, gen)
53 _name = "AutomaticLength";
54 _param_algo_dim = 1; // is used by SMESH_Regular_1D
60 //=============================================================================
64 //=============================================================================
66 StdMeshers_AutomaticLength::~StdMeshers_AutomaticLength()
70 //================================================================================
73 * \param theFineness - The Fineness value [0.0-1.0],
77 * Raise if theFineness is out of range
78 * The "Initial Number of Elements on the Shortest Edge" (S0)
79 * is divided by (0.5 + 4.5 x theFineness)
81 //================================================================================
83 const double theCoarseConst = 0.5;
84 const double theFineConst = 4.5;
86 void StdMeshers_AutomaticLength::SetFineness(double theFineness)
87 throw(SALOME_Exception)
89 if ( theFineness < 0.0 || theFineness > 1.0 )
90 throw SALOME_Exception(LOCALIZED("theFineness is out of range [0.0-1.0]"));
92 if ( _fineness != theFineness )
94 NotifySubMeshesHypothesisModification();
95 _fineness = theFineness;
101 //================================================================================
103 * \brief Return pointer to TopoDS_TShape
104 * \param theShape - The TopoDS_Shape
105 * \retval inline const TopoDS_TShape* - result
107 //================================================================================
109 inline const TopoDS_TShape* getTShape(const TopoDS_Shape& theShape)
111 return theShape.TShape().operator->();
114 //================================================================================
116 * \brief computes segment length by S0 and edge length
118 //================================================================================
120 const double a14divPI = 14. / M_PI;
123 inline double segLength(double S0, double edgeLen, double minLen )
126 // S = S0 * f(L/Lmin) where f(x) = 1 + (2/Pi * 7 * atan(x/5) )
129 // S = S0 * ( 1 + 14/PI * atan( L / ( 5 * Lmin )))
130 return S0 * ( 1. + a14divPI * atan( edgeLen / ( 5 * minLen )));
133 //const double a14divPI = 14. / M_PI;
134 const double a2div7divPI = 2. / 7. / M_PI;
136 inline double segLength(double S0, double edgeLen, double minLen )
139 // S = S0 * f(L/Lmin) where
140 // f(x) = 1 + (7 * 2/Pi * atan(x/5))
142 // S = S0 * ( 1 + 14/PI * atan( L / ( 5 * Lmin )))
144 // return S0 * ( 1. + a14divPI * atan( edgeLen / ( 5 * minLen )));
146 // The above formular gives too short segments when Lmax/Lmin is too high
147 // because by this formular the largest segment is only 8 times longer than the
148 // shortest one ( 2/Pi * atan(x/5) varies within [0,1] ). So a new formular is:
150 // f(x) = 1 + (x/7 * 2/Pi * atan(x/5))
152 // S = S0 * ( 1 + 2/7/PI * L/Lmin * atan( 5 * L/Lmin ))
154 const double Lratio = edgeLen / minLen;
155 return S0 * ( 1. + a2div7divPI * Lratio * atan( 5 * Lratio ));
158 //================================================================================
160 * \brief Compute segment length for all edges
161 * \param theMesh - The mesh
162 * \param theTShapeToLengthMap - The map of edge to segment length
164 //================================================================================
166 void computeLengths( SMESHDS_Mesh* aMesh,
167 map<const TopoDS_TShape*, double> & theTShapeToLengthMap,
171 theTShapeToLengthMap.clear();
173 TopoDS_Shape aMainShape = aMesh->ShapeToMesh();
175 // Find length of longest and shortest edge
176 double Lmin = DBL_MAX, Lmax = -DBL_MAX;
177 TopTools_IndexedMapOfShape edgeMap;
178 TopExp::MapShapes( aMainShape, TopAbs_EDGE, edgeMap);
179 for ( int i = 1; i <= edgeMap.Extent(); ++i )
181 TopoDS_Edge edge = TopoDS::Edge( edgeMap(i) );
182 //if ( BRep_Tool::Degenerated( edge )) continue;
184 Standard_Real L = SMESH_Algo::EdgeLength( edge );
185 if ( L < DBL_MIN ) continue;
187 if ( L > Lmax ) Lmax = L;
188 if ( L < Lmin ) Lmin = L;
190 // remember i-th edge length
191 theTShapeToLengthMap.insert( make_pair( getTShape( edge ), L ));
194 // Compute S0 - minimal segment length, is computed by the shortest EDGE
196 /* image attached to PAL10237
198 NbSeg (on the shortest EDGE)
210 const int NbSegMin = 5, NbSegMax = 10; // on axis NbSeg
211 const double Lrat1 = 1., Lrat2 = 10.; // on axis Lmax/Lmin
213 double Lratio = Lmax/Lmin;
214 double NbSeg = NbSegMin;
215 if ( Lratio < Lrat2 )
216 NbSeg += ( Lrat2 - Lratio ) / ( Lrat2 - Lrat1 ) * ( NbSegMax - NbSegMin );
218 double S0 = Lmin / (int) NbSeg;
219 //MESSAGE( "S0 = " << S0 << ", Lmin = " << Lmin << ", Nbseg = " << (int) NbSeg);
221 // Compute segments length for all edges
223 map<const TopoDS_TShape*, double>::iterator tshape_length = theTShapeToLengthMap.begin();
224 for ( ; tshape_length != theTShapeToLengthMap.end(); ++tshape_length )
226 double & L = tshape_length->second;
227 L = segLength( S0, L, Lmin );
234 //=============================================================================
236 * \brief Computes segment length for an edge of given length
238 //=============================================================================
240 double StdMeshers_AutomaticLength::GetLength(const SMESH_Mesh* theMesh,
241 const double theEdgeLength)
242 throw(SALOME_Exception)
244 if ( !theMesh ) throw SALOME_Exception(LOCALIZED("NULL Mesh"));
246 SMESHDS_Mesh* aMeshDS = const_cast< SMESH_Mesh* > ( theMesh )->GetMeshDS();
247 if ( theMesh != _mesh )
249 computeLengths( aMeshDS, _TShapeToLength, _S0, _minLen );
252 double L = segLength( _S0, theEdgeLength, _minLen );
253 return L / (theCoarseConst + theFineConst * _fineness);
256 //=============================================================================
260 //=============================================================================
262 double StdMeshers_AutomaticLength::GetLength(const SMESH_Mesh* theMesh,
263 const TopoDS_Shape& anEdge)
264 throw(SALOME_Exception)
266 if ( !theMesh ) throw SALOME_Exception(LOCALIZED("NULL Mesh"));
268 if ( anEdge.IsNull() || anEdge.ShapeType() != TopAbs_EDGE )
269 throw SALOME_Exception(LOCALIZED("Bad edge shape"));
271 if ( theMesh != _mesh )
273 SMESHDS_Mesh* aMeshDS = const_cast< SMESH_Mesh* > ( theMesh )->GetMeshDS();
274 computeLengths( aMeshDS, _TShapeToLength, _S0, _minLen );
278 map<const TopoDS_TShape*, double>::iterator tshape_length =
279 _TShapeToLength.find( getTShape( anEdge ));
281 if ( tshape_length == _TShapeToLength.end() )
282 return 1; // it is a dgenerated edge
284 return tshape_length->second / (theCoarseConst + theFineConst * _fineness);
287 //=============================================================================
291 //=============================================================================
293 ostream & StdMeshers_AutomaticLength::SaveTo(ostream & save)
299 //=============================================================================
303 //=============================================================================
305 istream & StdMeshers_AutomaticLength::LoadFrom(istream & load)
307 if ( ! ( load >> _fineness ))
308 load.clear(ios::badbit | load.rdstate());
312 //=============================================================================
316 //=============================================================================
318 ostream & operator <<(ostream & save, StdMeshers_AutomaticLength & hyp)
320 return hyp.SaveTo( save );
323 //=============================================================================
327 //=============================================================================
329 istream & operator >>(istream & load, StdMeshers_AutomaticLength & hyp)
331 return hyp.LoadFrom( load );
334 //================================================================================
336 * \brief Initialize Fineness by the mesh built on the geometry
337 * \param theMesh - the built mesh
338 * \param theShape - the geometry of interest
339 * \retval bool - true if parameter values have been successfully defined
341 //================================================================================
343 bool StdMeshers_AutomaticLength::SetParametersByMesh(const SMESH_Mesh* theMesh,
344 const TopoDS_Shape& theShape)
346 if ( !theMesh || theShape.IsNull() )
351 SMESHDS_Mesh* aMeshDS = const_cast< SMESH_Mesh* >( theMesh )->GetMeshDS();
354 TopTools_IndexedMapOfShape edgeMap;
355 TopExp::MapShapes( theShape, TopAbs_EDGE, edgeMap );
356 for ( int i = 1; i <= edgeMap.Extent(); ++i )
358 const TopoDS_Edge& edge = TopoDS::Edge( edgeMap( i ));
360 // assure the base automatic length is stored in _TShapeToLength
362 GetLength( theMesh, edge );
364 // get current segment length
365 double L = SMESH_Algo::EdgeLength( edge );
368 SMESHDS_SubMesh * eSubMesh = aMeshDS->MeshElements( edge );
371 int nbSeg = eSubMesh->NbElements();
374 double segLen = L / nbSeg;
376 // get segment length from _TShapeToLength
377 map<const TopoDS_TShape*, double>::iterator tshape_length =
378 _TShapeToLength.find( getTShape( edge ));
379 if ( tshape_length == _TShapeToLength.end() )
381 double autoLen = tshape_length->second;
383 // segLen = autoLen / (theCoarseConst + theFineConst * _fineness) -->
384 _fineness += ( autoLen / segLen - theCoarseConst ) / theFineConst;
389 _fineness /= nbEdges;
393 else if (_fineness < 0.0)
399 //================================================================================
401 * \brief Initialize my parameter values by default parameters.
402 * \retval bool - true if parameter values have been successfully defined
404 //================================================================================
406 bool StdMeshers_AutomaticLength::SetParametersByDefaults(const TDefaults& /*theDflts*/,
407 const SMESH_Mesh* /*theMesh*/)
411 // assure the base automatic length is stored in _TShapeToLength
412 // GetLength( theMesh, elemLenght );
414 // // find maximal edge length
415 // double maxLen = 0;
416 // map<const TopoDS_TShape*, double>::iterator
417 // tshape_length = _TShapeToLength.begin(), slEnd = _TShapeToLength.end();
418 // for ( ; tshape_length != slEnd; ++tshape_length )
419 // if ( tshape_length->second > maxLen )
420 // maxLen = tshape_length->second;
422 // // automatic length for longest element
423 // double autoLen = GetLength( theMesh, maxLen );
425 // // elemLenght = autoLen / (theCoarseConst + theFineConst * _fineness) -->
426 // _fineness = ( autoLen / elemLenght - theCoarseConst ) / theFineConst;