Glassvision/JuliaFEM.jl
1
0
Fork 0
mirror of https://github.com/JuliaFEM/JuliaFEM.jl.git synced 2026-09-22 18:52:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

issue #67

Browse Source
This commit is contained in:
Jukka Aho
2015-11-21 18:23:41 +02:00
parent 18ae2ee5b7
commit 333bf5abb9
14 changed files with 336 additions and 170 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/test_virtual_work.jl
+4 -5
View File
@@ -5,8 +5,7 @@ module TestAutoDiffWeakForm
using JuliaFEM.Test
using JuliaFEM
using JuliaFEM: Quad4, Equation, IntegrationPoint, assemble!,
Assembly,
using JuliaFEM: Quad4, Equation, IntegrationPoint, assemble!, Assembly,
solve!, get_field, get_element, get_basis,
grad, get_default_integration_points
@@ -23,7 +22,7 @@ end
function CPS4(element::Quad4)
integration_points = get_default_integration_points(element)
if !haskey(element, "displacement")
element["displacement"] = zeros(2, 4)
element["displacement"] = 0.0 => Vector{Float64}[[0.0,0.0], [0.0,0.0], [0.0,0.0], [0.0,0.0]]
end
CPS4(element, integration_points)
end
@@ -71,8 +70,8 @@ function test_residual_form()
# create model -- end
free_dofs = [3, 4, 5, 6]
solve!(equation, free_dofs) # launch a newton solver for single element
disp = get_basis(element)("displacement", [1.0, 1.0])[2]
solve!(equation, free_dofs, 0.0) # launch a newton solver for single element
disp = get_basis(element)("displacement", [1.0, 1.0], 0.0)[2]
println("displacement at tip: $disp")
# verified using Code Aster.
@test isapprox(disp, -8.77303119819776E+00)