mirror of
https://github.com/JuliaFEM/JuliaFEM.jl.git
synced 2026-08-15 18:14:08 +00:00
Jukka Aho
ca7e2904cf
* Fix deprecation warnings from tests * Refactor tests so that ´@testset` is usually called in master file `runtests.jl`, not inside test file. Later on we can convert tests to examples. * Syntax of tests now follow more closely syntax used currently in JuliaFEM. We have had earlier studies with different kind of syntaxes, now we have kind of explicit way to do things.
145 lines
5.8 KiB
Julia
145 lines
5.8 KiB
Julia
# This file is a part of JuliaFEM.
|
|
# License is MIT: see https://github.com/JuliaFEM/JuliaFEM.jl/blob/master/LICENSE.md
|
|
|
|
using JuliaFEM, Statistics, Test
|
|
|
|
tet4_meshfile = "test_problems_contact_3d/tet4.inp"
|
|
tet10_meshfile = "test_problems_contact_3d/tet10.inp"
|
|
|
|
function get_model(meshfile)
|
|
mesh = abaqus_read_mesh(meshfile)
|
|
|
|
upper = Problem(Elasticity, "UPPER", 3)
|
|
upper_elements = create_elements(mesh, "UPPER")
|
|
update!(upper_elements, "youngs modulus", 3*288.0)
|
|
update!(upper_elements, "poissons ratio", 1/3)
|
|
add_elements!(upper, upper_elements)
|
|
|
|
lower = Problem(Elasticity, "LOWER", 3)
|
|
lower_elements = create_elements(mesh, "LOWER")
|
|
update!(lower_elements, "youngs modulus", 288.0)
|
|
update!(lower_elements, "poissons ratio", 1/3)
|
|
add_elements!(lower, lower_elements)
|
|
|
|
bc_upper = Problem(Dirichlet, "UPPER_TOP", 3, "displacement")
|
|
bc_upper_elements = create_surface_elements(mesh, "UPPER_TOP")
|
|
update!(bc_upper_elements, "displacement 3", -0.4)
|
|
add_elements!(bc_upper, bc_upper_elements)
|
|
|
|
bc_lower = Problem(Dirichlet, "LOWER_BOTTOM", 3, "displacement")
|
|
bc_lower_elements = create_surface_elements(mesh, "LOWER_BOTTOM")
|
|
update!(bc_lower_elements, "displacement 3", 0.0)
|
|
add_elements!(bc_lower, bc_lower_elements)
|
|
|
|
# point-wise boundary conditions to prevent free body move
|
|
nid1 = find_nearest_nodes(mesh, [0.0, 0.0, 0.0])[1]
|
|
nid2 = find_nearest_nodes(mesh, [1.0, 0.0, 0.0])[1]
|
|
nid3 = find_nearest_nodes(mesh, [0.0, 1.0, 0.0])[1]
|
|
nid4 = find_nearest_nodes(mesh, [0.0, 0.0, 1.0])[1]
|
|
nid5 = find_nearest_nodes(mesh, [1.0, 0.0, 1.0])[1]
|
|
nid6 = find_nearest_nodes(mesh, [0.0, 1.0, 1.0])[1]
|
|
|
|
bc_sym13 = Problem(Dirichlet, "SYM13", 3, "displacement")
|
|
# nodes in X2=0 plane
|
|
bc_sym13_elements = [Element(Poi1, [j]) for j in [nid1, nid2, nid4, nid5]]
|
|
update!(bc_sym13_elements, "geometry", mesh.nodes)
|
|
update!(bc_sym13_elements, "displacement 2", 0.0)
|
|
add_elements!(bc_sym13, bc_sym13_elements)
|
|
|
|
bc_sym23 = Problem(Dirichlet, "SYM23", 3, "displacement")
|
|
# nodes in X1=0 plane
|
|
bc_sym23_elements = [Element(Poi1, [j]) for j in [nid1, nid3, nid4, nid6]]
|
|
update!(bc_sym23_elements, "geometry", mesh.nodes)
|
|
update!(bc_sym23_elements, "displacement 1", 0.0)
|
|
add_elements!(bc_sym23, bc_sym23_elements)
|
|
|
|
interface = Problem(Contact, "LOWER_TO_UPPER", 3, "displacement")
|
|
interface_slave_elements = create_surface_elements(mesh, "LOWER_TO_UPPER")
|
|
interface_master_elements = create_surface_elements(mesh, "UPPER_TO_LOWER")
|
|
update!(interface_slave_elements, "master elements", interface_master_elements)
|
|
add_elements!(interface, interface_slave_elements, interface_master_elements)
|
|
interface.properties.contact_state_in_first_iteration = :AUTO
|
|
|
|
#append!(bc_sym13.assembly.removed_dofs, [1316, 1319, 1388, 1358])
|
|
#append!(bc_sym23.assembly.removed_dofs, [1492, 1627, 1387, 1597])
|
|
#append!(interface.assembly.removed_dofs, [1316, 1319, 1358, 1387, 1388, 1492, 1597, 1627])
|
|
|
|
analysis = Analysis(Nonlinear)
|
|
add_problems!(analysis, upper, lower, bc_upper, bc_lower, bc_sym13, bc_sym23, interface)
|
|
# solver.properties.max_iterations = 5
|
|
|
|
return analysis
|
|
end
|
|
|
|
## small sliding contact patch test, tet4 + standard basis
|
|
analysis = get_model(tet4_meshfile)
|
|
xdmf = Xdmf("contact_sl_lin_disp_results"; overwrite=true)
|
|
add_results_writer!(analysis, xdmf)
|
|
interface = get_problem(analysis, "LOWER_TO_UPPER")
|
|
interface.properties.dual_basis = false
|
|
run!(analysis)
|
|
u = interface("displacement", 0.0)
|
|
X = interface("geometry", 0.0)
|
|
# test postprocess of fields
|
|
postprocess!(interface, 0.0, Val{Symbol("contact pressure")})
|
|
contact_pressure = interface("contact pressure", 0.0)
|
|
@debug("Contact pressure in interface", contact_pressure)
|
|
u3 = [u[3] for u in values(u)]
|
|
maxabsu3 = maximum(abs.(u3))
|
|
stdabsu3 = std(abs.(u3))
|
|
maxpres = maximum(values(contact_pressure))
|
|
stdpres = std(values(contact_pressure))
|
|
@debug("max(abs(u3)) = $maxabsu3, std(abs(u3)) = $stdabsu3")
|
|
@debug("max(contact_pressure) = $maxpres, std(contact_pressure) = $stdpres")
|
|
@test isapprox(stdabsu3, 0.0; atol=1.0e-12)
|
|
@test isapprox(maxpres, 172.8; atol=1.0e-6)
|
|
|
|
|
|
## small sliding contact patch test, tet4 + dual basis
|
|
analysis = get_model(tet4_meshfile)
|
|
xdmf = Xdmf("contact_dl_lin_disp_results"; overwrite=true)
|
|
add_results_writer!(analysis, xdmf)
|
|
interface = get_problem(analysis, "LOWER_TO_UPPER")
|
|
interface.properties.dual_basis = true
|
|
run!(analysis)
|
|
u = interface("displacement", 0.0)
|
|
X = interface("geometry", 0.0)
|
|
u3 = [u[3] for u in values(u)]
|
|
maxabsu3 = maximum(abs.(u3))
|
|
stdabsu3 = std(abs.(u3))
|
|
@debug("max(abs(u3)) = $maxabsu3, std(abs(u3)) = $stdabsu3")
|
|
@test isapprox(stdabsu3, 0.0; atol=1.0e-12)
|
|
|
|
|
|
## small sliding contact patch test, tet10 + standard basis
|
|
analysis = get_model(tet10_meshfile)
|
|
xdmf = Xdmf("contact_sl_quad_disp_results"; overwrite=true)
|
|
add_results_writer!(analysis, xdmf)
|
|
interface = get_problem(analysis, "LOWER_TO_UPPER")
|
|
interface.properties.dual_basis = false
|
|
run!(analysis)
|
|
u = interface("displacement", 0.0)
|
|
X = interface("geometry", 0.0)
|
|
u3 = [u[3] for u in values(u)]
|
|
maxabsu3 = maximum(abs.(u3))
|
|
stdabsu3 = std(abs.(u3))
|
|
@debug("max(abs(u3)) = $maxabsu3, std(abs(u3)) = $stdabsu3")
|
|
@test isapprox(stdabsu3, 0.0; atol=1.0e-10)
|
|
|
|
|
|
## small sliding contact patch test, tet10 + dual basis, alpha=0.2
|
|
analysis = get_model(tet10_meshfile)
|
|
xdmf = Xdmf("contact_dl_quad_disp_results"; overwrite=true)
|
|
add_results_writer!(analysis, xdmf)
|
|
interface = get_problem(analysis, "LOWER_TO_UPPER")
|
|
interface.properties.dual_basis = true
|
|
interface.properties.alpha = 0.2
|
|
run!(analysis)
|
|
u = interface("displacement", 0.0)
|
|
X = interface("geometry", 0.0)
|
|
u3 = [u[3] for u in values(u)]
|
|
maxabsu3 = maximum(abs.(u3))
|
|
stdabsu3 = std(abs.(u3))
|
|
@debug("max(abs(u3)) = $maxabsu3, std(abs(u3)) = $stdabsu3")
|
|
@test isapprox(stdabsu3, 0.0; atol=1.0e-10)
|