mirror of
https://github.com/JuliaFEM/JuliaFEM.jl.git
synced 2026-09-28 20:46:58 +00:00
Jukka Aho
b3f0531746
* refactored code for solvers. * Added elementary tests for least-squares fitting of strain and stress fields * A more realistic postprocess + Xdmf writing test * removed debug keyword argument from test * Rewrite update_xdmf! New function to update Xdmf file no longer takes Solver object but xdmf, problem, time and fields to write, for example julia> update_xdmf!(xdmf, problem, 0.0, ["displacement", "temperature"]) All problems are written separately and put together into one SpatialCollection, allowing to have more structured Xdmf and making it easier to write complicated field configurations. Support for Xdmf API 3.0 added. * Support for Tensor6 field writing * moved update_xdmf! to io.jl * Removed some empty files * Not use old Postprocessor, obsolete code. * Not use old XDMF (obsolete code). Fixed test. * removed some postprocessing to pass test, maybe we should drop abaqus.jl from code as obsolete * add function get_temporal_collection back, it's used by update_xdmf of modal solver * postprocess of boundary problems also * added test for contact pressure. dl+quad test output was written in wrong file, fixed. * postprocess for contact pressure * contact pressure postprocess * with boundary problems always store also the primary unknown field * Change "reaction force" -> "lambda" * testing postprocess of reaction force also * sign convention
182 lines
7.0 KiB
Julia
182 lines
7.0 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
|
|
|
|
function get_test_model()
|
|
X = Dict{Int64, Vector{Float64}}(
|
|
1 => [0.0, 0.0],
|
|
2 => [1.0, 0.0],
|
|
3 => [1.0, 0.5],
|
|
4 => [0.0, 0.5],
|
|
5 => [0.0, 0.6],
|
|
6 => [1.0, 0.6],
|
|
7 => [1.0, 1.1],
|
|
8 => [0.0, 1.1])
|
|
el1 = Element(Quad4, [1, 2, 3, 4])
|
|
el2 = Element(Quad4, [5, 6, 7, 8])
|
|
el3 = Element(Seg2, [1, 2])
|
|
el4 = Element(Seg2, [7, 8])
|
|
el5 = Element(Seg2, [4, 3])
|
|
el6 = Element(Seg2, [5, 6])
|
|
update!([el1, el2, el3, el4, el5, el6], "geometry", X)
|
|
update!([el1, el2], "youngs modulus", 96.0)
|
|
update!([el1, el2], "poissons ratio", 1/3)
|
|
update!([el3], "displacement 1", 0.0)
|
|
update!([el3], "displacement 2", 0.0)
|
|
update!([el4], "displacement 1", 0.0)
|
|
update!([el4], "displacement 2", 0.0)
|
|
update!(el6, "master elements", [el5])
|
|
p1 = Problem(Elasticity, "body1", 2)
|
|
p2 = Problem(Elasticity, "body2", 2)
|
|
p3 = Problem(Dirichlet, "fixed", 2, "displacement")
|
|
p4 = Problem(Mortar, "interface", 2, "displacement")
|
|
push!(p1, el1)
|
|
push!(p2, el2)
|
|
push!(p3, el3, el4)
|
|
push!(p4, el5, el6)
|
|
return p1, p2, p3, p4
|
|
end
|
|
|
|
@testset "test adjust setting in 2d tie contact" begin
|
|
p1, p2, p3, p4 = get_test_model()
|
|
p1.properties.formulation = :plane_stress
|
|
p2.properties.formulation = :plane_stress
|
|
p4.properties.adjust = true
|
|
p4.properties.rotate_normals = false
|
|
solver = Solver(Linear)
|
|
push!(solver, p1, p2, p3, p4)
|
|
solver()
|
|
el5 = p4.elements[1]
|
|
u = el5("displacement", [0.0], 0.0)
|
|
info("u = $u")
|
|
@test isapprox(u, [0.0, 0.05])
|
|
end
|
|
|
|
@testset "test that interface transfers constant field without error" begin
|
|
meshfile = Pkg.dir("JuliaFEM") * "/test/testdata/block_2d.med"
|
|
mesh = aster_read_mesh(meshfile)
|
|
|
|
upper = Problem(Heat, "upper", 1)
|
|
upper.properties.formulation = "2D"
|
|
upper.elements = create_elements(mesh, "UPPER")
|
|
update!(upper.elements, "temperature thermal conductivity", 1.0)
|
|
|
|
lower = Problem(Heat, "lower", 1)
|
|
lower.properties.formulation = "2D"
|
|
lower.elements = create_elements(mesh, "LOWER")
|
|
update!(lower.elements, "temperature thermal conductivity", 1.0)
|
|
|
|
bc_upper = Problem(Dirichlet, "upper boundary", 1, "temperature")
|
|
bc_upper.elements = create_elements(mesh, "UPPER_TOP")
|
|
update!(bc_upper.elements, "temperature 1", 0.0)
|
|
|
|
bc_lower = Problem(Dirichlet, "lower boundary", 1, "temperature")
|
|
bc_lower.elements = create_elements(mesh, "LOWER_BOTTOM")
|
|
update!(bc_lower.elements, "temperature 1", 1.0)
|
|
|
|
interface = Problem(Mortar, "interface between upper and lower block", 1, "temperature")
|
|
interface_slave_elements = create_elements(mesh, "LOWER_TOP")
|
|
interface_master_elements = create_elements(mesh, "UPPER_BOTTOM")
|
|
update!(interface_slave_elements, "master elements", interface_master_elements)
|
|
interface.elements = [interface_master_elements; interface_slave_elements]
|
|
|
|
solver = Solver(Linear)
|
|
push!(solver, upper, lower, bc_upper, bc_lower, interface)
|
|
solver()
|
|
|
|
#interface_norm = norm(interface.assembly)
|
|
# for bi-orthogonal:
|
|
#interface_norm_expected = [0.0, 0.0, 0.0, 0.0, 0.0, 0.44870723441585775, 0.44870723441585775, 0.0, 0.0, 0.0]
|
|
#interface_norm_expected = [0.0, 0.0, 0.0, 0.0, 0.0, 0.39361633468943247, 0.39361633468943247, 0.0, 0.0, 0.0]
|
|
#info("Interface norm: $interface_norm")
|
|
#info("Interface norm expected: $interface_norm_expected")
|
|
#@test isapprox(interface_norm, interface_norm_expected)
|
|
|
|
T_upper = first(bc_upper.elements)("temperature", [0.0], 0.0)
|
|
T_lower = first(bc_lower.elements)("temperature", [0.0], 0.0)
|
|
T_middle = first(interface.elements)("temperature", [0.0], 0.0)
|
|
info("T upper: $T_upper, T lower: $T_lower, T interface: $T_middle")
|
|
|
|
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
|
|
|
|
|
|
#=
|
|
# TODO: if one forget plane_stress solver gives singular exception and it's
|
|
hard to trace to the source of problem
|
|
@testset "expect clear error when trying to solve 2d model in 3d setting" begin
|
|
p1, p2, p3, p4 = get_test_model()
|
|
# p1.properties.formulation = :plane_stress
|
|
# p2.properties.formulation = :plane_stress
|
|
p4.properties.adjust = true
|
|
p4.properties.rotate_normals = false
|
|
solver = Solver(Nonlinear)
|
|
solver.properties.linear_system_solver = :DirectLinearSolver_UMFPACK
|
|
push!(solver, p1, p2, p3, p4)
|
|
solver()
|
|
el5 = p4.elements[1]
|
|
u = el5("displacement", [0.0], 0.0)
|
|
info("u = $u")
|
|
@test isapprox(u, [0.0, 0.05])
|
|
end
|
|
=#
|
|
|
|
@testset "test mesh tie with splitted block and plane stress elasticity" begin
|
|
meshfile = Pkg.dir("JuliaFEM") * "/test/testdata/block_2d.med"
|
|
mesh = aster_read_mesh(meshfile)
|
|
|
|
upper = Problem(Elasticity, "upper", 2)
|
|
upper.properties.formulation = :plane_stress
|
|
upper.elements = create_elements(mesh, "UPPER")
|
|
update!(upper.elements, "youngs modulus", 100.0)
|
|
update!(upper.elements, "poissons ratio", 1/3)
|
|
|
|
lower = Problem(Elasticity, "lower", 2)
|
|
lower.properties.formulation = :plane_stress
|
|
lower.elements = create_elements(mesh, "LOWER")
|
|
update!(lower.elements, "youngs modulus", 100.0)
|
|
update!(lower.elements, "poissons ratio", 1/3)
|
|
|
|
bc_upper = Problem(Dirichlet, "upper boundary", 2, "displacement")
|
|
bc_upper.elements = create_elements(mesh, "UPPER_TOP")
|
|
# update!(bc_upper.elements, "displacement 1", 0.1)
|
|
update!(bc_upper.elements, "displacement 2", -0.1)
|
|
|
|
bc_lower = Problem(Dirichlet, "lower boundary", 2, "displacement")
|
|
bc_lower.elements = create_elements(mesh, "LOWER_BOTTOM")
|
|
# update!(bc_lower.elements, "displacement 1", 0.0)
|
|
update!(bc_lower.elements, "displacement 2", 0.0)
|
|
|
|
bc_corner = Problem(Dirichlet, "fix model from lower left corner to prevent singularity", 2, "displacement")
|
|
node_ids = find_nearest_nodes(mesh, [0.0, 0.0])
|
|
bc_corner.elements = [Element(Poi1, node_ids)]
|
|
update!(bc_corner.elements, "geometry", mesh.nodes)
|
|
update!(bc_corner.elements, "displacement 1", 0.0)
|
|
|
|
interface = Problem(Mortar, "interface between upper and lower block", 2, "displacement")
|
|
interface_slave_elements = create_elements(mesh, "LOWER_TOP")
|
|
interface_master_elements = create_elements(mesh, "UPPER_BOTTOM")
|
|
update!(interface_slave_elements, "master elements", interface_master_elements)
|
|
interface.elements = [interface_master_elements; interface_slave_elements]
|
|
|
|
solver = Solver(Linear)
|
|
push!(solver, upper, lower, bc_upper, bc_lower, interface, bc_corner)
|
|
|
|
solver()
|
|
slave_elements = get_slave_elements(interface)
|
|
node_ids, la = get_nodal_vector(slave_elements, "lambda", 0.0)
|
|
for lai in la
|
|
@test isapprox(lai, [0.0, 10.0])
|
|
end
|
|
end
|