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