6 std::cerr <<
"# [MARK] operator+(const _dgbmatrix&, const dgbmatrix&)"
11 if(matA.
N!=matB.N || matA.
M!=matB.M){
12 std::cerr <<
"[ERROR] operator+(_dgbmatrix&, dgbmatrix&)" << std::endl
13 <<
"These two matrises can not make a summation." << std::endl
14 <<
"Your input was (" << matA.
M <<
"x" << matA.
N <<
") + ("
15 << matB.M <<
"x" << matB.N <<
")." << std::endl;
20 if(matA.
KL>=matB.KL && matA.
KU>=matB.KU){
21 for(
long i=0; i<matB.M; i++){
22 for(
long j=max(0,i-matB.KL); j<min(matB.N,i+matB.KU+1); j++){
31 dgbmatrix newmat(matA.
M,matA.
N,max(matA.
KL,matB.KL),max(matA.
KU,matB.KU));
34 for(
long i=0; i<matA.
M; i++){
35 for(
long j=max(0,i-matA.
KL); j<min(matA.
N,i+matA.
KU+1); j++){
36 newmat(i,j)+=matA(i,j);
38 for(
long j=max(0,i-matB.KL); j<min(matB.N,i+matB.KU+1); j++){
39 newmat(i,j)+=matB(i,j);
53 std::cerr <<
"# [MARK] operator-(const _dgbmatrix&, const dgbmatrix&)"
58 if(matA.
N!=matB.N || matA.
M!=matB.M){
59 std::cerr <<
"[ERROR] operator-(_dgbmatrix&, dgbmatrix&)" << std::endl
60 <<
"These two matrises can not make a subtraction." << std::endl
61 <<
"Your input was (" << matA.
M <<
"x" << matA.
N <<
") - ("
62 << matB.M <<
"x" << matB.N <<
")." << std::endl;
67 if(matA.
KL>=matB.KL && matA.
KU>=matB.KU){
68 for(
long i=0; i<matB.M; i++){
69 for(
long j=max(0,i-matB.KL); j<min(matB.N,i+matB.KU+1); j++){
78 dgbmatrix newmat(matA.
M,matA.
N,max(matA.
KL,matB.KL),max(matA.
KU,matB.KU));
81 for(
long i=0; i<matA.
M; i++){
82 for(
long j=max(0,i-matA.
KL); j<min(matA.
N,i+matA.
KU+1); j++){
83 newmat(i,j)+=matA(i,j);
85 for(
long j=max(0,i-matB.KL); j<min(matB.N,i+matB.KU+1); j++){
86 newmat(i,j)-=matB(i,j);
99 std::cerr <<
"# [MARK] operator*(const _dgbmatrix&, const dgbmatrix&)"
105 std::cerr <<
"[ERROR] operator*(_dgbmatrix&, dgbmatrix&)" << std::endl
106 <<
"These two matrises can not make a product." << std::endl
107 <<
"Your input was (" << matA.
M <<
"x" << matA.
N <<
") * ("
108 << matB.M <<
"x" << matB.N <<
")." << std::endl;
113 dgbmatrix newmat( matA.
M, matB.N, matA.
KU+matB.KL-1, matA.
KL+matB.KU+1 );
117 #pragma omp parallel for private(j,k)
118 for(i=0; i<newmat.
m; i++){
119 for(j=max(0,i-newmat.
kl); j<min(newmat.
n,i+newmat.
ku+1); j++){
120 for(k=max( max(0,i-matA.
KL), max(0,j-matB.KU) );
121 k< min( min(matA.
N,i+matA.
KU+1), min(matB.M,j+matB.KL+1) ); k++){
122 newmat(i,j)+= matA(i,k)*matB(k,j);
long KL
lower band width
Definition: _dgbmatrix.hpp:9
long M
matrix row size
Definition: _dgbmatrix.hpp:7
void destroy() const
Definition: _dgbmatrix-misc.hpp:3
long const & kl
lower band width (readable)
Definition: dgbmatrix.hpp:18
long const & m
matrix row size (readable)
Definition: dgbmatrix.hpp:16
long N
matrix column size
Definition: _dgbmatrix.hpp:8
friend _drovector operator-(const _drovector &)
Definition: _drovector-unary.hpp:15
Real Double-precision General Band Matrix Class.
Definition: dgbmatrix.hpp:3
void zero()
Definition: dgbmatrix-misc.hpp:29
long const & ku
upper band width (readable)
Definition: dgbmatrix.hpp:19
friend _drovector operator*(const drovector &, const dgematrix &)
Definition: drovector-dgematrix.hpp:3
long const & n
matrix column size (readable)
Definition: dgbmatrix.hpp:17
(DO NOT USE) Smart-temporary Real Double-precision General Band Matrix Class
Definition: _dgbmatrix.hpp:3
long KU
upper band width
Definition: _dgbmatrix.hpp:10
friend const _drovector & operator+(const _drovector &)
Definition: _drovector-unary.hpp:3