1 # Copyright (C) 2005 OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
2 # CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
4 # This library is free software; you can redistribute it and/or
5 # modify it under the terms of the GNU Lesser General Public
6 # License as published by the Free Software Foundation; either
7 # version 2.1 of the License.
9 # This library is distributed in the hope that it will be useful,
10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 # Lesser General Public License for more details.
14 # You should have received a copy of the GNU Lesser General Public
15 # License along with this library; if not, write to the Free Software
16 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
18 # See http://www.salome-platform.org/
20 # CEA/LGLS 2004-2005, Francis KLOSS (OCC)
21 # =======================================
30 # Creer un cylindre avec un trou cylindrique excentre, decoupage en hexahedre et mailler.
42 g_cyl_demiHauteur = 3000
49 # Construire le cylindre
50 # ----------------------
52 c_point = MakeVertex(g_ox, g_oy, g_oz-g_cyl_demiHauteur)
53 c_dir = MakeVectorDXDYDZ(0, 0, 1)
54 c_hauteur = 2*g_cyl_demiHauteur
55 c_cylindre = MakeCylinder(c_point, c_dir, g_cyl_rayon, c_hauteur)
57 # Trouer le cylindre par un minuscule cylindre excentre
58 # -----------------------------------------------------
60 t_hauteur = g_cyl_demiHauteur
61 t_point = MakeVertex(g_ox-g_trou_centre, g_oy, g_oz-t_hauteur)
62 t_trou = MakeCylinder(t_point, c_dir, g_trou_rayon, 2*t_hauteur)
64 t_piece = MakeCut(c_cylindre, t_trou)
66 # Geometrie hexahedrique
67 # ======================
73 h_outils.append(MakePlane(t_point, MakeVectorDXDYDZ(1, 0, 0), g_trim))
74 h_outils.append(MakePlane(t_point, MakeVectorDXDYDZ(0, 1, 0), g_trim))
76 h_piece = MakePartition([t_piece], h_outils, [], [], ShapeType["SOLID"])
78 # Decouper pour les conditions locales
79 # ------------------------------------
84 l_hauteur = c_hauteur/l_n
87 l_outils.append(MakePlane(MakeVertex(g_ox, g_oy, g_oz-g_cyl_demiHauteur+l_i*l_hauteur), c_dir, g_trim))
90 piece = MakePartition([h_piece], l_outils, [], [], ShapeType["SOLID"])
92 # Ajouter la piece dans l'etude
93 # -----------------------------
95 piece_id = addToStudy(piece, "ex14_cyl1holed")
100 # Creer un maillage hexahedrique
101 # ------------------------------
103 hexa = smesh.Mesh(piece, "ex14_cyl1holed:hexa")
105 algo = hexa.Segment()
106 algo.NumberOfSegments(4)
112 # Poser les hypotheses locales
113 # ----------------------------
118 m_d = [4, 6, 8, 10, 10, 9, 8, 7, 6, 5, 4, 3]
120 m_x = g_ox+g_cyl_rayon
122 m_z = g_oz-g_cyl_demiHauteur+m_h/2
125 m_p = MakeVertex(m_x, m_y, m_z + m_i*m_h)
126 m_e = GetEdgeNearPoint(piece, m_p)
127 m_a = hexa.Segment(m_e)
128 m_a.NumberOfSegments(m_d[m_i])
132 # Calculer le maillage
133 # --------------------