MatrizPtrBase.h

//----------------------------------------------------------------------------
//  XC program; finite element analysis code
//  for structural analysis and design.
//
//  Copyright (C)  Luis Claudio Pérez Tato
//
//  This program derives from OpenSees <http://opensees.berkeley.edu>
//  developed by the  «Pacific earthquake engineering research center».
//
//  Except for the restrictions that may arise from the copyright
//  of the original program (see copyright_opensees.txt)
//  XC is free software: you can redistribute it and/or modify
//  it under the terms of the GNU General Public License as published by
//  the Free Software Foundation, either version 3 of the License, or 
//  (at your option) any later version.
//
//  This software is distributed in the hope that it will be useful, but 
//  WITHOUT ANY WARRANTY; without even the implied warranty of
//  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
//  GNU General Public License for more details. 
//
//
// You should have received a copy of the GNU General Public License 
// along with this program.
// If not, see <http://www.gnu.org/licenses/>.
//----------------------------------------------------------------------------
//MatrizPtrBase.h
//Matriz de puntos

#ifndef MATRIZPTRBASE_H
#define MATRIZPTRBASE_H

#include "xc_utils/src/nucleo/EntCmd.h"
#include "xc_basic/src/matrices/matrizT.h"
#include <vector>
#include "boost/any.hpp"
#include "boost/lexical_cast.hpp"


#include "xc_basic/src/matrices/m_int.h"

namespace XC{


//
template <class T>
class MatrizPtrBase: public MatrizT<T *,std::vector<T *> >, public EntCmd
  {
  public:
    typedef MatrizT<T *,std::vector<T *> > m_ptr;
    typedef typename m_ptr::iterator iterator;
    typedef typename m_ptr::const_iterator const_iterator;
    typedef typename m_ptr::value_type value_type;
    typedef typename m_ptr::reference reference;
    typedef typename m_ptr::const_reference const_reference;
  protected:


    MatrizPtrBase(const size_t &f=0,const size_t &c=0)
      : m_ptr(f,c,nullptr), EntCmd() {}
  public:
    bool Null(void) const;
    bool HasNull(void) const;

    void dim(const size_t &,const size_t &);

    std::vector<int> getTagsObjsFila(const size_t &);
    std::vector<int> getTagsObjsColumna(const size_t &);
    std::vector<int> getTagsObjsInterioresFila(const size_t &);
    std::vector<int> getTagsObjsInterioresColumna(const size_t &);
    std::vector<int> getTagsInteriorObjs(void);
    std::vector<int> getTagsObjs(void);
  };

template <class T>
void XC::MatrizPtrBase<T>::dim(const size_t &nRows,const size_t &nCols)
  { this->resize(nRows,nCols,nullptr); }

template <class T>
bool MatrizPtrBase<T>::Null(void) const
  {
    if(this->empty())
      return true;
    else
      return (this->operator()(1,1)== nullptr);
  }

template <class T>
bool MatrizPtrBase<T>::HasNull(void) const
  {
    bool retval= false;
    if(Null())
      retval= true;
    else
      {
        const size_t nfilas= this->getNumFilas();
        const size_t ncols= this->getNumCols();
        for(size_t j= 1;j<=nfilas;j++)
          for(size_t k= 1;k<=ncols;k++)
            if(this->operator()(j,k)== nullptr)
              {
                retval= true;
                break;
              }
      }
    return retval;
  }

template <class T>
std::vector<int> XC::MatrizPtrBase<T>::getTagsObjsFila(const size_t &f)
  {
    const std::string nmbBlq= nombre_clase()+":objetos_fila:"+boost::lexical_cast<std::string>(f);
    const size_t numCols= this->getNumCols();
    std::vector<int> retval(numCols);
    for(size_t i= 1;i<=numCols;i++)
      retval[i-1]= (*this)(f,i)->getTag();
    return retval;
  }

template <class T>
std::vector<int>  XC::MatrizPtrBase<T>::getTagsObjsColumna(const size_t &c)
  {
    const std::string nmbBlq= nombre_clase()+":objetos_columna:"+boost::lexical_cast<std::string>(c);
    const size_t numFilas= this->getNumFilas();
    std::vector<int> retval(numFilas);
    for(size_t i= 1;i<=numFilas;i++)
      retval[i-1]= (*this)(i,c)->getTag();
    return retval;
  }

template <class T>
std::vector<int> XC::MatrizPtrBase<T>::getTagsObjsInterioresFila(const size_t &f)
  {
    const std::string nmbBlq= nombre_clase()+":objetos_interiores_fila:"+boost::lexical_cast<std::string>(f);
    const size_t numCols= this->getNumCols();
    std::vector<int> retval(numCols-2);
    for(size_t i= 2;i<numCols;i++)
      retval[i-2]= (*this)(f,i)->getTag();
    return retval;
  }

template <class T>
std::vector<int> XC::MatrizPtrBase<T>::getTagsObjsInterioresColumna(const size_t &c)
  {
    const std::string nmbBlq= nombre_clase()+":objetos_interiores_columna:"+boost::lexical_cast<std::string>(c);
    const size_t numFilas= this->getNumFilas();
    std::vector<int> retval(numFilas-2);
    for(size_t i= 2;i<numFilas;i++)
      retval[i-2]= (*this)(i,c)->getTag();
    return retval;
  }

template <class T>
std::vector<int> XC::MatrizPtrBase<T>::getTagsInteriorObjs(void)
  {
    const size_t numFilas= this->getNumFilas();
    const size_t numCols= this->getNumCols();
    std::vector<int> retval((numFilas-1)*(numCols-1));
    if(numFilas==1)
      retval= this->getTagsObjsInterioresFila(1);
    if(numCols==1)
      retval= this->getTagsObjsInterioresColumna(1);
    else
      {
        m_int tmp(numFilas-2,numCols-2);
        for(size_t i= 2;i<numFilas;i++)
          for(size_t j= 2;j<numCols;j++)
            tmp(i-1,j-1)= (*this)(i,j)->getTag();
        retval= tmp.getVector();
      }
    return retval;
  }

template <class T>
std::vector<int> XC::MatrizPtrBase<T>::getTagsObjs(void)
  {
    const size_t numFilas= this->getNumFilas();
    const size_t numCols= this->getNumCols();
    std::vector<int> retval(numFilas*numCols);
    m_int tmp(numFilas,numCols);
    for(size_t i= 1;i<=numFilas;i++)
      for(size_t j= 1;j<=numCols;j++)
        tmp(i,j)= (*this)(i,j)->getTag();
    retval= tmp.getVector();
    return retval;
  }

} //end of XC namespace

#endif