42 namespace LocalRegions
49 Ba.GetNumModes(), (Bb.GetNumModes())),
52 Ba.GetNumModes(), (Bb.GetNumModes())),
56 std::bind(&
Expansion2D::CreateMatrix, this, std::placeholders::_1),
57 std::string(
"NodalTriExpMatrix")),
58 m_staticCondMatrixManager(std::bind(&
Expansion::CreateStaticCondMatrix,
59 this, std::placeholders::_1),
60 std::string(
"NodalTriExpStaticCondMatrix"))
65 : StdExpansion(T), StdExpansion2D(T), StdRegions::StdNodalTriExp(T),
67 m_staticCondMatrixManager(T.m_staticCondMatrixManager)
97 int nquad0 =
m_base[0]->GetNumPoints();
98 int nquad1 =
m_base[1]->GetNumPoints();
106 Vmath::Vmul(nquad0 * nquad1, jac, 1, inarray, 1, tmp, 1);
110 Vmath::Smul(nquad0 * nquad1, jac[0], inarray, 1, tmp, 1);
114 ival = StdNodalTriExp::v_Integral(tmp);
122 int nquad0 =
m_base[0]->GetNumPoints();
123 int nquad1 =
m_base[1]->GetNumPoints();
124 int order1 =
m_base[1]->GetNumModes();
126 if (multiplybyweights)
132 StdTriExp::IProductWRTBase_SumFacKernel(
133 m_base[0]->GetBdata(),
m_base[1]->GetBdata(), tmp, outarray, wsp);
140 StdTriExp::IProductWRTBase_SumFacKernel(
m_base[0]->GetBdata(),
141 m_base[1]->GetBdata(), inarray,
156 (iprodmat->GetOwnedMatrix())->GetPtr().get(),
m_ncoeffs,
157 inarray.get(), 1, 0.0, outarray.get(), 1);
164 int nquad0 =
m_base[0]->GetNumPoints();
165 int nquad1 =
m_base[1]->GetNumPoints();
166 int nqtot = nquad0 * nquad1;
186 tmp2, outarray, tmp0);
196 ASSERTL1((dir == 0) || (dir == 1) || (dir == 2),
"Invalid direction.");
198 "Invalid direction.");
200 int nquad0 =
m_base[0]->GetNumPoints();
201 int nquad1 =
m_base[1]->GetNumPoints();
202 int nqtot = nquad0 * nquad1;
220 for (
int i = 0; i < nquad1; ++i)
222 gfac0[i] = 2.0 / (1 - z1[i]);
224 for (
int i = 0; i < nquad0; ++i)
226 gfac1[i] = 0.5 * (1 + z0[i]);
229 for (
int i = 0; i < nquad1; ++i)
231 Vmath::Smul(nquad0, gfac0[i], &inarray[0] + i * nquad0, 1,
232 &tmp0[0] + i * nquad0, 1);
235 for (
int i = 0; i < nquad1; ++i)
237 Vmath::Vmul(nquad0, &gfac1[0], 1, &tmp0[0] + i * nquad0, 1,
238 &tmp1[0] + i * nquad0, 1);
243 Vmath::Vmul(nqtot, &df[2 * dir][0], 1, &tmp0[0], 1, &tmp0[0], 1);
244 Vmath::Vmul(nqtot, &df[2 * dir + 1][0], 1, &tmp1[0], 1, &tmp1[0], 1);
245 Vmath::Vmul(nqtot, &df[2 * dir + 1][0], 1, &inarray[0], 1, &tmp2[0], 1);
249 Vmath::Smul(nqtot, df[2 * dir][0], tmp0, 1, tmp0, 1);
250 Vmath::Smul(nqtot, df[2 * dir + 1][0], tmp1, 1, tmp1, 1);
251 Vmath::Smul(nqtot, df[2 * dir + 1][0], inarray, 1, tmp2, 1);
282 ASSERTL1(
false,
"input dir is out of range");
291 (iprodmat->GetOwnedMatrix())->GetPtr().get(),
m_ncoeffs,
292 inarray.get(), 1, 0.0, outarray.get(), 1);
307 int nquad0 =
m_base[0]->GetNumPoints();
308 int nquad1 =
m_base[1]->GetNumPoints();
309 int nqtot = nquad0 * nquad1;
316 StdNodalTriExp::v_PhysDeriv(inarray, diff0, diff1);
323 Vmath::Vvtvp(nqtot, df[1], 1, diff1, 1, out_d0, 1, out_d0, 1);
329 Vmath::Vvtvp(nqtot, df[3], 1, diff1, 1, out_d1, 1, out_d1, 1);
335 Vmath::Vvtvp(nqtot, df[5], 1, diff1, 1, out_d2, 1, out_d2, 1);
389 out = (*matsys) * in;
398 if (inarray.get() == outarray.get())
404 (mat->GetOwnedMatrix())->GetPtr().get(),
m_ncoeffs,
405 tmp.get(), 1, 0.0, outarray.get(), 1);
410 (mat->GetOwnedMatrix())->GetPtr().get(),
m_ncoeffs,
411 inarray.get(), 1, 0.0, outarray.get(), 1);
428 ASSERTL1(Lcoords[0] >= -1.0 && Lcoords[1] <= 1.0 && Lcoords[1] >= -1.0 &&
430 "Local coordinates are not in region [-1,1]");
434 for (i = 0; i <
m_geom->GetCoordim(); ++i)
436 coords[i] =
m_geom->GetCoord(i, Lcoords);
449 return tmp->GetStdMatrix(mkey);
460 m_geom->GetLocCoords(coord, Lcoord);
462 return StdNodalTriExp::v_PhysEvaluate(Lcoord, physvals);
476 m_base[0]->GetPointsKey());
478 m_base[1]->GetPointsKey());
499 returnval = StdNodalTriExp::v_GenMatrix(mkey);
514 geomFactors->GetDerivFactors(ptsKeys);
516 int nqe =
m_base[0]->GetNumPoints();
521 for (i = 0; i < dim; ++i)
548 Vmath::Fill(nqe, df[2 * i + 1][0] + df[2 * i][0], normal[i],
559 ASSERTL0(
false,
"Edge is out of range (edge < 3)");
566 fac += normal[i][0] * normal[i][0];
568 fac = 1.0 /
sqrt(fac);
581 int nquad0 = ptsKeys[0].GetNumPoints();
582 int nquad1 = ptsKeys[1].GetNumPoints();
595 for (j = 0; j < nquad0; ++j)
600 normals[i * nquad0 + j] =
601 -df[2 * i + 1][j] * edgejac[j];
604 from_key = ptsKeys[0];
607 for (j = 0; j < nquad1; ++j)
609 edgejac[j] = jac[nquad0 * j + nquad0 - 1];
612 normals[i * nquad1 + j] =
613 (df[2 * i][nquad0 * j + nquad0 - 1] +
614 df[2 * i + 1][nquad0 * j + nquad0 - 1]) *
618 from_key = ptsKeys[1];
621 for (j = 0; j < nquad1; ++j)
623 edgejac[j] = jac[nquad0 * j];
626 normals[i * nquad1 + j] =
627 -df[2 * i][nquad0 * j] * edgejac[j];
630 from_key = ptsKeys[1];
633 ASSERTL0(
false,
"edge is out of range (edge < 3)");
647 m_base[0]->GetPointsKey(), &normal[i][0]);
648 Vmath::Vmul(nqe, work, 1, normal[i], 1, normal[i], 1);
655 Vmath::Vvtvp(nqe, normal[i], 1, normal[i], 1, work, 1, work, 1);
665 Vmath::Vmul(nqe, normal[i], 1, work, 1, normal[i], 1);
#define ASSERTL0(condition, msg)
#define ASSERTL1(condition, msg)
Assert Level 1 – Debugging which is used whether in FULLDEBUG or DEBUG compilation mode....
Describes the specification for a Basis.
Defines a specification for a set of points.
PointsType GetPointsType() const
unsigned int GetNumPoints() const
virtual DNekMatSharedPtr v_GenMatrix(const StdRegions::StdMatrixKey &mkey)
std::map< int, NormalVector > m_traceNormals
std::map< int, Array< OneD, NekDouble > > m_elmtBndNormDirElmtLen
the element length in each element boundary(Vertex, edge or face) normal direction calculated based o...
SpatialDomains::GeometrySharedPtr GetGeom() const
SpatialDomains::GeometrySharedPtr m_geom
SpatialDomains::GeomFactorsSharedPtr m_metricinfo
virtual void v_GetCoords(Array< OneD, NekDouble > &coords_1, Array< OneD, NekDouble > &coords_2, Array< OneD, NekDouble > &coords_3)
DNekScalMatSharedPtr GetLocMatrix(const LocalRegions::MatrixKey &mkey)
void AlignVectorToCollapsedDir(const int dir, const Array< OneD, const NekDouble > &inarray, Array< OneD, Array< OneD, NekDouble >> &outarray)
LibUtilities::NekManager< MatrixKey, DNekScalMat, MatrixKey::opLess > m_matrixManager
~NodalTriExp()
Destructor.
void GetCoord(const Array< OneD, const NekDouble > &Lcoords, Array< OneD, NekDouble > &coords)
virtual void v_AlignVectorToCollapsedDir(const int dir, const Array< OneD, const NekDouble > &inarray, Array< OneD, Array< OneD, NekDouble >> &outarray)
void PhysDeriv(const Array< OneD, const NekDouble > &inarray, Array< OneD, NekDouble > &out_d0, Array< OneD, NekDouble > &out_d1, Array< OneD, NekDouble > &out_d2=NullNekDouble1DArray)
Differentiation Methods.
DNekMatSharedPtr CreateStdMatrix(const StdRegions::StdMatrixKey &mkey)
void GetCoords(Array< OneD, NekDouble > &coords_1, Array< OneD, NekDouble > &coords_2, Array< OneD, NekDouble > &coords_3=NullNekDouble1DArray)
void GeneralMatrixOp_MatOp(const Array< OneD, const NekDouble > &inarray, Array< OneD, NekDouble > &outarray, const StdRegions::StdMatrixKey &mkey)
void IProductWRTBase(const Array< OneD, const NekDouble > &inarray, Array< OneD, NekDouble > &outarray)
Inner product of inarray over region with respect to the expansion basis (this)->_Base[0] and return ...
void IProductWRTDerivBase_MatOp(const int dir, const Array< OneD, const NekDouble > &inarray, Array< OneD, NekDouble > &outarray)
void FwdTrans(const Array< OneD, const NekDouble > &inarray, Array< OneD, NekDouble > &outarray)
Forward transform from physical quadrature space stored in inarray and evaluate the expansion coeffic...
void IProductWRTDerivBase_SumFac(const int dir, const Array< OneD, const NekDouble > &inarray, Array< OneD, NekDouble > &outarray)
NekDouble PhysEvaluate(const Array< OneD, const NekDouble > &coord, const Array< OneD, const NekDouble > &physvals)
NekDouble Integral(const Array< OneD, const NekDouble > &inarray)
Integrate the physical point list inarray over region.
void IProductWRTBase_SumFac(const Array< OneD, const NekDouble > &inarray, Array< OneD, NekDouble > &outarray, bool multiplybyweights=true)
void v_ComputeTraceNormal(const int edge)
void IProductWRTBase_MatOp(const Array< OneD, const NekDouble > &inarray, Array< OneD, NekDouble > &outarray)
virtual StdRegions::StdExpansionSharedPtr v_GetStdExp(void) const
virtual DNekMatSharedPtr v_GenMatrix(const StdRegions::StdMatrixKey &mkey)
NodalTriExp(const LibUtilities::BasisKey &Ba, const LibUtilities::BasisKey &Bb, const LibUtilities::PointsType Ntype, const SpatialDomains::TriGeomSharedPtr &geom)
Constructor using BasisKey class for quadrature points and order definition.
virtual StdRegions::StdExpansionSharedPtr v_GetLinStdExp(void) const
static std::shared_ptr< DataType > AllocateSharedPtr(const Args &...args)
Allocate a shared pointer from the memory pool.
void IProductWRTBase_SumFacKernel(const Array< OneD, const NekDouble > &base0, const Array< OneD, const NekDouble > &base1, const Array< OneD, const NekDouble > &inarray, Array< OneD, NekDouble > &outarray, Array< OneD, NekDouble > &wsp, bool doCheckCollDir0=true, bool doCheckCollDir1=true)
int GetTotPoints() const
This function returns the total number of quadrature points used in the element.
LibUtilities::BasisType GetBasisType(const int dir) const
This function returns the type of basis used in the dir direction.
const LibUtilities::PointsKeyVector GetPointsKeys() const
LibUtilities::ShapeType DetShapeType() const
This function returns the shape of the expansion domain.
void MultiplyByQuadratureMetric(const Array< OneD, const NekDouble > &inarray, Array< OneD, NekDouble > &outarray)
Array< OneD, LibUtilities::BasisSharedPtr > m_base
MatrixType GetMatrixType() const
void NodalToModalTranspose(const Array< OneD, const NekDouble > &inarray, Array< OneD, NekDouble > &outarray)
LibUtilities::PointsKey m_nodalPointsKey
static void Dgemv(const char &trans, const int &m, const int &n, const double &alpha, const double *a, const int &lda, const double *x, const int &incx, const double &beta, double *y, const int &incy)
BLAS level 2: Matrix vector multiply y = A x where A[m x n].
static void Daxpy(const int &n, const double &alpha, const double *x, const int &incx, const double *y, const int &incy)
BLAS level 1: y = alpha x plus y.
int getNumberOfCoefficients(int Na)
void Interp1D(const BasisKey &fbasis0, const Array< OneD, const NekDouble > &from, const BasisKey &tbasis0, Array< OneD, NekDouble > &to)
this function interpolates a 1D function evaluated at the quadrature points of the basis fbasis0 to ...
std::vector< PointsKey > PointsKeyVector
std::shared_ptr< GeomFactors > GeomFactorsSharedPtr
Pointer to a GeomFactors object.
GeomType
Indicates the type of element geometry.
@ eRegular
Geometry is straight-sided with constant geometric factors.
@ eMovingRegular
Currently unused.
@ eDeformed
Geometry is curved or has non-constant factors.
std::shared_ptr< TriGeom > TriGeomSharedPtr
std::shared_ptr< StdExpansion > StdExpansionSharedPtr
std::shared_ptr< StdNodalTriExp > StdNodalTriExpSharedPtr
static ConstFactorMap NullConstFactorMap
static VarCoeffMap NullVarCoeffMap
The above copyright notice and this permission notice shall be included.
std::shared_ptr< DNekScalMat > DNekScalMatSharedPtr
std::shared_ptr< DNekMat > DNekMatSharedPtr
void Vsqrt(int n, const T *x, const int incx, T *y, const int incy)
sqrt y = sqrt(x)
void Vmul(int n, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
Multiply vector z = x*y.
void Vvtvp(int n, const T *w, const int incw, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
vvtvp (vector times vector plus vector): z = w*x + y
void Vadd(int n, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
Add vector z = x+y.
void Smul(int n, const T alpha, const T *x, const int incx, T *y, const int incy)
Scalar multiply y = alpha*x.
void Sdiv(int n, const T alpha, const T *x, const int incx, T *y, const int incy)
Scalar multiply y = alpha/y.
void Zero(int n, T *x, const int incx)
Zero vector.
void Fill(int n, const T alpha, T *x, const int incx)
Fill a vector with a constant value.
void Reverse(int n, const T *x, const int incx, T *y, const int incy)
void Vcopy(int n, const T *x, const int incx, T *y, const int incy)
scalarT< T > sqrt(scalarT< T > in)