/*
* Vector, VectorView, ConstVectorView classes wrap the gsl vector routines;
* "views" mimic the semantic of C++ references: any operation performed
* on a "view" is actually performed on the "viewed object"
*
* Authors:
* Marco Cecchetti <mrcekets at gmail.com>
*
* Copyright 2008 authors
*
* modify it either under the terms of the GNU Lesser General Public
* License version 2.1 as published by the Free Software Foundation
* (the "LGPL") or, at your option, under the terms of the Mozilla
* Public License Version 1.1 (the "MPL"). If you do not alter this
* notice, a recipient may use your version of this file under either
* the MPL or the LGPL.
*
* You should have received a copy of the LGPL along with this library
* in the file COPYING-LGPL-2.1; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
* You should have received a copy of the MPL along with this library
* in the file COPYING-MPL-1.1
*
* The contents of this file are subject to the Mozilla Public License
* Version 1.1 (the "License"); you may not use this file except in
* compliance with the License. You may obtain a copy of the License at
*
* This software is distributed on an "AS IS" basis, WITHOUT WARRANTY
* OF ANY KIND, either express or implied. See the LGPL or the MPL for
* the specific language governing rights and limitations.
*/
#ifndef _NL_VECTOR_H_
#define _NL_VECTOR_H_
#include <cassert>
#include <algorithm> // for std::swap
#include <vector>
#include <sstream>
#include <string>
#include <gsl/gsl_vector.h>
#include <gsl/gsl_blas.h>
{
{
{
return *gsl_vector_const_ptr(m_vector, i);
}
{
return m_vector;
}
bool is_zero() const
{
return gsl_vector_isnull(m_vector);
}
bool is_positive() const
{
{
if ( (*this)[i] <= 0 ) return false;
}
return true;
}
bool is_negative() const
{
{
if ( (*this)[i] >= 0 ) return false;
}
return true;
}
bool is_non_negative() const
{
{
if ( (*this)[i] < 0 ) return false;
}
return true;
}
double max() const
{
return gsl_vector_max(m_vector);
}
double min() const
{
return gsl_vector_min(m_vector);
}
{
return gsl_vector_max_index(m_vector);
}
{
return gsl_vector_min_index(m_vector);
}
{
return m_size;
}
{
}
}; // end class BaseVectorImpl
inline
{
{
}
return true;
}
inline
{
{
}
os << "]";
return os;
}
inline
{
}
inline
{
double result;
return result;
}
{
void set_all(double x)
{
}
{
}
{
return *gsl_vector_ptr(m_vector, i);
}
{
return m_vector;
}
{
gsl_vector_swap_elements(m_vector, i, j);
}
void reverse()
{
}
{
gsl_vector_scale(m_vector, x);
return (*this);
}
{
return (*this);
}
{
return (*this);
}
{
return (*this);
}
}; // end class VectorImpl
} // end namespace detail
{
{
m_size = n;
m_vector = gsl_vector_alloc(n);
}
{
m_size = n;
m_vector = gsl_vector_alloc(n);
}
// create a vector with n elements all set to zero
// but the i-th that is set to 1
{
m_size = n;
m_vector = gsl_vector_alloc(n);
}
: base_type()
{
}
{
}
{
}
{
return (*this);
}
{
return (*this);
}
{
}
{
}
{
}
{
}
}; // end class Vector
// warning! these operations invalidate any view of the passed vector objects
inline
{
}
inline
{
}
{
{
m_size = n;
}
: m_vector_view( gsl_vector_const_subvector_with_stride(_vector.get_gsl_vector(), offset, stride, n) )
{
m_size = n;
}
{
m_size = n;
}
{
m_size = n;
}
{
}
{
}
: base_type(),
{
}
{
}
}; // end class ConstVectorView
{
{
m_size = n;
if (stride == 1)
{
}
else
{
}
}
{
m_size = n;
if (stride == 1)
{
}
else
{
}
}
: base_type()
{
}
{
}
{
}
{
}
{
return (*this);
}
{
return (*this);
}
{
}
{
}
{
}
{
}
}; // end class VectorView
inline
{
}
inline
{
return vv;
}
inline
{
return vv;
}
} } // end namespaces
#endif /*_NL_VECTOR_H_*/
/*
Local Variables:
mode:c++
c-file-style:"stroustrup"
c-file-offsets:((innamespace . 0)(inline-open . 0)(case-label . +))
indent-tabs-mode:nil
fill-column:99
End:
*/
// vim: filetype=cpp:expandtab:shiftwidth=4:tabstop=8:softtabstop=4:fileencoding=utf-8:textwidth=99 :