mirror of
https://github.com/JuliaFEM/JuliaFEM.jl.git
synced 2026-09-26 11:51:31 +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".
48 lines
1.5 KiB
Julia
48 lines
1.5 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
|
||
|
||
mesh = aster_read_mesh(@__DIR__()*"/testdata/primitives.med", "CYLINDER_20_TET4")
|
||
problem = Problem(Heat, "rod of length 20", 1)
|
||
problem.elements = create_elements(mesh, "CYLINDER")
|
||
update!(problem, "thermal conductivity", 200.0)
|
||
outer = Problem(Heat, "outer surface", 1)
|
||
outer.elements = create_elements(mesh, "FACE2", "FACE3")
|
||
update!(outer, "external temperature", 20.0)
|
||
update!(outer, "heat transfer coefficient", 1.0)
|
||
#midline = Problem(Heat, "midline of rod", 1)
|
||
#midline.elements = create_elements(mesh, "INNER_LINE")
|
||
boundary = Problem(Dirichlet, "homogeneous dirichlet boundary", 1, "temperature")
|
||
boundary.elements = create_elements(mesh, "FACE1")
|
||
update!(boundary, "temperature 1", 100.0)
|
||
#solver = LinearSolver(problem, outer, boundary, midline)
|
||
solver = LinearSolver(problem, outer, boundary)
|
||
solver()
|
||
|
||
# Analytical solution
|
||
L = 20
|
||
k = 200.0
|
||
Tu = 20.0
|
||
h = 1.0
|
||
P = 2*pi
|
||
A = pi
|
||
α = h
|
||
β = sqrt((h*P)/(k*A))
|
||
T0 = 100.0
|
||
C = [1.0 1.0; (α+k*β)*exp(β*L) (α-k*β)*exp(-β*L)] \ [T0-Tu, 0]
|
||
|
||
T_diff = []
|
||
for x in linspace(0, 20)
|
||
T_FEM = problem("temperature", [x, 0.0, 0.0])[1]
|
||
T_ACC = dot(C, [exp(β*x), exp(-β*x)]) + Tu
|
||
push!(T_diff, norm(T_FEM - T_ACC))
|
||
info("x = $x, T_FEM = $T_FEM, T_ACC = $T_ACC")
|
||
end
|
||
info("mean diff = ", mean(T_diff))
|
||
|
||
@test mean(T_diff) < 1.2 # mean diff = 1.14
|