3###### FILE DESCRIPTION ##############
5# JOURNAL FILE FOR TEST BF420B of reference
6# R P Birkett CSDMC P71 AEA-RS-4168 Part 1
7# Hinkley Point B and Hunterston Geometry
8# External loading scenario
9# Created 14/5/2014 by Owen Booler AMEC
10# Last Modified 14/5/2014 by Owen Booler AMEC
12###### GEOMETRY##################
14# creating the 45 degree sector Hunterston B fuel brick Geometry
15create curve location 0 0 0 location 131.625 0 0
16create curve location 131.625 0 0 location 192.18 0 0
17create curve location 192.18 0 0 location 192.18 10.125 0
18create curve location 192.18 10.125 0 location 229.9 10.125 0
19create curve location 229.9 10.125 0 location 229.9 45.72995 0
20curve 1 copy rotate 45 about z
21create curve location at vertex 12 direction curve 6 length 60.555
22create curve location at vertex 14 direction 1 -1 0 length 16.475
23create curve location at vertex 16 direction 1 1 0 length 37.72
24create curve location at vertex 18 direction 1 -1 0 length 29.255
25create curve location at vertex 20 location at vertex 10
26create curve arc center vertex 11 12 2
29create surface curve 7 12 3 2 4 5 11 10 9 8
31# Projecting 45 degree sector to make a 25mm thick octant
32# change distance to vary the thickness units in mm
33sweep surface 1 direction z distance 25
35# Copy octant to create full 360 degree slice
36Volume 1 copy reflect y
37Volume 1 2 copy rotate 90 about z
38Volume 1 2 copy rotate 180 about z
39Volume 1 2 copy rotate 270 about z
42# Put fillets into keyway corners radius = 1.6
43modify curve 17 99 27 53 38 188 203 234 219 128 143 174 159 68 114 83 blend radius 1.6
46# Simulating crack from test BF420B from ref: R P Birkett CSDMC P71 AEA-RS-4168 Part 1
47# Initial crack size will be 5mm long spanning full thickness of the brick slice.
48create vertex on curve 277 279 midpoint
49create curve vertex 239 240
50create curve location at vertex 240 direction surface 105 length -5
51create curve location at vertex 239 direction surface 105 length -5
52create curve vertex 244 242
53create surface curve 307 308 309 310
54create cylinder height 25 radius 8
55move Volume 10 location vertex 239 include_merged
56move Volume 10 z 12.5 include_merged
57chop volume 1 with volume 10
58webcut volume 11 with plane surface 113
59# Delete surface defining crack plane
62#Creating Loading Keys (Interstitial)
63create curve location 0 0 0 location 0 138 0
64create curve location 0 138 0 location 138 138 0
65create curve location 138 138 0 location 138 101 0
66create curve location 0 0 0 location 37 0 0
67create curve location at vertex 272 direction 1 1 0 length 55.6777849
68create curve location at vertex 270 direction -1 -1 0 length 55.6777849
69create curve location at vertex 276 direction 1 -1 0 length 34
70create curve location at vertex 274 direction 1 -1 0 length 34
71create curve vertex 278 280
72Create surface curve 345 346 347 348 349 350 351 352 353
73sweep surface 137 perpendicular distance 100.3
74align Volume 14 surface 145 with surface 64
75align Volume 14 surface 144 with surface 124
76Volume 14 copy reflect y
77Volume 14 copy reflect x
78Volume 16 copy reflect y
80# Creating Cross head plate for loading
82align Volume 18 surface 184 with surface 159
83move Volume 18 General location between location surface 159 location surface 170 except x z include_merged
85# Creating extra vertices for loadpath
86create vertex on curve 453 midpoint
87create vertex on curve 457 midpoint
93###### MATERIAL PROPERTIES ########################
95## Graphite Brick Slice
96block 1 volume 11 12 13
97block 1 name "MAT_ELASTIC_Graphite"
98block 1 attribute count 10
99#Youngs Modulus E=10.9GPa
100#Applied Youngs Modulus = 10900*1e-4
101block 1 attribute index 1 1.09
103block 1 attribute index 2 0.2
105## Hardened steel keys
106block 2 volume 18 14 17 15 16
107block 2 name "MAT_ELASTIC_STEEL"
108block 2 attribute count 10
109#Youngs Modulus E=210GPa
110#Applied Youngs Modulus = 210000*1e-4
111block 2 attribute index 1 21
113block 2 attribute index 2 0.
115####### BOUNDARY CONDITIONS ######################
117Create Displacement name ' ' on surface 138 148 dof 1 dof 2 dof 3 fix 0
119####### LOADING SCENARIO ########################
121# BF420B Failed at a load of approximately 6200N
122# Apply load either by force or pressure Hash (#) out the commands that
125#Apply load as pressure P=F/A=6200/62400
126#Create Pressure on surface 186 magnitude 1
128#Apply load as a force Ff=6200N
129#create force on surface 186 force value 6.2e-4 direction x
131######## FRACTURE CONSTRAINTS ####################
133# Create Block Set to plot load vs dsplacement graphts
134#block 3 vertex 347 350 354 351 346 355
135#block 3 name 'LoadPath'
137# Creating Nodesets and Sidesets for fracture constraints
139## 101 - Vertices - Not crack
140#nodeset 101 vertex all
141#nodeset 101 vertex 257 258 259 260 remove
143## 100 - Bounding Edges - Not crack
144#sideset 100 curve all
145#sideset 100 curve 329 330 331 332 343 335 341 336 313 315 remove
146#sideset 100 curve 241 12 remove
148## 102 - Bounding Surfaces - Not crack
149#sideset 102 surface all
150#sideset 102 surface 127 130 134 11 remove
153#sideset 10200 surface 11
155## 200 - Crack Surface
156#sideset 200 surface 127
159#sideset 201 curve 329
164move surface 212 location surface 186 include_merged
166#create force on surface 214 force value -6.2e-4 direction x
167create force on surface 214 vector -0.00062 0 0 0 0 0 #added by zahur
170###### MESH DEFINITION ######################
171volume all scheme Tetmesh
174#ADJUST FOR THE NEW VERSION OF MESH CUTTING
175create sheet extended from surface 127
176move curve 544 midpoint location curve 329 include_merged
177surface 217 scale x 1 y 0.017 z 0.5 about vertex 257
179surface 217 size auto factor 4
180surface 217 scheme trimesh
182sideset 400 surface 217
183move surface 217 y 1 x 0.1 include_merged
187imprint volume 14 17 12 18 15 11 16
188merge volume 14 17 12 18 15 11 16
191block 5 vertex all in volume 14 12 16 18 17 15 11
192block 5 vertex 258 257 remove
193block 4 curve in volume 14 12 16 18 17 15 11
194block 4 curve 336 341 329 343 335 315 313 278 255 remove
198volume all scheme tetmesh
199volume 11 size auto factor 6
201volume 14 17 12 18 15 16 size auto factor 6.5
204###### SAVE MODEL ########################
206# Adapt this to the file and directory you wish to save
208save as "/Users/zahur/Desktop/Fracture/paper/brick_slice_test_paper.cub" overwrite
211###### END OF FILE #########################