OilfieldToolsNet/IFEM
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixed: do not use a dense matrix for interpolation in ASMu2D

Browse Source 
this is a sparse system
This commit is contained in:
Arne Morten Kvarving 2016-11-09 14:49:47 +01:00
parent d7575b0397
commit cda2808640
1 changed files with 20 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
src/ASM/LR/ASMu2Drecovery.C
View File

@ -414,19 +414,23 @@ LR::LRSplineSurface* ASMu2D::regularInterpolation (const RealArray& upar,
return nullptr;
}
DenseMatrix A(nBasis,nBasis);
Matrix B(points,true);
SparseMatrix A(SparseMatrix::SUPERLU);
A.resize(nBasis, nBasis);
Matrix B2(points,true); // transpose to get one vector per field
StdVector B(B2);
Go::BasisPtsSf splineValues;
// Evaluate all basis functions at all points, stored in the A-matrix
// (same row = same evaluation point)
for (size_t i = 0; i < nBasis; i++)
{
lrspline->computeBasis(upar[i],vpar[i],splineValues);
// optimization note:
// without an element id, splineValues will be stored as a full dense vector
for (size_t j = 0; j < nBasis; j++)
A(i+1,j+1) = splineValues.basisValues[j];
int iel = lrspline->getElementContaining(upar[i], vpar[i]);
lrspline->computeBasis(upar[i],vpar[i],splineValues, iel);
size_t k = 0;
for (auto& function : lrspline->getElement(iel)->support()) {
int j = function->getId();
A(i+1,j+1) = splineValues.basisValues[k++];
}
}
// Solve for all solution components - one right-hand-side for each
@ -435,14 +439,17 @@ LR::LRSplineSurface* ASMu2D::regularInterpolation (const RealArray& upar,
// Copy all basis functions and mesh
LR::LRSplineSurface* ans = lrspline->copy();
ans->rebuildDimension(B.cols());
ans->rebuildDimension(points.rows());
// Swap around the control point values
for (size_t j = 0; j < B.cols(); j++) {
size_t i = 0;
for (LR::Basisfunction* b : ans->getAllBasisfunctions())
b->cp()[j] = B(++i,j+1);
// Back to interleaved data
std::vector<double> interleave;
interleave.reserve(B.dim());
for (size_t i = 0; i < nBasis; ++i)
for (size_t j = 0; j < points.rows(); j++) {
interleave.push_back(B(1+j*points.cols()+i));
}
ans->setControlPoints(interleave);
return ans;
}