VERB_code_2.3
_dssmatrix-_dgbmatrix.hpp
1 //=============================================================================
3 inline _dgematrix operator+(const _dssmatrix& matA, const _dgbmatrix& matB)
4 {
5 #ifdef CPPL_VERBOSE
6  std::cerr << "# [MARK] operator+(const _dssmatrix&, const _dgbmatrix&)"
7  << std::endl;
8 #endif//CPPL_VERBOSE
9 
10 #ifdef CPPL_DEBUG
11  if(matA.N!=matB.N || matA.M!=matB.M){
12  std::cerr << "[ERROR] operator+(const _dssmatrix&, const dgbmatrix&)"
13  << std::endl
14  << "These two matrises can not make a summation." << std::endl
15  << "Your input was (" << matA.M << "x" << matA.N << ") + ("
16  << matB.M << "x" << matB.N << ")." << std::endl;
17  exit(1);
18  }
19 #endif//CPPL_DEBUG
20 
21  dgematrix newmat(matA);
22 
23  for(long i=0; i<matB.M; i++){
24  for(long j=max(0,i-matB.KL); j<min(matB.N,i+matB.KU+1); j++){
25  newmat(i,j)+=matB(i,j);
26  }
27  }
28 
29  matA.destroy();
30  matB.destroy();
31  return _(newmat);
32 }
33 
34 //=============================================================================
36 inline _dgematrix operator-(const _dssmatrix& matA, const _dgbmatrix& matB)
37 {
38 #ifdef CPPL_VERBOSE
39  std::cerr << "# [MARK] operator-(const _dssmatrix&, const _dgbmatrix&)"
40  << std::endl;
41 #endif//CPPL_VERBOSE
42 
43 #ifdef CPPL_DEBUG
44  if(matA.N!=matB.N || matA.M!=matB.M){
45  std::cerr << "[ERROR] operator+(const _dssmatrix&, const _dgbmatrix&)"
46  << std::endl
47  << "These two matrises can not make a summation." << std::endl
48  << "Your input was (" << matA.M << "x" << matA.N << ") + ("
49  << matB.M << "x" << matB.N << ")." << std::endl;
50  exit(1);
51  }
52 #endif//CPPL_DEBUG
53 
54  dgematrix newmat(matA);
55 
56  for(long i=0; i<matB.M; i++){
57  for(long j=max(0,i-matB.KL); j<min(matB.N,i+matB.KU+1); j++){
58  newmat(i,j)-=matB(i,j);
59  }
60  }
61 
62  matA.destroy();
63  matB.destroy();
64  return _(newmat);
65 }
66 
67 //=============================================================================
69 inline _dgematrix operator*(const _dssmatrix& matA, const _dgbmatrix& matB)
70 {
71 #ifdef CPPL_VERBOSE
72  std::cerr << "# [MARK] operator*(const _dssmatrix&, const _dgbmatrix&)"
73  << std::endl;
74 #endif//CPPL_VERBOSE
75 
76 #ifdef CPPL_DEBUG
77  if(matA.N!=matB.M){
78  std::cerr << "[ERROR] operator*(const _dssmatrix&, const _dgbmatrix&)"
79  << std::endl
80  << "These two matrises can not make a product." << std::endl
81  << "Your input was (" << matA.M << "x" << matA.N << ") * ("
82  << matB.M << "x" << matB.N << ")." << std::endl;
83  exit(1);
84  }
85 #endif//CPPL_DEBUG
86 
87  dgematrix newmat( matA.M, matB.N );
88  newmat.zero();
89 
90  for(long c=0; c<matA.VOL; c++){
91  for(long k=max(0,matA.Jndx[c]-matB.KU);
92  k<min(matB.M,matA.Jndx[c]+matB.KL+1); k++){
93  newmat(matA.Indx[c],k) += matA.Array[c]*matB(matA.Jndx[c],k);
94  }
95  }
96 
97  matA.destroy();
98  matB.destroy();
99  return _(newmat);
100 }
void zero()
Definition: dgematrix-misc.hpp:26
double max(double v1, double v2)
Return maximum.
Definition: variousFunctions.cpp:355
long KL
lower band width
Definition: _dgbmatrix.hpp:9
(DO NOT USE) Smart-temporary Real Double-precision Sparse Matrix Class
Definition: _dssmatrix.hpp:3
long M
matrix row size
Definition: _dgbmatrix.hpp:7
void destroy() const
Definition: _dgbmatrix-misc.hpp:3
long M
matrix row size
Definition: _dssmatrix.hpp:7
Real Double-precision General Dence Matrix Class.
Definition: dgematrix.hpp:3
long N
matrix column size
Definition: _dgbmatrix.hpp:8
friend _drovector _(drovector &)
Definition: drovector-misc.hpp:131
long * Indx
1D array to store the i-index of non-zero matrix components
Definition: _dssmatrix.hpp:12
friend _drovector operator*(const drovector &, const dgematrix &)
Definition: drovector-dgematrix.hpp:3
double * Array
1D array to store non-zero matrix data
Definition: _dssmatrix.hpp:11
(DO NOT USE) Smart-temporary Real Double-precision General Dence Matrix Class
Definition: _dgematrix.hpp:3
long VOL
the number of non-zero components
Definition: _dssmatrix.hpp:10
friend const drovector & operator+(const drovector &)
Definition: drovector-unary.hpp:3
long * Jndx
1D array to store the j-index of non-zero matrix components
Definition: _dssmatrix.hpp:13
(DO NOT USE) Smart-temporary Real Double-precision General Band Matrix Class
Definition: _dgbmatrix.hpp:3
long N
matrix column size
Definition: _dssmatrix.hpp:8
void destroy() const
Definition: _dssmatrix-misc.hpp:3
long KU
upper band width
Definition: _dgbmatrix.hpp:10
friend _drovector operator-(const drovector &)
Definition: drovector-unary.hpp:15