53 lines
1.4 KiB
Matlab
53 lines
1.4 KiB
Matlab
function [Ex, Ey, Ez, normE] = get_ele_vertices(mesh, solver)
|
|
%GET_ELE_VERTICES Recover E at all mesh vertices (1st-order Nedelec).
|
|
|
|
Ex = zeros(mesh.NbrVertex, 1);
|
|
Ey = zeros(mesh.NbrVertex, 1);
|
|
Ez = zeros(mesh.NbrVertex, 1);
|
|
nEx = zeros(mesh.NbrVertex, 1);
|
|
nEy = zeros(mesh.NbrVertex, 1);
|
|
nEz = zeros(mesh.NbrVertex, 1);
|
|
|
|
u = [1, 0, 0, 0];
|
|
v = [0, 1, 0, 0];
|
|
w = [0, 0, 1, 0];
|
|
|
|
for n = 1:mesh.NbrTet
|
|
x = mesh.Vertex(mesh.Tet(n, :), 1);
|
|
y = mesh.Vertex(mesh.Tet(n, :), 2);
|
|
z = mesh.Vertex(mesh.Tet(n, :), 3);
|
|
|
|
Jac = zeros(3, 3);
|
|
Jac(1, 1) = x(1) - x(4); Jac(1, 2) = y(1) - y(4); Jac(1, 3) = z(1) - z(4);
|
|
Jac(2, 1) = x(2) - x(4); Jac(2, 2) = y(2) - y(4); Jac(2, 3) = z(2) - z(4);
|
|
Jac(3, 1) = x(3) - x(4); Jac(3, 2) = y(3) - y(4); Jac(3, 3) = z(3) - z(4);
|
|
|
|
E = zeros(3, 6, 4);
|
|
for i = 1:4
|
|
for j = 1:6
|
|
E(:, j, i) = getBF(1, j, u(i), v(i), w(i));
|
|
E(:, j, i) = Jac \ E(:, j, i);
|
|
end
|
|
end
|
|
|
|
for j = 1:4
|
|
vi = mesh.Tet(n, j);
|
|
for i = 1:6
|
|
coef = solver.x(mesh.EdgeOfTet(n, i));
|
|
Ex(vi) = Ex(vi) + E(1, i, j) * coef;
|
|
Ey(vi) = Ey(vi) + E(2, i, j) * coef;
|
|
Ez(vi) = Ez(vi) + E(3, i, j) * coef;
|
|
end
|
|
nEx(vi) = nEx(vi) + 1;
|
|
nEy(vi) = nEy(vi) + 1;
|
|
nEz(vi) = nEz(vi) + 1;
|
|
end
|
|
end
|
|
|
|
Ex = Ex ./ nEx;
|
|
Ey = Ey ./ nEy;
|
|
Ez = Ez ./ nEz;
|
|
normE = sqrt(abs(Ex .* conj(Ex) + Ey .* conj(Ey) + Ez .* conj(Ez)));
|
|
|
|
end
|