/*
 [auto_generated]
 libs/numeric/odeint/test/multi_array.cpp

 [begin_description]
 tba.
 [end_description]

 Copyright 2009-2012 Karsten Ahnert
 Copyright 2009-2012 Mario Mulansky

 Distributed under the Boost Software License, Version 1.0.
 (See accompanying file LICENSE_1_0.txt or
 copy at http://www.boost.org/LICENSE_1_0.txt)
 */

#include <boost/config.hpp>
#ifdef BOOST_MSVC
    #pragma warning(disable:4996)
#endif

#define BOOST_TEST_MODULE odeint_multi_array

#include <boost/test/unit_test.hpp>

#include <boost/numeric/odeint/algebra/multi_array_algebra.hpp>
#include <boost/numeric/odeint/util/multi_array_adaption.hpp>
#include <boost/numeric/odeint/stepper/runge_kutta4.hpp>
#include <boost/numeric/odeint/integrate/integrate_const.hpp>
#include <boost/numeric/odeint/stepper/runge_kutta_dopri5.hpp>
#include <boost/numeric/odeint/stepper/generation.hpp>

using namespace boost::unit_test;
using namespace boost::numeric::odeint;

typedef boost::multi_array< double , 1 > vector_type;
typedef boost::multi_array< double , 2 > matrix_type;
typedef boost::multi_array< double , 3 > tensor_type;


BOOST_AUTO_TEST_SUITE( multi_array_test )

BOOST_AUTO_TEST_CASE( test_resizeable )
{
    BOOST_CHECK( is_resizeable< vector_type >::value );
    BOOST_CHECK( is_resizeable< matrix_type >::value );
    BOOST_CHECK( is_resizeable< tensor_type >::value );
}

BOOST_AUTO_TEST_CASE( test_same_size_vector1 )
{
    vector_type v1( boost::extents[12] );
    vector_type v2( boost::extents[12] );
    BOOST_CHECK( same_size( v1 , v2 ) );
}

BOOST_AUTO_TEST_CASE( test_same_size_vector2 )
{
    vector_type v1( boost::extents[12] );
    vector_type v2( boost::extents[13] );
    BOOST_CHECK( !same_size( v1 , v2 ) );
}

BOOST_AUTO_TEST_CASE( test_same_size_vector3 )
{
    vector_type v1( boost::extents[12] );
    vector_type v2( boost::extents[vector_type::extent_range(-1,11)] );
    BOOST_CHECK( !same_size( v1 , v2 ) );
}

BOOST_AUTO_TEST_CASE( test_same_size_vector4 )
{
    vector_type v1( boost::extents[12] );
    vector_type v2( boost::extents[vector_type::extent_range(-1,10)] );
    BOOST_CHECK( !same_size( v1 , v2 ) );
}

BOOST_AUTO_TEST_CASE( test_same_size_vector5 )
{
    vector_type v1( boost::extents[vector_type::extent_range(-1,10)] );
    vector_type v2( boost::extents[vector_type::extent_range(-1,10)] );
    BOOST_CHECK( same_size( v1 , v2 ) );
}



BOOST_AUTO_TEST_CASE( test_same_size_matrix1 )
{
    matrix_type m1( boost::extents[12][4] );
    matrix_type m2( boost::extents[12][4] );
    BOOST_CHECK( same_size( m1 , m2 ) );
}

BOOST_AUTO_TEST_CASE( test_same_size_matrix2 )
{
    matrix_type m1( boost::extents[12][4] );
    matrix_type m2( boost::extents[12][3] );
    BOOST_CHECK( !same_size( m1 , m2 ) );
}

BOOST_AUTO_TEST_CASE( test_same_size_matrix3 )
{
    matrix_type m1( boost::extents[12][matrix_type::extent_range(-1,2)] );
    matrix_type m2( boost::extents[12][3] );
    BOOST_CHECK( !same_size( m1 , m2 ) );
}

BOOST_AUTO_TEST_CASE( test_same_size_matrix4 )
{
    matrix_type m1( boost::extents[12][matrix_type::extent_range(-1,1)] );
    matrix_type m2( boost::extents[12][3] );
    BOOST_CHECK( !same_size( m1 , m2 ) );
}

