1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
/******************************************************************************
* SOFA, Simulation Open-Framework Architecture, version 1.0 beta 4 *
* (c) 2006-2009 MGH, INRIA, USTL, UJF, CNRS *
* *
* This library is free software; you can redistribute it and/or modify it *
* under the terms of the GNU Lesser General Public License as published by *
* the Free Software Foundation; either version 2.1 of the License, or (at *
* your option) any later version. *
* *
* This library is distributed in the hope that it will be useful, but WITHOUT *
* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or *
* FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License *
* for more details. *
* *
* You should have received a copy of the GNU Lesser General Public License *
* along with this library; if not, write to the Free Software Foundation, *
* Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. *
*******************************************************************************
* SOFA :: Modules *
* *
* Authors: The SOFA Team and external contributors (see Authors.txt) *
* *
* Contact information: contact@sofa-framework.org *
******************************************************************************/
// Author: Hadrien Courtecuisse
//
// Copyright: See COPYING file that comes with this distribution
#include <sofa/component/linearsolver/BlockJacobiPreconditioner.h>
#include <sofa/component/linearsolver/NewMatMatrix.h>
#include <sofa/component/linearsolver/FullMatrix.h>
#include <sofa/component/linearsolver/SparseMatrix.h>
#include <sofa/core/ObjectFactory.h>
#include <iostream>
#include "sofa/helper/system/thread/CTime.h"
#include <sofa/core/objectmodel/BaseContext.h>
#include <sofa/core/componentmodel/behavior/LinearSolver.h>
#include <math.h>
namespace sofa {
namespace component {
namespace linearsolver {
using namespace sofa::defaulttype;
using namespace sofa::core::componentmodel::behavior;
using namespace sofa::simulation;
using namespace sofa::core::objectmodel;
using std::cerr;
using std::endl;
template<class TMatrix, class TVector>
BlockJacobiPreconditioner<TMatrix,TVector>::BlockJacobiPreconditioner()
: f_verbose( initData(&f_verbose,false,"verbose","Dump system state at each iteration") )
, f_graph( initData(&f_graph,"graph","Graph of residuals at each iteration") ) {
f_graph.setWidget("graph");
f_graph.setReadOnly(true);
}
template<class TMatrix, class TVector>
void BlockJacobiPreconditioner<TMatrix,TVector>::solve (Matrix& M, Vector& z, Vector& r) {
for (unsigned l=0;l<z.size();l+=bsize) {
for (unsigned j=0;j<bsize;j++) {
z.set(j+l,0);
for (unsigned i=0;i<bsize;i++) {
z.add(j+l,M.element(l+i,l+j) * r.element(i+l));
}
}
}
}
template<class TMatrix, class TVector>
void BlockJacobiPreconditioner<TMatrix,TVector>::invert(Matrix& M) {
bsize = this->systemMatrix->bandWidth+1;
for (unsigned l=0;l<M.rowSize();l+=bsize) {
M.setSubMatrix(l,l,bsize,bsize,M.sub(l,l,bsize,bsize).i());
}
}
SOFA_DECL_CLASS(BlockJacobiPreconditioner)
int BlockJacobiPreconditionerClass = core::RegisterObject("Linear system solver using the conjugate gradient iterative algorithm")
//.add< BlockJacobiPreconditioner<GraphScatteredMatrix,GraphScatteredVector> >(true)
//.add< BlockJacobiPreconditioner< SparseMatrix<double>, FullVector<double> > >(true)
.add< BlockJacobiPreconditioner<NewMatBandMatrix,NewMatVector> >(true)
//.add< BlockJacobiPreconditioner<NewMatMatrix,NewMatVector> >()
//.add< BlockJacobiPreconditioner<NewMatSymmetricMatrix,NewMatVector> >()
.add< BlockJacobiPreconditioner<NewMatSymmetricBandMatrix,NewMatVector> >()
//.add< BlockJacobiPreconditioner< FullMatrix<double>, FullVector<double> > >()
.addAlias("BJCGSolver")
.addAlias("BJConjugateGradient")
;
} // namespace linearsolver
} // namespace component
} // namespace sofa
|
