/*
* integrate_times.cpp
*
* Created on: Aug 17, 2011
* Author: mario
*/
#define BOOST_TEST_MODULE odeint_integrate_times
#include <boost/test/unit_test.hpp>
#include <utility>
#include <iostream>
#include <vector>
#include <boost/ref.hpp>
#include <boost/iterator/counting_iterator.hpp>
#include <boost/numeric/odeint/stepper/runge_kutta4.hpp>
#include <boost/numeric/odeint/stepper/runge_kutta_dopri5.hpp>
#include <boost/numeric/odeint/stepper/controlled_runge_kutta.hpp>
#include <boost/numeric/odeint/stepper/bulirsch_stoer.hpp>
#include <boost/numeric/odeint/stepper/bulirsch_stoer_dense_out.hpp>
#include <boost/numeric/odeint/integrate/integrate_times.hpp>
using namespace boost::unit_test;
using namespace boost::numeric::odeint;
typedef double value_type;
typedef std::vector< value_type > state_type;
void lorenz( const state_type &x , state_type &dxdt , const value_type t )
{
const value_type sigma( 10.0 );
const value_type R( 28.0 );
const value_type b( value_type( 8.0 ) / value_type( 3.0 ) );
dxdt[0] = sigma * ( x[1] - x[0] );
dxdt[1] = R * x[0] - x[1] - x[0] * x[2];
dxdt[2] = -b * x[2] + x[0] * x[1];
}
struct push_back_time
{
std::vector< double >& m_times;
push_back_time( std::vector< double > × )
: m_times( times ) { }
void operator()( const state_type &x , double t )
{
m_times.push_back( t );
}
};
BOOST_AUTO_TEST_SUITE( integrate_times_test )
BOOST_AUTO_TEST_CASE( test_integrate_times )
{
state_type x( 3 );
x[0] = x[1] = x[2] = 10.0;
const value_type dt = 0.03;
std::vector< double > times;
// simple stepper
integrate_times( runge_kutta4< state_type >() , lorenz , x , boost::counting_iterator<int>(0) , boost::counting_iterator<int>(10) ,
dt , push_back_time( times ) );
for( int i=0 ; i<10 ; ++i )
// check if observer was called at times 0,1,2,...
BOOST_CHECK_EQUAL( times[i] , static_cast<double>(i) );
times.clear();
// controlled stepper
integrate_times( controlled_runge_kutta< runge_kutta_dopri5< state_type > >() , lorenz , x ,
boost::counting_iterator<int>(0) , boost::counting_iterator<int>(10) ,
dt , push_back_time( times ) );
for( int i=0 ; i<10 ; ++i )
// check if observer was called at times 0,1,2,...
BOOST_CHECK_EQUAL( times[i] , static_cast<double>(i) );
times.clear();
//another controlled stepper
integrate_times( bulirsch_stoer< state_type >() , lorenz , x ,
boost::counting_iterator<int>(0) , boost::counting_iterator<int>(10) ,
dt , push_back_time( times ) );
for( int i=0 ; i<10 ; ++i )
// check if observer was called at times 0,1,2,...
BOOST_CHECK_EQUAL( times[i] , static_cast<double>(i) );
times.clear();
// dense output stepper
integrate_times( bulirsch_stoer_dense_out< state_type >() , lorenz , x ,
boost::counting_iterator<int>(0) , boost::counting_iterator<int>(10) ,
dt , push_back_time( times ) );
for( int i=0 ; i<10 ; ++i )
// check if observer was called at times 0,1,2,...
BOOST_CHECK_EQUAL( times[i] , static_cast<double>(i) );
}
BOOST_AUTO_TEST_CASE( test_integrate_times_ranges )
{
state_type x( 3 );
x[0] = x[1] = x[2] = 10.0;
const value_type dt = 0.03;
std::vector< double > times;
// simple stepper
integrate_times( runge_kutta4< state_type >() , lorenz , x ,
std::make_pair( boost::counting_iterator<int>(0) , boost::counting_iterator<int>(10) ) ,
dt , push_back_time( times ) );
for( int i=0 ; i<10 ; ++i )
// check if observer was called at times 0,1,2,...
BOOST_CHECK_EQUAL( times[i] , static_cast<double>(i) );
times.clear();
// controlled stepper
integrate_times( controlled_runge_kutta< runge_kutta_dopri5< state_type > >() , lorenz , x ,
std::make_pair( boost::counting_iterator<int>(0) , boost::counting_iterator<int>(10) ) ,
dt , push_back_time( times ) );
for( int i=0 ; i<10 ; ++i )
// check if observer was called at times 0,1,2,...
BOOST_CHECK_EQUAL( times[i] , static_cast<double>(i) );
times.clear();
//another controlled stepper
integrate_times( bulirsch_stoer< state_type >() , lorenz , x ,
std::make_pair( boost::counting_iterator<int>(0) , boost::counting_iterator<int>(10) ) ,
dt , push_back_time( times ) );
for( int i=0 ; i<10 ; ++i )
// check if observer was called at times 0,1,2,...
BOOST_CHECK_EQUAL( times[i] , static_cast<double>(i) );
times.clear();
// dense output stepper
integrate_times( bulirsch_stoer_dense_out< state_type >() , lorenz , x ,
std::make_pair( boost::counting_iterator<int>(0) , boost::counting_iterator<int>(10) ) ,
dt , push_back_time( times ) );
for( int i=0 ; i<10 ; ++i )
// check if observer was called at times 0,1,2,...
BOOST_CHECK_EQUAL( times[i] , static_cast<double>(i) );
}
BOOST_AUTO_TEST_SUITE_END()