My Project
_zgematrix-_zssmatrix.hpp
1 //=============================================================================
3 inline _zgematrix operator+(const _zgematrix& matA, const _zssmatrix& matB)
4 {
5 #ifdef CPPL_VERBOSE
6  std::cerr << "# [MARK] operator+(const _zgematrix&, const _zssmatrix&)"
7  << std::endl;
8 #endif//CPPL_VERBOSE
9 
10 #ifdef CPPL_DEBUG
11  if(matA.M!=matB.M || matA.N!=matB.N){
12  std::cerr << "[ERROR] operator+(const _zgematrix&, const _zssmatrix&)"
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  for(long c=0; c<matB.VOL; c++){
22  matA(matB.Indx[c],matB.Jndx[c]) += matB.Array[c];
23  }
24 
25  matB.destroy();
26  return matA;
27 }
28 
29 //=============================================================================
31 inline _zgematrix operator-(const _zgematrix& matA, const _zssmatrix& matB)
32 {
33 #ifdef CPPL_VERBOSE
34  std::cerr << "# [MARK] operator-(const _zgematrix&, const _zssmatrix&)"
35  << std::endl;
36 #endif//CPPL_VERBOSE
37 
38 #ifdef CPPL_DEBUG
39  if(matA.M!=matB.M || matA.N!=matB.N){
40  std::cerr << "[ERROR] operator-(const _zgematrix&, const _zssmatrix&)"
41  << std::endl
42  << "These two matrises can not make a subtraction." << std::endl
43  << "Your input was (" << matA.M << "x" << matA.N << ") - ("
44  << matB.N << "x" << matB.N << ")." << std::endl;
45  exit(1);
46  }
47 #endif//CPPL_DEBUG
48 
50  for(long i=0; i<matA.M*matA.N; i++){
51  matA.Array[i]=-matA.Array[i];
52  }
53 
55  for(long c=0; c<matB.VOL; c++){
56  matA(matB.Indx[c],matB.Jndx[c]) += matB.Array[c];
57  }
58 
59  matB.destroy();
60  return matA;
61 }
62 
63 //=============================================================================
65 inline _zgematrix operator*(const _zgematrix& matA, const _zssmatrix& matB)
66 {
67 #ifdef CPPL_VERBOSE
68  std::cerr << "# [MARK] operator*(const _zgematrix&, const _zssmatrix&)"
69  << std::endl;
70 #endif//CPPL_VERBOSE
71 
72 #ifdef CPPL_DEBUG
73  if(matA.N!=matB.M){
74  std::cerr << "[ERROR] operator*(const _zgematrix&, const _zssmatrix&)"
75  << std::endl
76  << "These two matrises can not make a product." << std::endl
77  << "Your input was (" << matA.M << "x" << matA.N << ") * ("
78  << matB.N << "x" << matB.N << ")." << std::endl;
79  exit(1);
80  }
81 #endif//CPPL_DEBUG
82 
83  zgematrix newmat(matA.M, matB.N);
84  newmat.zero();
85 
86  for(long c=0; c<matB.VOL; c++){
87  for(long i=0; i<matA.M; i++){
88  newmat(i,matB.Jndx[c]) += matA(i,matB.Indx[c])*matB.Array[c];
89  }
90  }
91 
92  matA.destroy();
93  matB.destroy();
94  return _(newmat);
95 }
long M
matrix row size
Definition: _zssmatrix.hpp:7
long VOL
the number of non-zero components
Definition: _zssmatrix.hpp:10
(DO NOT USE) Smart-temporary Complex Double-precision Sparse Matrix Class
Definition: _zssmatrix.hpp:3
long N
matrix column size
Definition: _zgematrix.hpp:8
friend _zrovector operator-(const _zrovector &)
Definition: _zrovector-unary.hpp:15
Complex Double-precision General Dence Matrix Class.
Definition: zgematrix.hpp:3
(DO NOT USE) Smart-temporary Complex Double-precision General Dence Matrix Class
Definition: _zgematrix.hpp:3
void destroy() const
Definition: _zgematrix-misc.hpp:3
void zero()
Definition: zgematrix-misc.hpp:26
std::complex< double > * Array
1D array to store non-zero matrix data
Definition: _zssmatrix.hpp:11
std::complex< double > * Array
1D Array to store matrix data
Definition: _zgematrix.hpp:9
void destroy() const
Definition: _zssmatrix-misc.hpp:3
friend _zrovector operator*(const zrovector &, const zgematrix &)
Definition: zrovector-zgematrix.hpp:3
long M
matrix row size
Definition: _zgematrix.hpp:7
long N
matrix column size
Definition: _zssmatrix.hpp:8
long * Jndx
1D array to store the j-index of non-zero matrix components
Definition: _zssmatrix.hpp:13
friend const _zrovector & operator+(const _zrovector &)
Definition: _zrovector-unary.hpp:3
long * Indx
1D array to store the i-index of non-zero matrix components
Definition: _zssmatrix.hpp:12