My Project
_dgematrix-_dgbmatrix.hpp
1 //=============================================================================
3 inline _dgematrix operator+(const _dgematrix& matA, const _dgbmatrix& matB)
4 {
5 #ifdef CPPL_VERBOSE
6  std::cerr << "# [MARK] operator+(const _dgematrix&, 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+(_dgematrix&, _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;
16  exit(1);
17  }
18 #endif//CPPL_DEBUG
19 
20  for(long i=0; i<matB.M; i++){
21  for(long j=max(0,i-matB.KL); j<min(matB.N,i+matB.KU+1); j++){
22  matA(i,j)+=matB(i,j);
23  }
24  }
25 
26  matB.destroy();
27  return matA;
28 }
29 
30 //=============================================================================
32 inline _dgematrix operator-(const _dgematrix& matA, const _dgbmatrix& matB)
33 {
34 #ifdef CPPL_VERBOSE
35  std::cerr << "# [MARK] operator-(const _dgematrix&, const _dgbmatrix&)"
36  << std::endl;
37 #endif//CPPL_VERBOSE
38 
39 #ifdef CPPL_DEBUG
40  if(matA.N!=matB.N || matA.M!=matB.M){
41  std::cerr << "[ERROR] operator+(_dgematrix&, _dgbmatrix&)" << std::endl
42  << "These two matrises can not make a summation." << std::endl
43  << "Your input was (" << matA.M << "x" << matA.N << ") + ("
44  << matB.M << "x" << matB.N << ")." << std::endl;
45  exit(1);
46  }
47 #endif//CPPL_DEBUG
48 
49  for(long i=0; i<matB.M; i++){
50  for(long j=max(0,i-matB.KL); j<min(matB.N,i+matB.KU+1); j++){
51  matA(i,j)-=matB(i,j);
52  }
53  }
54 
55  matB.destroy();
56  return matA;
57 }
58 
59 //=============================================================================
61 inline _dgematrix operator*(const _dgematrix& matA, const _dgbmatrix& matB)
62 {
63 #ifdef CPPL_VERBOSE
64  std::cerr << "# [MARK] operator*(const _dgematrix&, const _dgbmatrix&)"
65  << std::endl;
66 #endif//CPPL_VERBOSE
67 
68 #ifdef CPPL_DEBUG
69  if(matA.N!=matB.M){
70  std::cerr << "[ERROR] operator*(_dgematrix&, _dgbmatrix&)" << std::endl
71  << "These two matrises can not make a product." << std::endl
72  << "Your input was (" << matA.M << "x" << matA.N << ") * ("
73  << matB.M << "x" << matB.N << ")." << std::endl;
74  exit(1);
75  }
76 #endif//CPPL_DEBUG
77 
78  dgematrix newmat( matA.M, matB.N );
79  newmat.zero();
80 
81  long i, j, k;
82 #pragma omp parallel for private(j,k)
83  for(i=0; i<newmat.m; i++){
84  for(j=0; j<newmat.n; j++){
85  for(k=max(0,j-matB.KU); k<min(matB.M,j+matB.KL+1); k++){
86  newmat(i,j)+=matA(i,k)*matB(k,j);
87  }
88  }
89  }
90 
91  matA.destroy();
92  matB.destroy();
93  return _(newmat);
94 }
void zero()
Definition: dgematrix-misc.hpp:26
long const & n
matrix column size (readable)
Definition: dgematrix.hpp:15
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
Real Double-precision General Dence Matrix Class.
Definition: dgematrix.hpp:3
long N
matrix column size
Definition: _dgbmatrix.hpp:8
friend _drovector operator-(const _drovector &)
Definition: _drovector-unary.hpp:15
(DO NOT USE) Smart-temporary Real Double-precision General Dence Matrix Class
Definition: _dgematrix.hpp:3
long N
matrix column size
Definition: _dgematrix.hpp:8
long const & m
matrix row size (readable)
Definition: dgematrix.hpp:14
friend _drovector operator*(const drovector &, const dgematrix &)
Definition: drovector-dgematrix.hpp:3
(DO NOT USE) Smart-temporary Real Double-precision General Band Matrix Class
Definition: _dgbmatrix.hpp:3
void destroy() const
Definition: _dgematrix-misc.hpp:3
long KU
upper band width
Definition: _dgbmatrix.hpp:10
friend const _drovector & operator+(const _drovector &)
Definition: _drovector-unary.hpp:3
long M
matrix row size
Definition: _dgematrix.hpp:7