gslpp_vector_complex.cpp

Go to the documentation of this file.

/* 
 * Copyright (C) 2012 HEPfit Collaboration
 * All rights reserved.
 *
 * For the licensing terms see doc/COPYING.
 */

#include <stdlib.h>
#include <iostream>
#ifndef __GSL_BLAS_H__
#include <gsl/gsl_blas.h>
#endif
#ifndef GSLPP_VECTOR_COMPLEX_H
#include "gslpp_vector_complex.h"
#endif
#ifndef GSLPP_VECTOR_DOUBLE_H
#include "gslpp_vector_double.h"
#endif

namespace gslpp {

    vector<complex>::vector(const size_t& size, const complex& z)
    {
        _vector = gsl_vector_complex_alloc(size);
        gsl_vector_complex_set_all(_vector, z.as_gsl_type());
    }

    vector<complex>::vector(const size_t& size, const double& a)
    {
        complex z(a);
        _vector = gsl_vector_complex_alloc(size);
        gsl_vector_complex_set_all(_vector, z.as_gsl_type());
    }

    vector<complex>::vector(const vector<complex>& v)
    {
        _vector = gsl_vector_complex_alloc(v.size());
        gsl_vector_complex_memcpy(_vector, v.as_gsl_type_ptr());
    }

    vector<complex>::vector(const vector<double>& v)
    {
        size_t i, n;
        n = v.size();
        _vector = gsl_vector_complex_alloc(n);
        for (i = 0; i < n; i++)
            gsl_vector_complex_set(_vector, i, v(i) + 0. * complex::i());
    }

    vector<complex>::vector(const gsl_vector_complex& v)
    {
        _vector = gsl_vector_complex_alloc(v.size);
        gsl_vector_complex_memcpy(_vector, &v);
    }

    vector<complex>::vector(const gsl_vector_complex* v)
    {
        _vector = gsl_vector_complex_alloc(v->size);
        gsl_vector_complex_memcpy(_vector, v);
    }

    vector<complex>::~vector()
    {
        gsl_vector_complex_free(_vector);
    }

    const complex vector<complex>::operator()(const size_t& i) const
    {
        const gsl_complex *x = gsl_vector_complex_const_ptr(_vector, i);
        return complex(x);
    }

    //  complex& vector<complex>::operator()(const size_t& i)
    //  {
    //    gsl_complex *x = gsl_vector_complex_ptr(_vector, i);
    //    return complex(x);
    //  }

    vector<complex>& vector<complex>::operator=(const vector<complex>& v)
    {
        gsl_vector_complex_memcpy(_vector, v.as_gsl_type_ptr());
        return *this;
    }

    vector<complex>& vector<complex>::operator=(double a)
    {
        complex z(a);
        gsl_vector_complex_set_all(_vector, z.as_gsl_type());
        return *this;
    }

    void vector<complex>::assign(const size_t& i, const complex& z)
    {
        gsl_complex *x = gsl_vector_complex_ptr(_vector, i);
        *x = z.as_gsl_type();
    }

    void vector<complex>::assign(const size_t& i, const double& a)
    {
        gsl_complex *x = gsl_vector_complex_ptr(_vector, i);
        *x = complex(a).as_gsl_type();
    }

    size_t vector<complex>::size() const
    {
        return _vector->size;
    }

    double vector<complex>::mod() const
    {
        return gsl_blas_dznrm2(_vector);
    }

    vector<complex> vector<complex>::conjugate() const
    {
        vector<complex> v1(*this);
        for (unsigned int i = 0; i < v1.size(); i++)
            v1.assign(i, v1(i).conjugate());

        return v1;
    }

    vector<double> vector<complex>::real() const 
    {
        gsl_vector_view r = gsl_vector_complex_real(_vector);
        vector<double> re((&r.vector));
        return re;
    }

    vector<double> vector<complex>::imag() const 
    {
        gsl_vector_view r = gsl_vector_complex_imag(_vector);
        vector<double> re((&r.vector));
        return re;
    }

    gsl_vector_complex* vector<complex>::as_gsl_type_ptr() const
    {
        return _vector;
    }

    gsl_vector_complex& vector<complex>::as_gsl_type()
    {
        return const_cast<gsl_vector_complex&> (*_vector);
    }

    const gsl_vector_complex& vector<complex>::as_gsl_type() const
    {
        return const_cast<gsl_vector_complex&> (*_vector);
    }

    vector<complex> vector<complex>::operator-() const
    {
        vector<complex> v1(_vector);
        gsl_blas_zdscal(-1., v1.as_gsl_type_ptr());
        return v1;
    }

    vector<complex> vector<complex>::operator+(const vector<complex>& v)
    {
        vector<complex> v1(_vector);
        gsl_complex z1;
        GSL_SET_COMPLEX(&z1, 1., 0.);
        if (gsl_blas_zaxpy(z1, v.as_gsl_type_ptr(), v1.as_gsl_type_ptr())) {
            std::cout << "\n Error in vector<complex> +" << std::endl;
            exit(EXIT_FAILURE);
        }
        return v1;
    }

    vector<complex> vector<complex>::operator-(const vector<complex>& v)
    {
        vector<complex> v1(_vector);
        gsl_complex z1;
        GSL_SET_COMPLEX(&z1, -1., 0.);
        if (gsl_blas_zaxpy(z1, v.as_gsl_type_ptr(), v1.as_gsl_type_ptr())) {
            std::cout << "\n Error in vector<complex> -" << std::endl;
            exit(EXIT_FAILURE);
        }
        return v1;
    }

