VERB_code_2.3
zssmatrix-_zgbmatrix.hpp
1 //=============================================================================
3 inline _zgematrix operator+(const zssmatrix& matA, const _zgbmatrix& matB)
4 {
5 #ifdef CPPL_VERBOSE
6  std::cerr << "# [MARK] operator+(const zssmatrix&, const _zgbmatrix&)"
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 zssmatrix&, const zgbmatrix&)"
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  zgematrix 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  matB.destroy();
30  return _(newmat);
31 }
32 
33 //=============================================================================
35 inline _zgematrix operator-(const zssmatrix& matA, const _zgbmatrix& matB)
36 {
37 #ifdef CPPL_VERBOSE
38  std::cerr << "# [MARK] operator-(const zssmatrix&, const _zgbmatrix&)"
39  << std::endl;
40 #endif//CPPL_VERBOSE
41 
42 #ifdef CPPL_DEBUG
43  if(matA.N!=matB.N || matA.M!=matB.M){
44  std::cerr << "[ERROR] operator+(const zssmatrix&, const _zgbmatrix&)"
45  << std::endl
46  << "These two matrises can not make a summation." << std::endl
47  << "Your input was (" << matA.M << "x" << matA.N << ") + ("
48  << matB.M << "x" << matB.N << ")." << std::endl;
49  exit(1);
50  }
51 #endif//CPPL_DEBUG
52 
53  zgematrix newmat(matA);
54 
55  for(long i=0; i<matB.M; i++){
56  for(long j=max(0,i-matB.KL); j<min(matB.N,i+matB.KU+1); j++){
57  newmat(i,j)-=matB(i,j);
58  }
59  }
60 
61  matB.destroy();
62  return _(newmat);
63 }
64 
65 //=============================================================================
67 inline _zgematrix operator*(const zssmatrix& matA, const _zgbmatrix& matB)
68 {
69 #ifdef CPPL_VERBOSE
70  std::cerr << "# [MARK] operator*(const zssmatrix&, const _zgbmatrix&)"
71  << std::endl;
72 #endif//CPPL_VERBOSE
73 
74 #ifdef CPPL_DEBUG
75  if(matA.N!=matB.M){
76  std::cerr << "[ERROR] operator*(const zssmatrix&, const _zgbmatrix&)"
77  << std::endl
78  << "These two matrises can not make a product." << std::endl
79  << "Your input was (" << matA.M << "x" << matA.N << ") * ("
80  << matB.M << "x" << matB.N << ")." << std::endl;
81  exit(1);
82  }
83 #endif//CPPL_DEBUG
84 
85  zgematrix newmat( matA.M, matB.N );
86  newmat.zero();
87 
88  for(long c=0; c<matA.VOL; c++){
89  for(long k=max(0,matA.Jndx[c]-matB.KU);
90  k<min(matB.M,matA.Jndx[c]+matB.KL+1); k++){
91  newmat(matA.Indx[c],k) += matA.Array[c]*matB(matA.Jndx[c],k);
92  }
93  }
94 
95  matB.destroy();
96  return _(newmat);
97 }
double max(double v1, double v2)
Return maximum.
Definition: variousFunctions.cpp:355
friend _zrovector operator-(const _zrovector &)
Definition: _zrovector-unary.hpp:15
long N
matrix column size
Definition: _zgbmatrix.hpp:8
void destroy() const
Definition: _zgbmatrix-misc.hpp:3
Complex Double-precision General Dence Matrix Class.
Definition: zgematrix.hpp:3
long KU
upper band width
Definition: _zgbmatrix.hpp:10
(DO NOT USE) Smart-temporary Complex Double-precision General Dence Matrix Class
Definition: _zgematrix.hpp:3
void zero()
Definition: zgematrix-misc.hpp:26
friend _zrovector operator*(const zrovector &, const zgematrix &)
Definition: zrovector-zgematrix.hpp:3
long M
matrix row size
Definition: _zgbmatrix.hpp:7
(DO NOT USE) Smart-temporary Complex Double-precision General Band Matrix Class
Definition: _zgbmatrix.hpp:3
Complex Double-precision Sparse Matrix Class.
Definition: zssmatrix.hpp:3
friend const _zrovector & operator+(const _zrovector &)
Definition: _zrovector-unary.hpp:3
long KL
lower band width
Definition: _zgbmatrix.hpp:9