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

Merge pull request #69 from akva2/fix_lr_interpolation_hdf5

Browse Source 
Fix two LR issues
This commit is contained in:
Kjetil Andre Johannessen 2016-11-10 15:14:11 +01:00 committed by GitHub
commit 8d81496e68
2 changed files with 25 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Apps/Common/SIMSolverAdap.h
View File

@ -28,7 +28,11 @@ template<class T1> class SIMSolverAdap : public SIMSolver<T1>
{
public:
//! \brief The constructor forwards to the parent class constructor.
SIMSolverAdap(T1& s1) : SIMSolver<T1>(s1), aSim(s1,false) {}
SIMSolverAdap(T1& s1) : SIMSolver<T1>(s1), aSim(s1,false)
{
this->S1.setSol(&aSim.getSolution());
}
//! \brief Empty destructor.
virtual ~SIMSolverAdap() {}
@ -39,7 +43,6 @@ public:
if (exporter)
exporter->setNormPrefixes(aSim.getNormPrefixes());
this->S1.setSol(&aSim.getSolution());
aSim.setupProjections();
aSim.initAdaptor(0,2);

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;
}