1 # -*- coding: iso-8859-1 -*-
2 # Copyright (C) 2007-2008 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
23 # =======================================
32 # Creer un cylindre avec un trou cylindrique excentre, decoupage en hexahedre et mailler.
44 g_cyl_demiHauteur = 3000
51 # Construire le cylindre
52 # ----------------------
54 c_point = MakeVertex(g_ox, g_oy, g_oz-g_cyl_demiHauteur)
55 c_dir = MakeVectorDXDYDZ(0, 0, 1)
56 c_hauteur = 2*g_cyl_demiHauteur
57 c_cylindre = MakeCylinder(c_point, c_dir, g_cyl_rayon, c_hauteur)
59 # Trouer le cylindre par un minuscule cylindre excentre
60 # -----------------------------------------------------
62 t_hauteur = g_cyl_demiHauteur
63 t_point = MakeVertex(g_ox-g_trou_centre, g_oy, g_oz-t_hauteur)
64 t_trou = MakeCylinder(t_point, c_dir, g_trou_rayon, 2*t_hauteur)
66 t_piece = MakeCut(c_cylindre, t_trou)
68 # Geometrie hexahedrique
69 # ======================
75 h_outils.append(MakePlane(t_point, MakeVectorDXDYDZ(1, 0, 0), g_trim))
76 h_outils.append(MakePlane(t_point, MakeVectorDXDYDZ(0, 1, 0), g_trim))
78 h_piece = MakePartition([t_piece], h_outils, [], [], ShapeType["SOLID"])
80 # Decouper pour les conditions locales
81 # ------------------------------------
86 l_hauteur = c_hauteur/l_n
89 l_outils.append(MakePlane(MakeVertex(g_ox, g_oy, g_oz-g_cyl_demiHauteur+l_i*l_hauteur), c_dir, g_trim))
92 piece = MakePartition([h_piece], l_outils, [], [], ShapeType["SOLID"])
94 # Ajouter la piece dans l'etude
95 # -----------------------------
97 piece_id = addToStudy(piece, "ex14_cyl1holed")
102 smesh.SetCurrentStudy(salome.myStudy)
104 # Creer un maillage hexahedrique
105 # ------------------------------
107 hexa = smesh.Mesh(piece, "ex14_cyl1holed:hexa")
109 algo = hexa.Segment()
110 algo.NumberOfSegments(4)
116 # Poser les hypotheses locales
117 # ----------------------------
122 m_d = [4, 6, 8, 10, 10, 9, 8, 7, 6, 5, 4, 3]
124 m_x = g_ox+g_cyl_rayon
126 m_z = g_oz-g_cyl_demiHauteur+m_h/2
129 m_p = MakeVertex(m_x, m_y, m_z + m_i*m_h)
130 m_e = GetEdgeNearPoint(piece, m_p)
131 m_a = hexa.Segment(m_e)
132 m_a.NumberOfSegments(m_d[m_i])
136 # Calculer le maillage
137 # --------------------