Glassvision/JuliaFEM.jl
1
0
Fork 0
mirror of https://github.com/JuliaFEM/JuliaFEM.jl.git synced 2026-09-28 20:46:58 +00:00
Code Issues Packages Projects Releases Wiki Activity

julia v0.5 compatibility. test -> testing. new elements tri7 and wedge6. abaqus inp reading. more integration rules.

Browse Source
This commit is contained in:
Jukka Aho
2016-07-10 04:26:21 +03:00
parent a4e4347fec
commit a75aaecc97
89 changed files with 969 additions and 801 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/test_preprocess.jl
+1 -65
View File
@@ -4,7 +4,7 @@
using JuliaFEM
using JuliaFEM.Preprocess
using JuliaFEM.Postprocess
using JuliaFEM.Test
using JuliaFEM.Testing
@testset "renumber element nodes" begin
mesh = Mesh()
@@ -19,67 +19,3 @@ using JuliaFEM.Test
@test mesh.elements[1] == [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]
end
function get_volume(element::Element, time=0.0)
V = 0.0
for ip in get_integration_points(element)
V += ip.weight*element(ip, time, Val{:detJ})
end
return V
end
function get_volume(elements::Vector{Element}, time=0.0)
return sum([get_volume(element, time) for element in elements])
end
#=
@testset "Hex8 element connectivity order" begin
fn = Pkg.dir("JuliaFEM") * "/test/testdata/rod_short.med"
mesh = aster_read_mesh(fn, "SHORT_ROD_RECTANGLE_HE8_1ELEM")
# 1. check volume of element
rod = create_elements(mesh, "ROD")
V = get_volume(rod)
V_expected = 0.01^2*0.2
info("Volume of rod = $V, expected = $V_expected")
@test isapprox(V, V_expected)
# 2. put some field value and calculate flux in gauss points
T = Dict{Int64, Float64}(
1 => 100.0, 2 => 100.0, 3 => 100.0, 4 => 100.0,
5 => 200.0, 6 => 300.0, 7 => 400.0, 8 => 500.0)
update!(rod, "temperature", T)
# it has been verified using code aster that flux in integration
# points is
FLUX_ELGA = Dict{Int, Vector{Float64}}(
1 => [-4.08493649053890E+04, -2.11324865405187E+05, 1.05662432702594E+05],
2 => [-4.08493649053890E+04, -7.88675134594813E+05, 3.94337567297406E+05],
3 => [-6.97168783648703E+04, -2.11324865405187E+05, 1.05662432702594E+05],
4 => [-6.97168783648703E+04, -7.88675134594813E+05, 3.94337567297406E+05],
5 => [-5.52831216351297E+04, -2.11324865405187E+05, 1.05662432702594E+05],
6 => [-5.52831216351297E+04, -7.88675134594813E+05, 3.94337567297406E+05],
7 => [-8.41506350946110E+04, -2.11324865405187E+05, 1.05662432702594E+05],
8 => [-8.41506350946110E+04, -7.88675134594813E+05, 3.94337567297406E+05])
# flux is q̄(ξ) = -k∇T
element = first(rod)
k = -50.0
flux(xi, time) = -k*vec(element("temperature", xi, time, Val{:Grad}))
weights = ones(8)
# code aster integration points (FPG8)
a = -1.0/sqrt(3.0)
points = Vector{Float64}[
[-a, -a, -a],
[-a, -a, a],
[-a, a, -a],
[-a, a, a],
[ a, -a, -a],
[ a, -a, a],
[ a, a, -a],
[ a, a, a]]
for i=1:8
q1 = flux(points[i], 0.0)
q2 = FLUX_ELGA[i]
rtol = norm(q1-q2)/max(norm(q1),norm(q2))*100.0
@printf "ip %i flux, JF: (% e,% e,% e), CA: (% e,% e,% e), rtol: %10.6f %%\n" i q1... q2... rtol
@test rtol < 0.05
end
end
=#