v0.14.0
brick_slice_thermal.jou
Go to the documentation of this file.
1 reset
2 
3 create Cylinder height 40 radius 260
4 create Cylinder height 40 radius 131.50
5 subtract volume 2 from volume 1
6 brick x 460 y 460 z 765
7 intersect volume all
8 Compress Ids All
9 rotate Volume 1 angle 22.5 about Z include_merged
10 brick x 460 y 460 z 765
11 intersect volume all
12 Compress Ids All
13 rotate Volume 1 angle 22.5 about Z include_merged
14 brick x 460 y 460 z 765
15 intersect volume all
16 Compress Ids All
17 rotate Volume 1 angle 22.5 about Z include_merged
18 brick x 460 y 460 z 765
19 intersect volume all
20 Compress Ids All
21 
22 #bigkeyways
23 brick x 32.85 y 38 z 765
24 align Volume 2 surface 24 with surface 18
25 Volume 2 copy rotate 90 about z
26 Volume 3 copy rotate 90 about z
27 Volume 4 copy rotate 90 about z
28 subtract volume 2 3 4 5 from volume 1
29 Compress Ids All
30 
31 #crack
32 create Cylinder height 80 radius 10
33 move Volume 2 midpoint location curve 90 include_merged
34 chop volume 1 with volume 2
35 webcut volume 3 with plane surface 42
36 
37 #Merge Volumes
38 imprint volume all
39 merge volume all
40 
41 #material
42 block 1 volume all
43 block 1 name 'MAT_ELASTIC'
44 block 1 attribute count 2
45 block 1 attribute index 1 10.0
46 block 1 attribute index 2 0.3
47 
48 #disp bcs
49 create Displacement on vertex 47 dof 1 dof 2 dof 3 fix 0
50 create Displacement on vertex 36 dof 2 dof 3 fix 0
51 create Displacement on vertex 36 dof 2 fix 0
52 
53 #Create nodesets and sidesets for fracture constraints
54 #Boundary edges
55 sideset 100 curve all
56 sideset 100 curve 120 125 117 121 118 123 119 104 102 remove
57 
58 #Boundary vertices
59 nodeset 101 vertex all
60 nodeset 101 vertex 77 70 71 72 69 78 vertex remove
61 
62 #Boundary surfaces
63 sideset 102 surface all
64 sideset 102 surface 54 50 49 remove
65 
66 #Crack surface
67 sideset 200 surface 49
68 
69 #Crack front
70 sideset 201 curve 118
71 
72 #!Meshing
73 volume all scheme tetmesh
74 volume all size auto factor 5
75 
76 #!Mesh All
77 mesh volume all
78 
79 
80 save as "/Users/likask/MyBuild/mofem-bitbucket/mofem/meshes/brick_slice_thermal.cub" overwrite