more quad8

This commit is contained in:
Joachim Schöberl 2019-01-17 23:32:57 +01:00
parent 66ac2f1a4f
commit ba1463511b

View File

@ -1888,6 +1888,7 @@ namespace netgen
} }
case QUAD: case QUAD:
case QUAD8:
{ {
shapes(0) = (1-xi(0))*(1-xi(1)); shapes(0) = (1-xi(0))*(1-xi(1));
shapes(1) = xi(0) *(1-xi(1)); shapes(1) = xi(0) *(1-xi(1));
@ -2266,7 +2267,7 @@ namespace netgen
} }
break; break;
} }
case QUAD: case QUAD: case QUAD8:
{ {
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 };
@ -3854,8 +3855,9 @@ namespace netgen
case TRIG : info.nv = 3; break; case TRIG : info.nv = 3; break;
case QUAD : info.nv = 4; break; case QUAD : info.nv = 4; break;
case TRIG6: info.nv = 6; break; case TRIG6: info.nv = 6; break;
case QUAD8 : info.nv = 8; break;
default: default:
cerr << "undef element in CalcMultPointSurfaceTrao" << endl; cerr << "undef element in CalcMultPointSurfaceTrafo" << endl;
} }
info.ndof = info.nv; info.ndof = info.nv;