mirror of
https://github.com/JuliaFEM/JuliaFEM.jl.git
synced 2026-09-19 09:54:55 +00:00
Jukka Aho
5ac771480e
Heat transfer analysis is moved to its own package where the development continues. Two small modifications are needed for test files: - Instead of `problem.properties.formulation`, we have two separate problems, `PlaneHeat` for two-dimensional problems and `Heat` for three-dimensional problems. - Unnecessary prefixing of field names is changed. For example, now we simply have only "thermal conductivity" and not prefixed "temperature thermal conductivity".
461 lines
20 KiB
Julia
461 lines
20 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
|
|
using JuliaFEM.Preprocess
|
|
using JuliaFEM.Postprocess
|
|
using JuliaFEM.Testing
|
|
|
|
### temperature patch tests, sl tet4, dl tet4, sl tet10, dl tet 10
|
|
|
|
tet4_meshfile = "test_problems_mortar_3d/tet4.inp"
|
|
tet10_meshfile = "test_problems_mortar_3d/tet10.inp"
|
|
|
|
@testset "patch test temperature + abaqus inp + tet4" begin
|
|
mesh = abaqus_read_mesh(tet4_meshfile)
|
|
|
|
upper = Problem(Heat, "UPPER", 1)
|
|
upper.elements = create_elements(mesh, "UPPER")
|
|
update!(upper, "thermal conductivity", 1.0)
|
|
|
|
lower = Problem(Heat, "LOWER", 1)
|
|
lower.elements = create_elements(mesh, "LOWER")
|
|
update!(lower, "thermal conductivity", 1.0)
|
|
|
|
bc_upper = Problem(Dirichlet, "UPPER_TOP", 1, "temperature")
|
|
bc_upper.elements = create_surface_elements(mesh, "UPPER_TOP")
|
|
update!(bc_upper, "temperature 1", 0.0)
|
|
|
|
bc_lower = Problem(Dirichlet, "LOWER_BOTTOM", 1, "temperature")
|
|
bc_lower.elements = create_surface_elements(mesh, "LOWER_BOTTOM")
|
|
update!(bc_lower, "temperature 1", 1.0)
|
|
|
|
interface = Problem(Mortar, "interface between upper and lower block", 1, "temperature")
|
|
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)
|
|
interface.elements = [interface_master_elements; interface_slave_elements]
|
|
|
|
JuliaFEM.diagnose_interface(interface, 0.0)
|
|
solver = LinearSolver(upper, lower, bc_upper, bc_lower, interface)
|
|
add_results_writer!(solver, Xdmf("sl_lin_temp_results"; overwrite=true))
|
|
|
|
solver()
|
|
|
|
node_ids, temperature = get_nodal_vector(interface.elements, "temperature", 0.0)
|
|
T = [t[1] for t in temperature]
|
|
minT = minimum(T)
|
|
maxT = maximum(T)
|
|
info("minT = $minT, maxT = $maxT")
|
|
@test isapprox(minT, 0.5)
|
|
@test isapprox(maxT, 0.5)
|
|
|
|
#=
|
|
initialize!(solver)
|
|
assemble!(solver)
|
|
M, K, Kg, f, fg = get_field_assembly(solver)
|
|
Kb, C1, C2, D, fb, g = get_boundary_assembly(solver)
|
|
K = K + Kg + Kb
|
|
f = f + fg + fb
|
|
K = 1/2*(K + K')
|
|
M = 1/2*(M + M')
|
|
=#
|
|
|
|
end
|
|
|
|
@testset "patch test temperature + abaqus inp + tet4 + dual basis + adjust" begin
|
|
mesh = abaqus_read_mesh(tet4_meshfile)
|
|
|
|
upper = Problem(Heat, "UPPER", 1)
|
|
upper.elements = create_elements(mesh, "UPPER")
|
|
update!(upper, "thermal conductivity", 1.0)
|
|
|
|
lower = Problem(Heat, "LOWER", 1)
|
|
lower.elements = create_elements(mesh, "LOWER")
|
|
update!(lower, "thermal conductivity", 1.0)
|
|
|
|
bc_upper = Problem(Dirichlet, "UPPER_TOP", 1, "temperature")
|
|
bc_upper.elements = create_surface_elements(mesh, "UPPER_TOP")
|
|
update!(bc_upper, "temperature 1", 0.0)
|
|
|
|
bc_lower = Problem(Dirichlet, "LOWER_BOTTOM", 1, "temperature")
|
|
bc_lower.elements = create_surface_elements(mesh, "LOWER_BOTTOM")
|
|
update!(bc_lower, "temperature 1", 1.0)
|
|
|
|
interface = Problem(Mortar, "interface between upper and lower block", 1, "temperature")
|
|
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)
|
|
interface.elements = [interface_master_elements; interface_slave_elements]
|
|
interface.properties.dual_basis = true
|
|
#interface.properties.adjust = true
|
|
|
|
JuliaFEM.diagnose_interface(interface, 0.0)
|
|
solver = LinearSolver(upper, lower, bc_upper, bc_lower, interface)
|
|
add_results_writer!(solver, Xdmf("dl_lin_temp_results"; overwrite=true))
|
|
|
|
solver()
|
|
|
|
node_ids, temperature = get_nodal_vector(interface.elements, "temperature", 0.0)
|
|
T = [t[1] for t in temperature]
|
|
minT = minimum(T)
|
|
maxT = maximum(T)
|
|
info("minT = $minT, maxT = $maxT")
|
|
@test isapprox(minT, 0.5)
|
|
@test isapprox(maxT, 0.5)
|
|
|
|
end
|
|
|
|
@testset "patch test temperature + abaqus inp + tet10, quadratic surface elements" begin
|
|
mesh = abaqus_read_mesh(tet10_meshfile)
|
|
|
|
upper = Problem(Heat, "UPPER", 1)
|
|
upper.elements = create_elements(mesh, "UPPER")
|
|
update!(upper, "thermal conductivity", 1.0)
|
|
|
|
lower = Problem(Heat, "LOWER", 1)
|
|
lower.elements = create_elements(mesh, "LOWER")
|
|
update!(lower, "thermal conductivity", 1.0)
|
|
|
|
bc_upper = Problem(Dirichlet, "UPPER_TOP", 1, "temperature")
|
|
bc_upper.elements = create_surface_elements(mesh, "UPPER_TOP")
|
|
update!(bc_upper, "temperature 1", 0.0)
|
|
|
|
bc_lower = Problem(Dirichlet, "LOWER_BOTTOM", 1, "temperature")
|
|
bc_lower.elements = create_surface_elements(mesh, "LOWER_BOTTOM")
|
|
update!(bc_lower, "temperature 1", 1.0)
|
|
|
|
interface = Problem(Mortar, "interface between upper and lower block", 1, "temperature")
|
|
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)
|
|
interface.elements = [interface_master_elements; interface_slave_elements]
|
|
|
|
interface.properties.linear_surface_elements = false
|
|
interface.properties.split_quadratic_slave_elements = false
|
|
interface.properties.split_quadratic_master_elements = false
|
|
interface.properties.alpha = 0.0
|
|
# JuliaFEM.diagnose_interface(interface, 0.0)
|
|
|
|
solver = LinearSolver(upper, lower, bc_upper, bc_lower, interface)
|
|
add_results_writer!(solver, Xdmf("sl_quad_temp_results"; overwrite=true))
|
|
solver()
|
|
|
|
node_ids, temperature = get_nodal_vector(interface.elements, "temperature", 0.0)
|
|
T = [t[1] for t in temperature]
|
|
|
|
minT = minimum(T)
|
|
maxT = maximum(T)
|
|
stdT = std(T)
|
|
info("minT = $minT, maxT = $maxT, stdT = $stdT")
|
|
@test maxT - minT < 1.0e-6
|
|
@test isapprox(stdT, 0.0; atol=1.0e-6)
|
|
|
|
end
|
|
|
|
@testset "patch test temperature + abaqus inp + tet10 + quadratic surface elements + dual basis + alpha=0.2" begin
|
|
mesh = abaqus_read_mesh(tet10_meshfile)
|
|
|
|
upper = Problem(Heat, "UPPER", 1)
|
|
upper.elements = create_elements(mesh, "UPPER")
|
|
update!(upper, "thermal conductivity", 1.0)
|
|
|
|
lower = Problem(Heat, "LOWER", 1)
|
|
lower.elements = create_elements(mesh, "LOWER")
|
|
update!(lower, "thermal conductivity", 1.0)
|
|
|
|
bc_upper = Problem(Dirichlet, "UPPER_TOP", 1, "temperature")
|
|
bc_upper.elements = create_surface_elements(mesh, "UPPER_TOP")
|
|
update!(bc_upper, "temperature 1", 0.0)
|
|
|
|
bc_lower = Problem(Dirichlet, "LOWER_BOTTOM", 1, "temperature")
|
|
bc_lower.elements = create_surface_elements(mesh, "LOWER_BOTTOM")
|
|
update!(bc_lower, "temperature 1", 1.0)
|
|
|
|
interface = Problem(Mortar, "interface between upper and lower block", 1, "temperature")
|
|
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)
|
|
interface.elements = [interface_master_elements; interface_slave_elements]
|
|
|
|
interface.properties.linear_surface_elements = false
|
|
interface.properties.split_quadratic_slave_elements = false
|
|
interface.properties.split_quadratic_master_elements = false
|
|
interface.properties.dual_basis = true
|
|
interface.properties.alpha = 0.2
|
|
|
|
solver = LinearSolver(upper, lower, bc_upper, bc_lower, interface)
|
|
add_results_writer!(solver, Xdmf("dl_quad_temp_results"; overwrite=true))
|
|
solver()
|
|
|
|
node_ids, temperature = get_nodal_vector(interface.elements, "temperature", 0.0)
|
|
#node_ids, temperature = get_nodal_vector(interface_slave_elements, "temperature", 0.0)
|
|
#=
|
|
for (j, (nid, T)) in enumerate(zip(node_ids, temperature))
|
|
info("$j: $nid -> $(T[1])")
|
|
j == 10 && break
|
|
end
|
|
=#
|
|
T = [t[1] for t in temperature]
|
|
minT = minimum(T)
|
|
maxT = maximum(T)
|
|
stdT = std(T)
|
|
info("minT = $minT, maxT = $maxT, stdT = $stdT")
|
|
@test maxT - minT < 1.0e-10
|
|
@test isapprox(stdT, 0.0; atol=1.0e-10)
|
|
end
|
|
|
|
### displacement patch tests, sl tet4, dl tet4, sl tet10, dl tet 10
|
|
|
|
@testset "patch test displacement + abaqus inp + tet4 + adjust" begin
|
|
|
|
mesh = abaqus_read_mesh(tet4_meshfile)
|
|
# modify mesh a bit, find all nodes in elements in element set UPPER and put 0.2 to X3 to test adjust
|
|
JuliaFEM.Preprocess.create_node_set_from_element_set!(mesh, :UPPER)
|
|
for nid in mesh.node_sets[:UPPER]
|
|
mesh.nodes[nid][3] += 0.2
|
|
end
|
|
|
|
upper = Problem(Elasticity, "UPPER", 3)
|
|
upper.elements = create_elements(mesh, "UPPER")
|
|
update!(upper, "youngs modulus", 288.0)
|
|
update!(upper, "poissons ratio", 1/3)
|
|
|
|
lower = Problem(Elasticity, "LOWER", 3)
|
|
lower.elements = create_elements(mesh, "LOWER")
|
|
update!(lower, "youngs modulus", 288.0)
|
|
update!(lower, "poissons ratio", 1/3)
|
|
|
|
bc_upper = Problem(Dirichlet, "UPPER_TOP", 3, "displacement")
|
|
bc_upper.elements = create_surface_elements(mesh, "UPPER_TOP")
|
|
update!(bc_upper, "displacement 3", 0.0)
|
|
|
|
bc_lower = Problem(Dirichlet, "LOWER_BOTTOM", 3, "displacement")
|
|
bc_lower.elements = create_surface_elements(mesh, "LOWER_BOTTOM")
|
|
update!(bc_lower, "displacement 3", 0.0)
|
|
|
|
bc_sym13 = Problem(Dirichlet, "SYM13", 3, "displacement")
|
|
bc_sym13.elements = [create_surface_elements(mesh, "LOWER_SYM13"); create_surface_elements(mesh, "UPPER_SYM13")]
|
|
update!(bc_sym13, "displacement 2", 0.0)
|
|
|
|
bc_sym23 = Problem(Dirichlet, "SYM23", 3, "displacement")
|
|
bc_sym23.elements = [create_surface_elements(mesh, "LOWER_SYM23"); create_surface_elements(mesh, "UPPER_SYM23")]
|
|
update!(bc_sym23, "displacement 1", 0.0)
|
|
|
|
interface = Problem(Mortar, "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)
|
|
interface.elements = [interface_slave_elements; interface_master_elements]
|
|
|
|
append!(interface.assembly.removed_dofs, [1316, 1319, 1358, 1387, 1388, 1492, 1597, 1627])
|
|
|
|
interface.properties.linear_surface_elements = false
|
|
interface.properties.split_quadratic_slave_elements = false
|
|
interface.properties.split_quadratic_master_elements = false
|
|
interface.properties.adjust = true
|
|
interface.properties.dual_basis = false
|
|
|
|
solver = LinearSolver(upper, lower, bc_upper, bc_lower, bc_sym13, bc_sym23, interface)
|
|
add_results_writer!(solver, Xdmf("sl_lin_disp_results"; overwrite=true))
|
|
solver()
|
|
|
|
node_ids, displacement = get_nodal_vector(interface.elements, "displacement", 0.0)
|
|
node_ids, geometry = get_nodal_vector(interface.elements, "geometry", 0.0)
|
|
u3 = [u[3] for u in displacement]
|
|
maxabsu3 = maximum(abs.(u3))
|
|
stdabsu3 = std(abs.(u3))
|
|
info("tet10 block: max(abs(u3)) = $maxabsu3, std(abs(u3)) = $stdabsu3")
|
|
@test isapprox(stdabsu3, 0.0; atol=1.0e-10)
|
|
end
|
|
|
|
@testset "patch test displacement + abaqus inp + tet4 + adjust + dual basis" begin
|
|
|
|
mesh = abaqus_read_mesh(tet4_meshfile)
|
|
# modify mesh a bit, find all nodes in elements in element set UPPER and put 0.2 to X3 to test adjust
|
|
JuliaFEM.Preprocess.create_node_set_from_element_set!(mesh, :UPPER)
|
|
for nid in mesh.node_sets[:UPPER]
|
|
mesh.nodes[nid][3] += 0.2
|
|
end
|
|
|
|
upper = Problem(Elasticity, "UPPER", 3)
|
|
upper.elements = create_elements(mesh, "UPPER")
|
|
update!(upper, "youngs modulus", 288.0)
|
|
update!(upper, "poissons ratio", 1/3)
|
|
|
|
lower = Problem(Elasticity, "LOWER", 3)
|
|
lower.elements = create_elements(mesh, "LOWER")
|
|
update!(lower, "youngs modulus", 288.0)
|
|
update!(lower, "poissons ratio", 1/3)
|
|
|
|
bc_upper = Problem(Dirichlet, "UPPER_TOP", 3, "displacement")
|
|
bc_upper.elements = create_surface_elements(mesh, "UPPER_TOP")
|
|
update!(bc_upper, "displacement 3", 0.0)
|
|
|
|
bc_lower = Problem(Dirichlet, "LOWER_BOTTOM", 3, "displacement")
|
|
bc_lower.elements = create_surface_elements(mesh, "LOWER_BOTTOM")
|
|
update!(bc_lower, "displacement 3", 0.0)
|
|
|
|
bc_sym13 = Problem(Dirichlet, "SYM13", 3, "displacement")
|
|
bc_sym13.elements = [create_surface_elements(mesh, "LOWER_SYM13"); create_surface_elements(mesh, "UPPER_SYM13")]
|
|
update!(bc_sym13, "displacement 2", 0.0)
|
|
|
|
bc_sym23 = Problem(Dirichlet, "SYM23", 3, "displacement")
|
|
bc_sym23.elements = [create_surface_elements(mesh, "LOWER_SYM23"); create_surface_elements(mesh, "UPPER_SYM23")]
|
|
update!(bc_sym23, "displacement 1", 0.0)
|
|
|
|
interface = Problem(Mortar, "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)
|
|
interface.elements = [interface_slave_elements; interface_master_elements]
|
|
|
|
append!(interface.assembly.removed_dofs, [1316, 1319, 1358, 1387, 1388, 1492, 1597, 1627])
|
|
|
|
interface.properties.linear_surface_elements = false
|
|
interface.properties.split_quadratic_slave_elements = false
|
|
interface.properties.split_quadratic_master_elements = false
|
|
interface.properties.adjust = true
|
|
interface.properties.dual_basis = true
|
|
|
|
solver = LinearSolver(upper, lower, bc_upper, bc_lower, bc_sym13, bc_sym23, interface)
|
|
add_results_writer!(solver, Xdmf("dl_lin_disp_results"; overwrite=true))
|
|
solver()
|
|
|
|
node_ids, displacement = get_nodal_vector(interface.elements, "displacement", 0.0)
|
|
node_ids, geometry = get_nodal_vector(interface.elements, "geometry", 0.0)
|
|
u3 = [u[3] for u in displacement]
|
|
maxabsu3 = maximum(abs.(u3))
|
|
stdabsu3 = std(abs.(u3))
|
|
info("tet10 block: max(abs(u3)) = $maxabsu3, std(abs(u3)) = $stdabsu3")
|
|
@test isapprox(stdabsu3, 0.0; atol=1.0e-10)
|
|
end
|
|
|
|
@testset "patch test displacement + abaqus inp + tet10 + adjust" begin
|
|
|
|
mesh = abaqus_read_mesh(tet10_meshfile)
|
|
# modify mesh a bit, find all nodes in elements in element set UPPER and put 0.2 to X3 to test adjust
|
|
JuliaFEM.Preprocess.create_node_set_from_element_set!(mesh, :UPPER)
|
|
for nid in mesh.node_sets[:UPPER]
|
|
mesh.nodes[nid][3] += 0.2
|
|
end
|
|
|
|
upper = Problem(Elasticity, "UPPER", 3)
|
|
upper.elements = create_elements(mesh, "UPPER")
|
|
update!(upper, "youngs modulus", 288.0)
|
|
update!(upper, "poissons ratio", 1/3)
|
|
|
|
lower = Problem(Elasticity, "LOWER", 3)
|
|
lower.elements = create_elements(mesh, "LOWER")
|
|
update!(lower, "youngs modulus", 288.0)
|
|
update!(lower, "poissons ratio", 1/3)
|
|
|
|
bc_upper = Problem(Dirichlet, "UPPER_TOP", 3, "displacement")
|
|
bc_upper.elements = create_surface_elements(mesh, "UPPER_TOP")
|
|
update!(bc_upper, "displacement 3", 0.0)
|
|
|
|
bc_lower = Problem(Dirichlet, "LOWER_BOTTOM", 3, "displacement")
|
|
bc_lower.elements = create_surface_elements(mesh, "LOWER_BOTTOM")
|
|
update!(bc_lower, "displacement 3", 0.0)
|
|
|
|
bc_sym13 = Problem(Dirichlet, "SYM13", 3, "displacement")
|
|
bc_sym13.elements = [create_surface_elements(mesh, "LOWER_SYM13"); create_surface_elements(mesh, "UPPER_SYM13")]
|
|
update!(bc_sym13, "displacement 2", 0.0)
|
|
|
|
bc_sym23 = Problem(Dirichlet, "SYM23", 3, "displacement")
|
|
bc_sym23.elements = [create_surface_elements(mesh, "LOWER_SYM23"); create_surface_elements(mesh, "UPPER_SYM23")]
|
|
update!(bc_sym23, "displacement 1", 0.0)
|
|
|
|
interface = Problem(Mortar, "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)
|
|
interface.elements = [interface_slave_elements; interface_master_elements]
|
|
|
|
removed_dofs = [1316, 1319, 1325, 1358, 1361, 1387, 1388, 1391, 1492, 1597, 1600, 1627, 1630, 1657]
|
|
append!(interface.assembly.removed_dofs, removed_dofs)
|
|
|
|
interface.properties.linear_surface_elements = false
|
|
interface.properties.split_quadratic_slave_elements = false
|
|
interface.properties.split_quadratic_master_elements = false
|
|
interface.properties.adjust = true
|
|
interface.properties.dual_basis = false
|
|
|
|
solver = LinearSolver(upper, lower, bc_upper, bc_lower, bc_sym13, bc_sym23, interface)
|
|
add_results_writer!(solver, Xdmf("sl_quad_disp_results"; overwrite=true))
|
|
solver()
|
|
|
|
node_ids, displacement = get_nodal_vector(interface.elements, "displacement", 0.0)
|
|
node_ids, geometry = get_nodal_vector(interface.elements, "geometry", 0.0)
|
|
u3 = [u[3] for u in displacement]
|
|
maxabsu3 = maximum(abs.(u3))
|
|
stdabsu3 = std(abs.(u3))
|
|
info("tet10 block: max(abs(u3)) = $maxabsu3, std(abs(u3)) = $stdabsu3")
|
|
@test isapprox(stdabsu3, 0.0; atol=1.0e-6)
|
|
end
|
|
|
|
|
|
@testset "patch test displacement + abaqus inp + tet10 + adjust + dual basis + alpha=0.2" begin
|
|
|
|
mesh = abaqus_read_mesh(tet10_meshfile)
|
|
# modify mesh a bit, find all nodes in elements in element set UPPER and put 0.2 to X3 to test adjust
|
|
JuliaFEM.Preprocess.create_node_set_from_element_set!(mesh, :UPPER)
|
|
for nid in mesh.node_sets[:UPPER]
|
|
mesh.nodes[nid][3] += 0.2
|
|
end
|
|
|
|
upper = Problem(Elasticity, "UPPER", 3)
|
|
upper.elements = create_elements(mesh, "UPPER")
|
|
update!(upper, "youngs modulus", 288.0)
|
|
update!(upper, "poissons ratio", 1/3)
|
|
|
|
lower = Problem(Elasticity, "LOWER", 3)
|
|
lower.elements = create_elements(mesh, "LOWER")
|
|
update!(lower, "youngs modulus", 288.0)
|
|
update!(lower, "poissons ratio", 1/3)
|
|
|
|
bc_upper = Problem(Dirichlet, "UPPER_TOP", 3, "displacement")
|
|
bc_upper.elements = create_surface_elements(mesh, "UPPER_TOP")
|
|
update!(bc_upper, "displacement 3", 0.0)
|
|
|
|
bc_lower = Problem(Dirichlet, "LOWER_BOTTOM", 3, "displacement")
|
|
bc_lower.elements = create_surface_elements(mesh, "LOWER_BOTTOM")
|
|
update!(bc_lower, "displacement 3", 0.0)
|
|
|
|
bc_sym13 = Problem(Dirichlet, "SYM13", 3, "displacement")
|
|
bc_sym13.elements = [create_surface_elements(mesh, "LOWER_SYM13"); create_surface_elements(mesh, "UPPER_SYM13")]
|
|
update!(bc_sym13, "displacement 2", 0.0)
|
|
|
|
bc_sym23 = Problem(Dirichlet, "SYM23", 3, "displacement")
|
|
bc_sym23.elements = [create_surface_elements(mesh, "LOWER_SYM23"); create_surface_elements(mesh, "UPPER_SYM23")]
|
|
update!(bc_sym23, "displacement 1", 0.0)
|
|
|
|
interface = Problem(Mortar, "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)
|
|
interface.elements = [interface_slave_elements; interface_master_elements]
|
|
|
|
removed_dofs = [1316, 1319, 1325, 1358, 1361, 1387, 1388, 1391, 1492, 1597, 1600, 1627, 1630, 1657]
|
|
append!(interface.assembly.removed_dofs, removed_dofs)
|
|
|
|
interface.properties.linear_surface_elements = false
|
|
interface.properties.split_quadratic_slave_elements = false
|
|
interface.properties.split_quadratic_master_elements = false
|
|
interface.properties.adjust = true
|
|
interface.properties.dual_basis = true
|
|
interface.properties.alpha = 0.2
|
|
|
|
solver = LinearSolver(upper, lower, bc_upper, bc_lower, bc_sym13, bc_sym23, interface)
|
|
add_results_writer!(solver, Xdmf("dl_quad_disp_results"; overwrite=true))
|
|
solver()
|
|
|
|
node_ids, displacement = get_nodal_vector(interface.elements, "displacement", 0.0)
|
|
node_ids, geometry = get_nodal_vector(interface.elements, "geometry", 0.0)
|
|
u3 = [u[3] for u in displacement]
|
|
maxabsu3 = maximum(abs.(u3))
|
|
stdabsu3 = std(abs.(u3))
|
|
info("tet10 block: max(abs(u3)) = $maxabsu3, std(abs(u3)) = $stdabsu3")
|
|
@test isapprox(stdabsu3, 0.0; atol=1.0e-6)
|
|
end
|