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

a bit different way to handle trivial D on lufact

Browse Source
This commit is contained in:
Jukka Aho
2016-11-30 16:19:22 +02:00
parent a4671f1ebd
commit 2cb856e21c
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/solvers.jl
+5 -1
View File
@@ -292,7 +292,11 @@ function solve!(solver::Solver, K, C1, C2, D, f, g, u, la, ::Type{Val{2}})
# construct global system Ax = b and solve using lufact (UMFPACK) # construct global system Ax = b and solve using lufact (UMFPACK)
A = [K C1'; C2 D] A = [K C1'; C2 D]
b = [f; g] b = [f; g]
x = lufact(A) \ full(b) nz1 = get_nonzero_rows(A)
nz2 = get_nonzero_columns(A)
dim = size(A, 1)
x = zeros(dim)
x[nz1] = lufact(A[nz1,nz2]) \ full(b[nz1])
u[:] = x[1:solver.ndofs] u[:] = x[1:solver.ndofs]
la[:] = x[solver.ndofs+1:end] la[:] = x[solver.ndofs+1:end]
return true return true