1 # CEA/LGLS 2004, Francis KLOSS (OCC)
2 # ==================================
13 # grid compound of 17 x 17 elements
14 # an element is compound of 3 cylinders concentriques
15 # an element is centered in a square of the grid
32 # The real value for CEA, but need 3 days for computing
41 s_boite = MakeBox(g_x-g_arete, g_y-g_hauteur, g_z-g_arete, g_x+g_arete, g_y+g_hauteur, g_z+g_arete)
44 s_hauteur = 2*g_hauteur
45 s_centre = MakeVertex(g_x, g_y-g_hauteur, g_z)
46 s_dir = MakeVectorDXDYDZ(0, 1, 0)
48 s_cyl0 = MakeCylinder(s_centre, s_dir, g_rayon3, s_hauteur)
49 s_cyl1 = MakeRotation(s_cyl0, s_dir, s_pi4)
51 s_blo1 = MakeCut(s_boite, s_cyl1)
53 s_cyl0 = MakeCylinder(s_centre, s_dir, g_rayon2, s_hauteur)
54 s_cyl2 = MakeRotation(s_cyl0, s_dir, s_pi4)
56 s_blo2 = MakeCut(s_cyl1, s_cyl2)
58 s_cyl0 = MakeCylinder(s_centre, s_dir, g_rayon1, s_hauteur)
59 s_cyl3 = MakeRotation(s_cyl0, s_dir, s_pi4)
61 s_blo3 = MakeCut(s_cyl2, s_cyl3)
65 s_blo4 = MakeBox(g_x-s_arete, g_y-g_hauteur, g_z-s_arete, g_x+s_arete, g_y+g_hauteur, g_z+s_arete)
67 s_blo5 = MakeCut(s_cyl3, s_blo4)
73 p_tools.append(MakePlane(s_centre, MakeVectorDXDYDZ( 1, 0, 1), g_trim))
74 p_tools.append(MakePlane(s_centre, MakeVectorDXDYDZ(-1, 0, 1), g_trim))
76 p_partie = MakePartition([s_blo1, s_blo2, s_blo3, s_blo5], p_tools, [], [], ShapeType["SOLID"])
81 c_cpd = SubShapeAll(p_partie, ShapeType["SOLID"])
84 c_element = MakeCompound(c_cpd)
89 piece = MakeMultiTranslation2D(c_element, MakeVectorDXDYDZ(1, 0, 0), 2*g_arete, g_grid,
90 MakeVectorDXDYDZ(0, 0, 1), 2*g_arete, g_grid)
95 piece_id = addToStudy(piece, "Grid17partition")
100 # Create hexahedrical mesh on piece
101 # ---------------------------------
103 m_hexa=MeshHexa(piece, 4, "Grid17partitionHexa")