public override IFetiPreconditioner CreatePreconditioner(IStructuralModel model,
IStiffnessDistribution stiffnessDistribution, IDofSeparator dofSeparator,
ILagrangeMultipliersEnumerator lagrangeEnumerator, Dictionary <int, IFetiSubdomainMatrixManager> matrixManagers)
{
IReadOnlyList <ISubdomain> subdomains = model.Subdomains;
int[] subdomainIDs = dofSeparator.BoundaryDofIndices.Keys.ToArray();
Dictionary <int, IMappingMatrix> boundaryBooleans = CalcBoundaryPreconditioningBooleanMatrices(
stiffnessDistribution, dofSeparator, lagrangeEnumerator);
foreach (int s in subdomainIDs)
{
if (!subdomains[s].StiffnessModified)
{
continue;
}
Debug.WriteLine($"{typeof(DiagonalDirichletPreconditioner).Name}.{this.GetType().Name}:"
+ $" Extracting boundary/internal submatrices of subdomain {s} for preconditioning");
IFetiSubdomainMatrixManager matrixManager = matrixManagers[s];
int[] boundaryDofs = dofSeparator.BoundaryDofIndices[s];
int[] internalDofs = dofSeparator.InternalDofIndices[s];
matrixManager.ExtractKbb(boundaryDofs);
matrixManager.ExtractKbiKib(boundaryDofs, internalDofs);
matrixManager.ExtractAndInvertKiiDiagonal(internalDofs);
}
return(new DiagonalDirichletPreconditioner(subdomainIDs, matrixManagers, boundaryBooleans));
}
public void SolveLinearSystems(Matrix rhs, Matrix lhs)
{
lhs.Clear(); //TODO: this should be avoided
foreach (int s in subdomainIDs)
{
IFetiSubdomainMatrixManager matrixManager = matrixManagers[s];
IMappingMatrix Bpb = preconditioningBoundarySignedBooleanMatrices[s];
// inv(F) * y: Bpb * Kbb * Bpb^T * Y
Matrix temp = Bpb.MultiplyRight(rhs, true);
temp = matrixManager.MultiplyKbbTimes(temp);
Matrix subdomainContribution = Bpb.MultiplyRight(temp);
lhs.AddIntoThis(subdomainContribution);
}
}
public void SolveLinearSystems(Matrix rhs, Matrix lhs)
{
lhs.Clear(); //TODO: this should be avoided
foreach (int s in subdomainIDs)
{
IFetiSubdomainMatrixManager matrixManager = matrixManagers[s];
IMappingMatrix Bpb = preconditioningBoundarySignedBooleanMatrices[s];
// inv(F) * Y = Bpb * S * Bpb^T * Y
// S = Kbb - Kbi * inv(Dii) * Kib
Matrix BY = Bpb.MultiplyRight(rhs, true);
Matrix temp = matrixManager.MultiplyKibTimes(BY);
temp = matrixManager.MultiplyInverseKiiDiagonalTimes(temp);
temp = matrixManager.MultiplyKbiTimes(temp);
temp = matrixManager.MultiplyKbbTimes(BY) - temp;
Matrix subdomainContribution = Bpb.MultiplyRight(temp);
lhs.AddIntoThis(subdomainContribution);
}
}
public void SolveLinearSystem(Vector rhs, Vector lhs)
{
lhs.Clear(); //TODO: this should be avoided
foreach (int s in subdomainIDs)
{
IFetiSubdomainMatrixManager matrixManager = matrixManagers[s];
IMappingMatrix Bpb = preconditioningBoundarySignedBooleanMatrices[s];
// inv(F) * y = Bpb * S * Bpb^T * y
// S = Kbb - Kbi * inv(Dii) * Kib
Vector By = Bpb.Multiply(rhs, true);
Vector temp = matrixManager.MultiplyKibTimes(By);
temp = matrixManager.MultiplyInverseKiiDiagonalTimes(temp);
temp = matrixManager.MultiplyKbiTimes(temp);
temp = matrixManager.MultiplyKbbTimes(By) - temp;
Vector subdomainContribution = Bpb.Multiply(temp);
lhs.AddIntoThis(subdomainContribution);
}
}
