Go to the source code of this file.
_dgbmatrix+dsymatrix operator
Definition at line 3 of file _dgbmatrix-dsymatrix.hpp.
References _(), _dgbmatrix::destroy(), i(), _dgbmatrix::kl, _dgbmatrix::ku, _dgbmatrix::m, dsymatrix::n, _dgbmatrix::n, and dsymatrix::to_dgematrix().
6 if(matA.
m!=matB.
n || matA.
n!=matB.
n){
8 std::cerr <<
"These two matrises can not make a summation." << std::endl
9 <<
"Your input was (" << matA.
m <<
"x" << matA.
n <<
") + (" << matB.
n <<
"x" << matB.
n <<
")." << std::endl;
15 for(CPPL_INT
i=0;
i<matA.
m;
i++){
16 const CPPL_INT jmax =std::min(matA.
n,
i+matA.
ku+1);
17 for(CPPL_INT j=std::max(CPPL_INT(0),
i-matA.
kl); j<jmax; j++){
18 newmat(
i,j) += matA(
i,j);
CPPL_INT ku
upper band width
_dgematrix i(const _dgbmatrix &mat)
Real Double-precision General Dence Matrix Class.
CPPL_INT kl
lower band width
CPPL_INT n
matrix column size
_dgematrix to_dgematrix() const
CPPL_INT n
matrix column size
_dcovector _(dcovector &vec)
CPPL_INT m
matrix row size
_dgbmatrix-dsymatrix operator
Definition at line 28 of file _dgbmatrix-dsymatrix.hpp.
References _(), _dgbmatrix::destroy(), i(), _dgbmatrix::kl, _dgbmatrix::ku, _dgbmatrix::m, _dgbmatrix::n, and dsymatrix::n.
31 if(matA.
m!=matB.
n || matA.
n!=matB.
n){
33 std::cerr <<
"These two matrises can not make a summation." << std::endl
34 <<
"Your input was (" << matA.
m <<
"x" << matA.
n <<
") + (" << matB.
n <<
"x" << matB.
n <<
")." << std::endl;
39 dgematrix newmat( (-matB).to_dgematrix() );
40 for(CPPL_INT
i=0;
i<matA.
m;
i++){
41 const CPPL_INT jmax =std::min(matA.
n,
i+matA.
ku+1);
42 for(CPPL_INT j=std::max(CPPL_INT(0),
i-matA.
kl); j<jmax; j++){
43 newmat(
i,j) += matA(
i,j);
CPPL_INT ku
upper band width
_dgematrix i(const _dgbmatrix &mat)
Real Double-precision General Dence Matrix Class.
CPPL_INT kl
lower band width
CPPL_INT n
matrix column size
CPPL_INT n
matrix column size
_dcovector _(dcovector &vec)
CPPL_INT m
matrix row size
_dgbmatrix*dgematrix operator
Definition at line 53 of file _dgbmatrix-dsymatrix.hpp.
References _(), _dgbmatrix::destroy(), i(), _dgbmatrix::kl, _dgbmatrix::ku, _dgbmatrix::m, dgematrix::m, dsymatrix::n, dgematrix::n, _dgbmatrix::n, and dgematrix::zero().
58 std::cerr <<
"These two matrises can not make a product." << std::endl
59 <<
"Your input was (" << matA.
m <<
"x" << matA.
n <<
") * (" << matB.
n <<
"x" << matB.
n <<
")." << std::endl;
67 for(CPPL_INT
i=0;
i<newmat.
m;
i++){
68 for(CPPL_INT j=0; j<newmat.n; j++){
69 const CPPL_INT kmax =std::min(matA.
n,
i+matA.
ku+1);
70 for(CPPL_INT k=std::max(CPPL_INT(0),
i-matA.
kl); k<kmax; k++){
71 newmat(
i,j) += matA(
i,k)*matB(k,j);
CPPL_INT ku
upper band width
_dgematrix i(const _dgbmatrix &mat)
Real Double-precision General Dence Matrix Class.
CPPL_INT kl
lower band width
CPPL_INT n
matrix column size
CPPL_INT m
matrix row size
CPPL_INT n
matrix column size
_dcovector _(dcovector &vec)
CPPL_INT m
matrix row size