FRAGMENT_CLEANUP
Solution control and techniques
Beta command
This command is in the beta stage and the format may change over time.
*FRAGMENT_CLEANUP
"Optional title"
coid
pid, $t_{clean}$, $m_{min}$, $W_{min}$
"Optional title"
coid
pid, $t_{clean}$, $m_{min}$, $W_{min}$
Parameter definition
Variable
Description
coid
Command ID
pid
Part ID
$t_{clean}$
Clean-up time
$m_{min}$
Minimum fragment mass
$W_{min}$
Minimum fragment kinetic energy
Description
This command is used to erode fragments with mass and kinetic energy below certain threshold levels. Both the mass and the energy criteria must be satisfied for the fragment elements to be eroded.
Note that the fragment flag fragment=1 in OUTPUT is required for this command to be active.
Example
Fragmenting pipe
A fragmenting pipe where the smallest fragments are removed from the model at time $t=90 \mu \mathrm{s}$.
*UNIT_SYSTEM
SI
#
# --- PARAMETER ---
#
*PARAMETER
fragment = 1, "Fragment output flag"
cid = 1, "Command ID"
pid = 1, "Part ID"
tclean = 90e-6, "Clean-up time"
mass = 0.001, "Fragment mass threshold"
wk = 10.0, "Fragment energy threshold"
#
# --- TIME ---
#
*TIME
1.0e-4
#
# --- OUTPUT ---
#
*OUTPUT
0, 0, 0, [%fragment]
#
# --- CLEANUP ---
#
*FRAGMENT_CLEANUP
"First test"
[%cid]
[%pid], [%tclean], [%mass], [%wk]
#
# --- MESH ---
#
*COMPONENT_PIPE
1, 1, 40, 60, 3
0, 0, -0.03, 0, 0, 0.03, 0.01, 0.015
*CHANGE_P-ORDER
P, 1, 3
*SMOOTH_MESH
P, 1, 45.0
#
# --- MATERIAL ---
#
*MAT_METAL
1, 7800.0, 210.0e9, 0.3, 1
1
*FUNCTION
1
5.0e8 + 5.0e8*epsp^0.3
*PROP_DAMAGE_CL
1, 4
1.5e9, 1.0e4
*INITIAL_DAMAGE_RANDOM
P, 1, 4.0e9, 2.0, 0.5
#
# --- PART ---
#
*PART
"Pipe"
1, 1, 0, 0, 0, 0, 3.0
#
# --- CONTACT ---
#
*CONTACT
1, 1
ALL, 0, ALL, 0
#
# --- VELOCITY ---
#
*INITIAL_VELOCITY
P, 1, fcn(33), fcn(44)
*FUNCTION
33
800 * x/sqrt(1.0e-9+x^2+y^2) * (1 - 500 * z^2)
*FUNCTION
44
800 * y/sqrt(1.0e-9+x^2+y^2) * (1 - 500 * z^2)
*END