    complex vector<complex>::operator*(const vector<complex>& v)
    {
        complex z1(0., 0., false);
        vector<complex> v1(_vector);
        if (gsl_blas_zdotu(v1.as_gsl_type_ptr(), v.as_gsl_type_ptr(), z1.as_gsl_type_ptr())) {
            std::cout << "\n Error in vector<complex> *" << std::endl;
            exit(EXIT_FAILURE);
        }
        return z1;
    }
    //   vector<complex> vector<complex>::operator^(const vector<complex>& v)
    //   {
    //     std::cout << "\n To be implemented" << std::endl;
    //     exit(EXIT_FAILURE);
    //   }

    vector<complex>& vector<complex>::operator+=(const vector<complex>& v)
    {
        /*    gsl_complex z1;
            GSL_SET_COMPLEX(&z1,1.,0.);
            if (gsl_blas_zaxpy(z1, v.as_gsl_type_ptr(), _vector))
            {
              std::cout << "\n Error in vector<complex> +=" << std::endl;
              exit(EXIT_FAILURE);
            }
            return *this;*/
        *this = *this +v;
        return *this;
    }

    vector<complex>& vector<complex>::operator-=(const vector<complex>& v)
    {
        *this = *this -v;
        return *this;
    }

    vector<complex> vector<complex>::operator+(const complex& z)
    {
        vector<complex> v1(_vector);
        gsl_complex z1;
        gsl_vector_complex *v2;
        GSL_SET_COMPLEX(&z1, 1., 0.);
        v2 = gsl_vector_complex_alloc(v1.size());
        gsl_vector_complex_set_all(v2, z1);
        if (gsl_blas_zaxpy(z, v2, v1.as_gsl_type_ptr())) {
            std::cout << "\n Error in vector<complex> + (double)" << std::endl;
            exit(EXIT_FAILURE);
        }
        gsl_vector_complex_free(v2);
        return v1;
    }

    vector<complex> vector<complex>::operator-(const complex& z)
    {
        vector<complex> v1(_vector);
        gsl_complex z1;
        gsl_vector_complex *v2;
        GSL_SET_COMPLEX(&z1, -1., 0.);
        v2 = gsl_vector_complex_alloc(v1.size());
        gsl_vector_complex_set_all(v2, z1);
        if (gsl_blas_zaxpy(z, v2, v1.as_gsl_type_ptr())) {
            std::cout << "\n Error in vector<complex> - (double)" << std::endl;
            exit(EXIT_FAILURE);
        }
        gsl_vector_complex_free(v2);
        return v1;
    }

    vector<complex> vector<complex>::operator*(const complex& z)
    {
        vector<complex> v1(_vector);
        gsl_blas_zscal(z.as_gsl_type(), v1.as_gsl_type_ptr());
        return v1;
    }

    vector<complex> vector<complex>::operator/(const complex& z)
    {
        vector<complex> v1(_vector);
        gsl_blas_zscal(z.inverse().as_gsl_type(), v1.as_gsl_type_ptr());
        return v1;
    }

    vector<complex>& vector<complex>::operator+=(const complex& z)
    {
        *this = *this +z;
        return *this;
    }

    vector<complex>& vector<complex>::operator-=(const complex& z)
    {
        *this = *this -z;
        return *this;
    }

    vector<complex>& vector<complex>::operator*=(const complex& z)
    {
        *this = *this * z;
        return *this;
    }

    vector<complex>& vector<complex>::operator/=(const complex& z)
    {
        *this = *this / z;
        return *this;
    }

    vector<complex> vector<complex>::operator+(const double& a)
    {
        complex z(a);
        return *this +z;
    }

    vector<complex> vector<complex>::operator-(const double& a)
    {
        complex z(a);
        return *this -z;
    }

    vector<complex> vector<complex>::operator*(const double& a)
    {
        complex z(a);
        return *this * z;
    }

    vector<complex> vector<complex>::operator/(const double& a)
    {
        complex z(a);
        return *this / z;
    }

    vector<complex>& vector<complex>::operator+=(const double& a)
    {
        *this = *this +a;
        return *this;
    }

    vector<complex>& vector<complex>::operator-=(const double& a)
    {
        *this = *this -a;
        return *this;
    }

    vector<complex>& vector<complex>::operator*=(const double& a)
    {
        *this = *this * a;
        return *this;
    }

    vector<complex>& vector<complex>::operator/=(const double& a)
    {
        *this = *this / a;
        return *this;
    }

    std::ostream& operator<<(std::ostream& output, const vector<complex>& v)
    {
        size_t i;
        output << "(";
        for (i = 0; i < v.size() - 1; i++)
            output << v(i) << ",";
        output << v(i) << ")";
        return output;
    }

    vector<complex> operator+(const complex& z, vector<complex> v)
    {
        return v + z;
    }

    vector<complex> operator-(const complex& z, vector<complex> v)
    {
        return -v + z;
    }

    vector<complex> operator*(const complex& z, vector<complex> v)
    {
        return v*z;
    }

    vector<complex> operator+(const double& a, vector<complex> v)
    {
        return v + a;
    }

    vector<complex> operator-(const double& a, vector<complex> v)
    {
        return -v + a;
    }

    vector<complex> operator*(const double& a, vector<complex> v)
    {
        return v*a;
    }
}