phynexis-deps/mfem
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Pre-update commit containing much temporary code

Browse Source
This commit is contained in:
Stowell, Mark L
2024-05-02 09:40:33 -07:00
parent 1d46fbba57
commit c5be56264c
22 changed files with 3056 additions and 1202 deletions
Download Patch File Download Diff File Expand all files Collapse all files
fem/fe/fe_l2.cpp
+18 -1
View File
@@ -962,10 +962,19 @@ L2_FuentesPyramidElement::L2_FuentesPyramidElement(const int p, const int btype)
for (int m = 0; m < dof; m++)
{
const IntegrationPoint &ip = Nodes.IntPoint(m);
/*
Poly_1D::CalcLegendre(p, ip.x / (1.0 - ip.z), shape_x.GetData());
Poly_1D::CalcLegendre(p, ip.y / (1.0 - ip.z), shape_y.GetData());
Poly_1D::CalcLegendre(p, ip.z, shape_z.GetData());
*/
//calcBasis(order, ip, shape_x, shape_y, shape_z, T.GetColumn(m));
real_t x = ip.x;
real_t y = ip.y;
real_t z = ip.z;
Vector xy({x,y});
CalcHomogenizedScaLegendre(p, mu0(z, xy, 1), mu1(z, xy, 1), shape_x);
CalcHomogenizedScaLegendre(p, mu0(z, xy, 2), mu1(z, xy, 2), shape_y);
CalcHomogenizedScaLegendre(p, mu0(z), mu1(z), shape_z);
o = 0;
for (int k = 0; k <= p; k++)
{
@@ -993,10 +1002,18 @@ void L2_FuentesPyramidElement::CalcShape(const IntegrationPoint &ip,
Vector shape_z(p + 1);
Vector u(dof);
#endif
/*
Poly_1D::CalcLegendre(p, ip.x / (1.0 - ip.z), shape_x.GetData());
Poly_1D::CalcLegendre(p, ip.y / (1.0 - ip.z), shape_y.GetData());
Poly_1D::CalcLegendre(p, ip.z, shape_z.GetData());
*/
real_t x = ip.x;
real_t y = ip.y;
real_t z = ip.z;
Vector xy({x,y});
CalcHomogenizedScaLegendre(p, mu0(z, xy, 1), mu1(z, xy, 1), shape_x);
CalcHomogenizedScaLegendre(p, mu0(z, xy, 2), mu1(z, xy, 2), shape_y);
CalcHomogenizedScaLegendre(p, mu0(z), mu1(z), shape_z);
int o = 0;
for (int k = 0; k <= p; k++)