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

define "local" coordinate system for elements

Browse Source
This commit is contained in:
Jukka Aho
2015-12-20 21:17:47 +02:00
parent c73bf3c42b
commit 2e3feb4e6f
6 changed files with 3038 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/linear_elasticity.jl
+17
View File
@@ -118,6 +118,23 @@ function assemble!{E<:CG, P<:PlaneStressLinearElasticityProblem}(assembly::Assem
L = w*T*N*norm(J)
add!(assembly.force_vector, gdofs, vec(L))
end
for dim in 1:problem.dim
if haskey(element, "displacement traction force $dim")
T = element("displacement traction force $dim", ip, time)
ldofs = gdofs[dim:problem.dim:end]
L = w*T*N*norm(J)
add!(assembly.force_vector, ldofs, vec(L))
end
end
if haskey(element, "displacement traction force N")
# surface pressure
p = zeros(2)
p[1] = element("displacement traction force N", ip, time)
R = element("normal-tangential coordinates", ip, time)
T = R'*p
L = w*T*N*norm(J)
add!(assembly.force_vector, gdofs, vec(L))
end
end
end