ForkMaster/netgen
1
0
Fork 0
mirror of https://github.com/NGSolve/netgen.git synced 2025-01-12 22:20:35 +05:00
Code Issues Packages Projects Releases Wiki Activity

more QUAD8

Browse Source
This commit is contained in:
Joachim Schöberl 2019-01-18 00:43:41 +01:00
parent 48186fc54d
commit b6e62f9ebc
1 changed files with 31 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
libsrc/meshing/curvedelems.cpp
View File

@ -1943,7 +1943,7 @@ namespace netgen
shapes(0) -= 0.5*(shapes(4)+shapes(6)); shapes(0) -= 0.5*(shapes(4)+shapes(6));
shapes(1) -= 0.5*(shapes(4)+shapes(7)); shapes(1) -= 0.5*(shapes(4)+shapes(7));
shapes(2) -= 0.5*(shapes(5)+shapes(7)); shapes(2) -= 0.5*(shapes(5)+shapes(7));
shapes(3) -= 0.5*(shapes(5)-shapes(6)); shapes(3) -= 0.5*(shapes(5)+shapes(6));
break; break;
} }
@ -2285,7 +2285,7 @@ namespace netgen
} }
break; break;
} }
case QUAD: case QUAD8: case QUAD:
{ {
if (info.order >= 2) return false; // not yet supported if (info.order >= 2) return false; // not yet supported
AutoDiff<2,T> lami[4] = { (1-x)*(1-y), x*(1-y), x*y, (1-x)*y }; AutoDiff<2,T> lami[4] = { (1-x)*(1-y), x*(1-y), x*y, (1-x)*y };
@ -2297,6 +2297,35 @@ namespace netgen
} }
break; break;
} }
case QUAD8:
{
AutoDiff<2,T> lami[4] = { (1-x)*(1-y), x*(1-y), x*y, (1-x)*y };
auto x = xi(0), y = xi(1);
AutoDiff<2,T> lami =
{ (1-x)*(1-y),
x*(1-y),
x*y,
(1-x)*y,
4*(1-x)*x*(1-y),
4*(1-x)*x*y,
4*(1-y)*y*(1-x),
4*(1-y)*y*x };
lami[0] -= 0.5*(lami[4]+lami[6]);
lami[1] -= 0.5*(lami[4]+lami[7]);
lami[2] -= 0.5*(lami[5]+lami[7]);
lami[3] -= 0.5*(lami[5]+lami[6]);
for (int j = 0; j < 8; j++)
{
Point<3> p = mesh[el[j]];
for (int k = 0; k < DIM_SPACE; k++)
mapped_x[k] += p(k) * lami[j];
}
break;
}
default: default:
return false; return false;
} }