dgsmatrix-calc.hpp File Reference

Go to the source code of this file.

Functions
_dgsmatrix	t (const dgsmatrix &mat)
void	idamax (CPPL_INT &i, CPPL_INT &j, const dgsmatrix &mat)
double	damax (const dgsmatrix &mat)

Function Documentation

_dgsmatrix t ( const dgsmatrix &  mat )

inline

return transposed dgsmatrix

Definition at line 3 of file dgsmatrix-calc.hpp.

References _(), dgsmatrix::cols, dgsmatrix::data, dgsmatrix::m, dgsmatrix::n, dgsmatrix::rows, and swap().

{CPPL_VERBOSE_REPORT;
  dgsmatrix newmat =mat;
  
  std::swap(newmat.m,newmat.n);
  std::swap(newmat.rows,newmat.cols);
  const std::vector<dcomponent>::iterator newmat_data_end =newmat.data.end();
  for(std::vector<dcomponent>::iterator it=newmat.data.begin(); it!=newmat_data_end; it++){
    std::swap(it->i,it->j);
  }
  
  return _(newmat);
}

void idamax ( CPPL_INT &  i, CPPL_INT &  j, const dgsmatrix &  mat  )

inline

search the index of element having the largest absolute value in 0-based numbering system

Definition at line 23 of file dgsmatrix-calc.hpp.

References dgsmatrix::data.

{CPPL_VERBOSE_REPORT;
  //////// exception ////////
  if(mat.data.size()==0){
    WARNING_REPORT;
    std::cerr << "The dgsmatrix is a zero matrix." << std::endl;
    return;
  }
  
  //////// find ////////
  std::vector<dcomponent>::const_iterator itx(mat.data.begin());
  double vmax =0.;
  
  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
    if( vmax < fabs(it->v) ){
      vmax =fabs(it->v);
      itx =it;
    }
  }
  
  i =itx->i;
  j =itx->j;
}

double damax ( const dgsmatrix &  mat )

inline

return its largest absolute value

Definition at line 50 of file dgsmatrix-calc.hpp.

References dgsmatrix::data.

{CPPL_VERBOSE_REPORT;
  //////// exception ////////
  if(mat.data.size()==0){
    return 0.;
  }
  
  //////// find ////////
  std::vector<dcomponent>::const_iterator itx(mat.data.begin());
  double vmax =0.;
  
  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
    if( vmax < fabs(it->v) ){
      vmax =fabs(it->v);
      itx =it;
    }
  }

  return itx->v;
}