ForkMaster/netgen
1
0
Fork 0
mirror of https://github.com/NGSolve/netgen.git synced 2024-12-26 05:50:32 +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:34:27 +01:00
parent 70578f0d89
commit bd20d044b1
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
libsrc/meshing/curvedelems.cpp
View File

@ -1931,14 +1931,19 @@ namespace netgen
case QUAD8: case QUAD8:
{ {
shapes(0) = (1-xi(0))*(1-xi(1)); auto x = xi(0), y = xi(1);
shapes(1) = xi(0) *(1-xi(1)); shapes(0) = (1-x)*(1-y);
shapes(2) = xi(0) * xi(1) ; shapes(1) = x*(1-y);
shapes(3) = (1-xi(0))* xi(1) ; shapes(2) = x*y;
shapes(4) = 0.0; shapes(3) = (1-x)*y;
shapes(5) = 0.0; shapes(4) = 4*(1-x)*x*(1-y);
shapes(6) = 0.0; shapes(5) = 4*(1-x)*x*y;
shapes(7) = 0.0; shapes(6) = 4*(1-y)*y*(1-x);
shapes(7) = 4*(1-y)*y*x;
shapes(0) -= shapes(4) - shapes(6);
shapes(1) -= shapes(4) - shapes(7);
shapes(2) -= shapes(5) - shapes(7);
shapes(3) -= shapes(5) - shapes(6);
break; break;
} }