1 # -*- coding: iso-8859-1 -*-
2 # Copyright (C) 2007-2013 CEA/DEN, EDF R&D, OPEN CASCADE
4 # Copyright (C) 2003-2007 OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
5 # CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
7 # This library is free software; you can redistribute it and/or
8 # modify it under the terms of the GNU Lesser General Public
9 # License as published by the Free Software Foundation; either
10 # version 2.1 of the License.
12 # This library is distributed in the hope that it will be useful,
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 # Lesser General Public License for more details.
17 # You should have received a copy of the GNU Lesser General Public
18 # License along with this library; if not, write to the Free Software
19 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
21 # See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
24 # =======================================
33 # Creer un cylindre avec un trou cylindrique excentre, decoupage en hexahedre et mailler.
45 g_cyl_demiHauteur = 3000
52 # Construire le cylindre
53 # ----------------------
55 c_point = MakeVertex(g_ox, g_oy, g_oz-g_cyl_demiHauteur)
56 c_dir = MakeVectorDXDYDZ(0, 0, 1)
57 c_hauteur = 2*g_cyl_demiHauteur
58 c_cylindre = MakeCylinder(c_point, c_dir, g_cyl_rayon, c_hauteur)
60 # Trouer le cylindre par un minuscule cylindre excentre
61 # -----------------------------------------------------
63 t_hauteur = g_cyl_demiHauteur
64 t_point = MakeVertex(g_ox-g_trou_centre, g_oy, g_oz-t_hauteur)
65 t_trou = MakeCylinder(t_point, c_dir, g_trou_rayon, 2*t_hauteur)
67 t_piece = MakeCut(c_cylindre, t_trou)
69 # Geometrie hexahedrique
70 # ======================
76 h_outils.append(MakePlane(t_point, MakeVectorDXDYDZ(1, 0, 0), g_trim))
77 h_outils.append(MakePlane(t_point, MakeVectorDXDYDZ(0, 1, 0), g_trim))
79 h_piece = MakePartition([t_piece], h_outils, [], [], ShapeType["SOLID"])
81 # Decouper pour les conditions locales
82 # ------------------------------------
87 l_hauteur = c_hauteur/l_n
90 l_outils.append(MakePlane(MakeVertex(g_ox, g_oy, g_oz-g_cyl_demiHauteur+l_i*l_hauteur), c_dir, g_trim))
93 piece = MakePartition([h_piece], l_outils, [], [], ShapeType["SOLID"])
95 # Ajouter la piece dans l'etude
96 # -----------------------------
98 piece_id = addToStudy(piece, "ex14_cyl1holed")
103 smesh.SetCurrentStudy(salome.myStudy)
105 # Creer un maillage hexahedrique
106 # ------------------------------
108 hexa = smesh.Mesh(piece, "ex14_cyl1holed:hexa")
110 algo = hexa.Segment()
111 algo.NumberOfSegments(4)
117 # Poser les hypotheses locales
118 # ----------------------------
123 m_d = [4, 6, 8, 10, 10, 9, 8, 7, 6, 5, 4, 3]
125 m_x = g_ox+g_cyl_rayon
127 m_z = g_oz-g_cyl_demiHauteur+m_h/2
130 m_p = MakeVertex(m_x, m_y, m_z + m_i*m_h)
131 m_e = GetEdgeNearPoint(piece, m_p)
132 m_a = hexa.Segment(m_e)
133 m_a.NumberOfSegments(m_d[m_i])
137 # Calculer le maillage
138 # --------------------