Solve the Stokes equation of colliding flow: MINI element, general formulation
Synopsis: Compute the solution of the Stokes equation of two-dimensional incompressible viscous flow for a manufactured problem of colliding flow. Bubble-function triangular elements are used.
The "manufactured" colliding flow example from Elman et al 2014. The MINI formulation with linear triangles with a cubic bubble function for the velocity and continuous pressure on linear triangles.
The pressure is shown here with contours, and the velocities visualized with arrows at random points.
The formulation is the general elasticity-like scheme with strain-rate/velocity matrices. It can be manipulated into the one derived in Reddy, Introduction to the finite element method, 1993. Page 486 ff.
The complete code is in the file tut_stokes_p1b_p1_gen.jl
.
The solution will be defined within a module in order to eliminate conflicts with data or functions defined elsewhere.
module tut_stokes_p1b_p1_gen
We'll need some functionality from linear algebra, static arrays, and the mesh libraries. Some plotting will be produced to visualize structure of the stiffness matrix. Finally we will need the Elfel
functionality.
using LinearAlgebra
using StaticArrays
using MeshCore.Exports
using MeshSteward.Exports
using Elfel.Exports
using UnicodePlots
The boundary value problem is expressed in this weak form
\[ \int_{V}{\underline{\varepsilon}}(\underline{\delta v})^T\; \underline{\underline{D}}\; {\underline{\varepsilon}}(\underline{u})\; \mathrm{d} V - \int_{V} \mathrm{div}(\underline{\delta v})\; p\; \mathrm{d} V = 0,\quad \forall \underline{\delta v}\]
\[ - \int_{V} \delta q\; \mathrm{div}(\underline{u}) \; \mathrm{d} V = 0,\quad \forall \delta q\]
Here $\underline{\delta v}$ are the test functions in the velocity space, and $\delta q$ are the pressure test functions. Further $\underline {u}$ is the trial velocity, and $p$ is the trial pressure.
function run()
mu = 1.0 # dynamic viscosity
This is the material-property matrix $\underline{\underline{D}}$:
D = SMatrix{3, 3}(
[2*mu 0 0
0 2*mu 0
0 0 mu])
A = 1.0 # half of the length of the side of the square
N = 100 # number of element edges per side of the square
These three functions define the true velocity components and the true pressure.
trueux = (x, y) -> 20 * x * y ^ 3
trueuy = (x, y) -> 5 * x ^ 4 - 5 * y ^ 4
truep = (x, y) -> 60 * x ^ 2 * y - 20 * y ^ 3
Construct the two meshes for the mixed method. They need to support the velocity and pressure spaces.
mesh = genmesh(A, N)
Construct the velocity space: it is a vector space with two components. The degrees of freedom are real numbers (Float64
). The velocity mesh carries the finite elements of the continuity $H ^1$, i. e. both the function values and the derivatives are square integrable. Each node carries 2 degrees of freedom, hence there are two velocity components per node.
Uh = FESpace(Float64, mesh, FEH1_T3_BUBBLE(), 2)
Now we apply the boundary conditions at the nodes around the circumference.
locs = geometry(mesh)
We use searching based on the presence of the node within a box. The entire boundary will be captured within these four boxes, provided we inflate those boxes with a little tolerance (we can't rely on those nodes to be precisely at the coordinates given, we need to introduce some tolerance).
boxes = [[-A A -A -A], [-A -A -A A], [A A -A A], [-A A A A]]
inflate = A / N / 100
for box in boxes
vl = vselect(locs; box = box, inflate = inflate)
for i in vl
Remember that all components of the velocity are known at the boundary.
setebc!(Uh, 0, i, 1, trueux(locs[i]...))
setebc!(Uh, 0, i, 2, trueuy(locs[i]...))
end
end
No we construct the pressure space. It is a continuous, piecewise linear space supported on a mesh of three-node triangles.
Ph = FESpace(Float64, mesh, FEH1_T3(), 1)
The pressure in this "enclosed" flow example is only known up to a constant. By setting pressure degree of freedom at one node will make the solution unique.
atcenter = vselect(geometry(mesh); nearestto = [0.0, 0.0])
setebc!(Ph, 0, atcenter[1], 1, 0.0)
Number the degrees of freedom. First all the free degrees of freedom are numbered, both velocities and pressures. Next all the data degrees of freedom are numbered, again both for the velocities and for the pressures.
numberdofs!([Uh, Ph])
The total number of degrees of freedom is now calculated.
tndof = ndofs(Uh) + ndofs(Ph)
As is the total number of unknowns.
tnunk = nunknowns(Uh) + nunknowns(Ph)
Assemble the coefficient matrix.
K = assembleK(Uh, Ph, tndof, D)
Display the structure of the indefinite stiffness matrix. Note that this is the complete matrix, including rows and columns for all the degrees of freedom, unknown and known.
p = spy(K, canvas = DotCanvas)
display(p)
Solve the linear algebraic system. First construct system vector of all the degrees of freedom, in the first tnunk
rows that corresponds to the unknowns, and the subsequent rows are for the data degrees of freedom.
U = fill(0.0, tndof)
gathersysvec!(U, [Uh, Ph])
Note that the vector U
consists of nonzero numbers in rows are for the data degrees of freedom. Multiplying the stiffness matrix with this vector will generate a load vector on the right-hand side. Otherwise there is no loading, hence the vector F
consists of all zeros.
F = fill(0.0, tndof)
solve!(U, K, F, tnunk)
Once we have solved the system of linear equations, we can distribute the solution from the vector U
into the finite element spaces.
scattersysvec!([Uh, Ph], U)
Given that the solution is manufactured, i. e. exactly known, we can calculate the true errors.
@show ep = evaluate_pressure_error(Ph, truep)
@show ev = evaluate_velocity_error(Uh, trueux, trueuy)
Postprocessing. First we make attributes, scalar nodal attributes, associated with the meshes for the pressures and the velocity.
makeattribute(Ph, "p", 1)
makeattribute(Uh, "ux", 1)
makeattribute(Uh, "uy", 2)
The pressure and the velocity components are then written out into two VTK files.
vtkwrite("tut_stokes_p1b_p1_gen-p", baseincrel(mesh), [(name = "p",), ])
vtkwrite("tut_stokes_p1b_p1_gen-v", baseincrel(mesh), [(name = "ux",), (name = "uy",)])
return true
end
function genmesh(A, N)
Linear triangle mesh is used for both the velocity space and the pressure space.
mesh = attach!(Mesh(), T3block(2 * A, 2 * A, N, N), "velocity")
Now translate so that the center of the square is at the origin of the coordinates.
ir = baseincrel(mesh)
transform(ir, x -> x .- A)
The bubble degree of freedom is associated with the element itself. The mesh will therefore be equipped with the incidence relation $(2, 2)$. The finite element space for the velocity will therefore have degrees of freedom associated with the vertices and with the faces (elements themselves). The finite element space does that by associating fields with incidence relations, hence the need for this one.
eidir = ir_identity(ir)
attach!(mesh, eidir)
return mesh
end
function assembleK(Uh, Ph, tndof, D)
function integrate!(ass, elits, qpits, D)
Consider the elementwise definition of the test strain rate, ${\underline{\varepsilon}}(\underline{\delta v})$. It is calculated from the elementwise degrees of freedom and the associated basis functions as
\[{\underline{\varepsilon}}(\underline{\delta v}) = \sum_i{\delta V}_i {\underline{B}_{c(i)}(N_i)}\]
where $i = 1, \ldots, n_{du}$, and $n_{du}$ is the number of velocity degrees of freedom per element, $c(i)$ is the number of the component corresponding to the degree of freedom $i$. This is either 1 when degree of freedom $i$ is the $x$-component of the velocity, 2 otherwise(for the $y$-component of the velocity). Analogously for the trial strain rate.
The strain-rate/velocity matrices are defined as
\[{\underline{B}_{1}(N_i)} = \left[\begin{array}{c} \partial{N_i}/\partial{x} \\ 0 \\ \partial{N_i}/\partial{y} \end{array}\right],\]
and
\[{\underline{B}_{2}(N_i)} = \left[\begin{array}{c} 0 \\ \partial{N_i}/\partial{y} \\ \partial{N_i}/\partial{x} \end{array}\right].\]
This tiny function evaluates the strain-rate/velocity matrices defined above from the gradient of a basis function and the given number of the component corresponding to the current degree of freedom.
B = (g, k) -> (k == 1 ?
SVector{3}((g[1], 0, g[2])) :
SVector{3}((0, g[2], g[1])))
This array defines the components for the element degrees of freedom, as defined above as $c(i)$.
c = edofcompnt(Uh)
These are the totals of the velocity and pressure degrees of freedom per element.
n_du, n_dp = ndofsperel.((Uh, Ph))
The local matrix assemblers are used as if they were ordinary elementwise dense matrices. Here they are defined.
kuu = LocalMatrixAssembler(n_du, n_du, 0.0)
kup = LocalMatrixAssembler(n_du, n_dp, 0.0)
for el in zip(elits...)
uel, pel = el
The local matrix assemblers are initialized with zeros for the values, and with the element degree of freedom vectors to be used in the assembly. The assembler kuu
is used for the velocity degrees of freedom, and the assembler kup
collect the coupling coefficients between the velocity and the pressure. The function eldofs
collects the global numbers of the degrees of freedom either for the velocity space, or for the pressure space (eldofs(pel)
).
init!(kuu, eldofs(uel), eldofs(uel))
init!(kup, eldofs(uel), eldofs(pel))
for qp in zip(qpits...)
uqp, pqp = qp
The integration is performed using the velocity quadrature points.
Jac, J = jacjac(uel, uqp)
JxW = J * weight(uqp)
gradNu = bfungrad(uqp, Jac) # gradients of the velocity basis functions
Np = bfun(pqp) # pressure basis functions
This double loop corresponds precisely to the integrals of the weak form. This is the matrix in the upper left corner.
for i in 1:n_du
DBi = D * B(gradNu[i], c[i])
for j in 1:n_du
Bj = B(gradNu[j], c[j])
kuu[j, i] += dot(Bj, DBi) * (JxW)
end
end
And this is the coupling matrix in the top right corner.
for i in 1:n_dp, j in 1:n_du
kup[j, i] += gradNu[j][c[j]] * (-JxW * Np[i])
end
end
Assemble the matrices. The submatrix off the diagonal is assembled twice, once as itself, and once as its transpose.
assemble!(ass, kuu)
assemble!(ass, kup) # top right corner
assemble!(ass, transpose(kup)) # bottom left corner
end
return ass # return the updated assembler of the global matrix
end
In the assembleK
function we first we create the element iterators. We can go through all the elements, both in the velocity finite element space and in the pressure finite element space, that define the domain of integration using this iterator. Each time a new element is accessed, some data are precomputed such as the element degrees of freedom, components of the degree of freedom, etc. Note that we need to iterate two finite element spaces, hence we create a tuple of iterators.
elits = (FEIterator(Uh), FEIterator(Ph))
These are the quadrature point iterators. We know that the elements are triangular. We choose the three-point rule, to capture the quadratic component in the velocity space. Quadrature-point iterators provide access to basis function values and gradients, the Jacobian matrix and the Jacobian determinant, the location of the quadrature point and so on. Note that we need to iterate the quadrature rules of two finite element spaces, hence we create a tuple of iterators.
qargs = (kind = :default, npts = 3,)
qpits = (QPIterator(Uh, qargs), QPIterator(Ph, qargs))
The matrix will be assembled into this assembler. Which is initialized with the total number of degrees of freedom (dimension of the coefficient matrix before partitioning into unknowns and data degrees of freedom).
ass = SysmatAssemblerSparse(0.0)
start!(ass, tndof, tndof)
The integration is carried out, and then...
integrate!(ass, elits, qpits, D)
...we materialize the sparse stiffness matrix and return it.
return finish!(ass)
end
The linear algebraic system is solved by partitioning. The vector U
is initially all zero, except in the degrees of freedom which are prescribed as nonzero. Therefore the product of the stiffness matrix and the vector U
are the loads due to nonzero essential boundary conditions. The submatrix of the stiffness conduction matrix corresponding to the free degrees of freedom (unknowns), K[1:nu, 1:nu]
is then used to solve for the unknowns U [1:nu]
.
function solve!(U, K, F, nu)
KT = K * U
U[1:nu] = K[1:nu, 1:nu] \ (F[1:nu] - KT[1:nu])
end
The function evaluate_pressure_error
evaluates the true $L^2$ error of the pressure. It does that by integrating the square of the difference between the approximate pressure and the true pressure, the true pressure being provided by the truep
function.
function evaluate_pressure_error(Ph, truep)
function integrate!(elit, qpit, truep)
n_dp = ndofsperel(elit)
E = 0.0
for el in elit
dofvals = eldofvals(el)
for qp in qpit
Jac, J = jacjac(el, qp)
JxW = J * weight(qp)
Np = bfun(qp)
pt = truep(location(el, qp)...)
pa = 0.0
for j in 1:n_dp
pa += (dofvals[j] * Np[j])
end
E += (JxW) * (pa - pt)^2
end
end
return sqrt(E)
end
elit = FEIterator(Ph)
qargs = (kind = :default, npts = 3,)
qpit = QPIterator(Ph, qargs)
return integrate!(elit, qpit, truep)
end
The function evaluate_velocity_error
evaluates the true $L^2$ error of the velocity. It does that by integrating the square of the difference between the approximate pressure and the true velocity, the true velocity being provided by the trueux
, trueuy
functions.
function evaluate_velocity_error(Uh, trueux, trueuy)
function integrate!(elit, qpit, trueux, trueuy)
n_du = ndofsperel(elit)
uedofcomp = edofcompnt(Uh)
E = 0.0
for el in elit
udofvals = eldofvals(el)
for qp in qpit
Jac, J = jacjac(el, qp)
JxW = J * weight(qp)
Nu = bfun(qp)
uxt = trueux(location(el, qp)...)
uyt = trueuy(location(el, qp)...)
uxa = 0.0
uya = 0.0
for j in 1:n_du
(uedofcomp[j] == 1) && (uxa += (udofvals[j] * Nu[j]))
(uedofcomp[j] == 2) && (uya += (udofvals[j] * Nu[j]))
end
E += (JxW) * ((uxa - uxt)^2 + (uya - uyt)^2)
end
end
return sqrt(E)
end
elit = FEIterator(Uh)
qargs = (kind = :default, npts = 3,)
qpit = QPIterator(Uh, qargs)
return integrate!(elit, qpit, trueux, trueuy)
end
end
To run the example, evaluate this file which will compile the module .tut_stokes_p1b_p1_gen
.
using .tut_stokes_p1b_p1_gen
tut_stokes_p1b_p1_gen.run()
This page was generated using Literate.jl.