Skip to content
Snippets Groups Projects
Commit 7ca0ba59 authored by Stephan Hilb's avatar Stephan Hilb
Browse files

add comments

parent 83c0116d
No related branches found
No related tags found
No related merge requests found
...@@ -278,11 +278,15 @@ function project_qi_lagrange!(u::FeFunction, img) ...@@ -278,11 +278,15 @@ function project_qi_lagrange!(u::FeFunction, img)
# size: nrdims # size: nrdims
value = evaluate(f, xhat) value = evaluate(f, xhat)
# size: nldofs # size: nldofs
# actually: transformation to barycentric coordinates!
phix = evaluate_basis(space.element, xhat) phix = evaluate_basis(space.element, xhat)
# no integration element used # no integration element used
#u.data[gdofs] .+= qw[k] ./ area_refel .* 3 .* value * phix' #u.data[gdofs] .+= qw[k] ./ area_refel .* 3 .* value * phix'
u.data[gdofs] .+= qw[k] ./ area_refel * value * (12 .* phix' .- 3) u.data[gdofs] .+= qw[k] ./ area_refel * value * (12 .* phix' .- 3)
#rhox = SA[-12 -12; 12 0; 0 12] * xhat + SA[9, -3, -3]
#u.data[gdofs] .+= qw[k] ./ area_refel * value * rhox'
end end
gdofcount[gdofs] .+= 1 gdofcount[gdofs] .+= 1
end end
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment