source: trunk/yat/utility/VectorMutable.cc @ 3743

// $Id: VectorMutable.cc 3743 2018-07-12 00:43:25Z peter $

/*
  Copyright (C) 2003 Daniel Dalevi, Peter Johansson
  Copyright (C) 2004 Jari Häkkinen, Peter Johansson
  Copyright (C) 2005, 2006, 2007 Jari Häkkinen, Peter Johansson, Markus Ringnér
  Copyright (C) 2008, 2009 Jari Häkkinen, Peter Johansson
  Copyright (C) 2010, 2012, 2016, 2017, 2018 Peter Johansson

  This file is part of the yat library, http://dev.thep.lu.se/trac/yat

  The yat library 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.

  The yat library 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 yat. If not, see <http://www.gnu.org/licenses/>.
*/

#include <config.h>

#include "VectorMutable.h"
#include "Vector.h"
#include "Exception.h"
#include "stl_utility.h"
#include "yat/random/random.h"

#include <algorithm>
#include <cassert>
#include <cmath>
#include <limits>
#include <stdexcept>
#include <string>

namespace theplu {
namespace yat {
namespace utility {


  VectorMutable::VectorMutable(void)
    : VectorBase(NULL), vec_(NULL)
  {
  }


  VectorMutable::VectorMutable(gsl_vector* v)
    : VectorBase(v), vec_(v)
  {
  }


  VectorMutable::VectorMutable(const gsl_vector* v)
    : VectorBase(v), vec_(NULL)
  {
  }


  VectorMutable::~VectorMutable(void)
  {
  }


  void VectorMutable::all(double value)
  {
    assert(vec_);
    gsl_vector_set_all(vec_,value);
  }


  VectorMutable::iterator VectorMutable::begin(void)
  {
    if (vec_)
      return iterator(&(this->operator()(0)), vec_->stride);
    return iterator(NULL, 1);
  }


  void VectorMutable::div(const VectorBase& other)
  {
    assert(vec_);
    if (detail::serial_overlap(const_vec_, other.gsl_vector_p())) {
      Vector tmp(other);
      div(tmp);
      return;
    }
    int status=gsl_vector_div(vec_,other.gsl_vector_p());
    if (status)
      throw utility::GSL_error("VectorMutable::div",status);
  }


  VectorMutable::iterator VectorMutable::end(void)
  {
    if (vec_)
      return iterator(&(this->operator()(0))+vec_->stride*size(),
                            const_vec_->stride);
    return iterator(NULL, 1);
  }


  gsl_vector* VectorMutable::gsl_vector_p(void)
  {
    return vec_;
  }


  void VectorMutable::mul(const VectorBase& other)
  {
    assert(vec_);
    if (detail::serial_overlap(const_vec_, other.gsl_vector_p())) {
      Vector tmp(other);
      mul(tmp);
      return;
    }
    int status=gsl_vector_mul(vec_,other.gsl_vector_p());
    if (status)
      throw utility::GSL_error("VectorMutable::div",status);
  }


  double& VectorMutable::operator()(size_t i)
  {
    double* d=gsl_vector_ptr(vec_, i);
    if (!d)
      throw utility::GSL_error("VectorMutable::operator()",GSL_EINVAL);
    return *d;
  }


  const VectorMutable& VectorMutable::operator+=(const VectorBase& other)
  {
    if (size()!=other.size())
      throw runtime_error("VectorMutable::operator+= size must be same.");
    assert(vec_);

    // if ranges overlap be a bit careful
    if (detail::serial_overlap(const_vec_, other.gsl_vector_p())) {
      Vector tmp(other);
      *this += tmp;
      return *this;
    }
    int status=gsl_vector_add(vec_, other.gsl_vector_p());
    if (status)
      throw utility::GSL_error("VectorMutable::add", status);
    return *this;
  }


  const VectorMutable& VectorMutable::operator+=(double d)
  {
    assert(vec_);
    gsl_vector_add_constant(vec_, d);
    return *this;
  }


  const VectorMutable& VectorMutable::operator-=(const VectorBase& other)
  {
    if (size()!=other.size())
      throw runtime_error("VectorMutable::operator-= size must be same.");
    assert(vec_);
    if (detail::serial_overlap(const_vec_, other.gsl_vector_p())) {
      Vector tmp(other);
      *this -= tmp;
      return *this;
    }
    int status=gsl_vector_sub(vec_, other.gsl_vector_p());
    if (status)
      throw utility::GSL_error("VectorMutable::sub", status);
    return *this;
  }


  const VectorMutable& VectorMutable::operator-=(const double d)
  {
    assert(vec_);
    gsl_vector_add_constant(vec_, -d);
    return *this;
  }


  const VectorMutable& VectorMutable::operator*=(double d)
  {
    assert(vec_);
    gsl_vector_scale(vec_, d);
    return *this;
  }


  const VectorMutable& VectorMutable::operator=(const VectorBase& rhs)
  {
    return assign(rhs);
  }


  const VectorMutable& VectorMutable::operator=(const VectorMutable& rhs)
  {
    return assign(rhs);
  }


  void shuffle(VectorMutable& invec)
  {
    random::random_shuffle(invec.begin(), invec.end());
  }


  void sort(VectorMutable& invec)
  {
    std::sort(invec.begin(), invec.end(), less_nan<double>());
  }


}}} // of namespace utility, yat, and thep