BOOST_AUTO_TEST_CASE( test_same_size_tensor1 )
{
    tensor_type t1( boost::extents[ tensor_type::extent_range( -2 , 9 ) ]
                                  [ tensor_type::extent_range( 5 , 11 ) ]
                                  [ tensor_type::extent_range( -1 , 2 ) ] );
    tensor_type t2( boost::extents[ tensor_type::extent_range( 2 , 13 ) ]
                                  [ tensor_type::extent_range( -1 , 5 ) ]
                                  [ tensor_type::extent_range( 1 , 4 ) ] );
    BOOST_CHECK( !same_size( t1 , t2 ) );    
}

BOOST_AUTO_TEST_CASE( test_same_size_tensor2 )
{
    tensor_type t1( boost::extents[ tensor_type::extent_range( -2 , 9 ) ]
                                  [ tensor_type::extent_range( 5 , 11 ) ]
                                  [ tensor_type::extent_range( -1 , 2 ) ] );
    tensor_type t2( boost::extents[ tensor_type::extent_range( -2 , 9 ) ]
                                  [ tensor_type::extent_range( 5 , 11 ) ]
                                  [ tensor_type::extent_range( -1 , 2 ) ] );
    BOOST_CHECK( same_size( t1 , t2 ) );    
}


// Tests for tensor_type

BOOST_AUTO_TEST_CASE( test_resize_vector1 )
{
    vector_type v1( boost::extents[4] );
    vector_type v2;
    resize( v2 , v1 );
    BOOST_CHECK( same_size( v1 , v2 ) );
}

BOOST_AUTO_TEST_CASE( test_resize_vector2 )
{
    vector_type v1( boost::extents[ vector_type::extent_range( -2 , 9 ) ] );
    vector_type v2;
    resize( v2 , v1 );
    BOOST_CHECK( same_size( v1 , v2 ) );
}

BOOST_AUTO_TEST_CASE( test_resize_vector3 )
{
    vector_type v1( boost::extents[ vector_type::extent_range( -2 , 9 ) ] );
    vector_type v2( boost::extents[ vector_type::extent_range( 2 , 9 ) ] );
    BOOST_CHECK( !same_size( v1 , v2 ) );
    resize( v2 , v1 );
    BOOST_CHECK( same_size( v1 , v2 ) );
}

struct mult4
{
    void operator()( double &a , double const &b ) const
    {
        a = b * 4.0;
    }
};

BOOST_AUTO_TEST_CASE( test_for_each2_vector )
{
    vector_type v1( boost::extents[ vector_type::extent_range( -2 , 9 ) ] );
    vector_type v2( boost::extents[ vector_type::extent_range( 2 , 13 ) ] );
    for( int i=-2 ; i<9 ; ++i )
        v1[i] = i * 2;
    multi_array_algebra::for_each2( v2 , v1 , mult4() );
    for( int i=2 ; i<13 ; ++i )
        BOOST_CHECK_EQUAL( v2[i] , v1[i-4]*4.0 );
}

struct vector_ode
{
    const static size_t n = 128;
    void operator()( const vector_type &x , vector_type &dxdt , double t ) const
    {
        dxdt[-1] = x[n] - 2.0 * x[-1] + x[0];
        for( size_t i=0 ; i<n ; ++i )
            dxdt[i] = x[i-1] - 2.0 * x[i] + x[i+1];
        dxdt[n] = x[-1] - 2.0 * x[n] + x[n-1];
    }
};


BOOST_AUTO_TEST_CASE( test_rk4_vector )
{
    vector_type v1( boost::extents[ vector_type::extent_range( -1 , vector_ode::n+1 ) ] );
    integrate_const( runge_kutta4< vector_type >() , vector_ode() , v1 , 0.0 , 1.0 , 0.01 );
}

BOOST_AUTO_TEST_CASE( test_dopri5_vector )
{
    vector_type v1( boost::extents[ vector_type::extent_range( -1 , vector_ode::n+1 ) ] );
    integrate_const( make_dense_output( 1.0e-6 , 1.0e-6 , runge_kutta_dopri5< vector_type >() ) , vector_ode() , v1 , 0.0 , 1.0 , 0.01 );
}



BOOST_AUTO_TEST_SUITE_END()