/*
|
[auto_generated]
|
boost/numeric/odeint/integrate/detail/integrate_const.hpp
|
|
[begin_description]
|
integrate const implementation
|
[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)
|
*/
|
|
#ifndef BOOST_NUMERIC_ODEINT_INTEGRATE_DETAIL_INTEGRATE_CONST_HPP_INCLUDED
|
#define BOOST_NUMERIC_ODEINT_INTEGRATE_DETAIL_INTEGRATE_CONST_HPP_INCLUDED
|
|
#include <boost/range/algorithm/for_each.hpp>
|
|
#include <boost/numeric/odeint/util/unwrap_reference.hpp>
|
#include <boost/numeric/odeint/stepper/stepper_categories.hpp>
|
#include <boost/numeric/odeint/util/unit_helper.hpp>
|
#include <boost/numeric/odeint/iterator/const_step_time_iterator.hpp>
|
#include <boost/numeric/odeint/iterator/integrate/detail/integrate_adaptive.hpp>
|
#include <boost/numeric/odeint/iterator/integrate/detail/functors.hpp>
|
#include <boost/numeric/odeint/util/detail/less_with_sign.hpp>
|
|
namespace boost {
|
namespace numeric {
|
namespace odeint {
|
namespace detail {
|
|
// forward declaration
|
template< class Stepper , class System , class State , class Time , class Observer >
|
size_t integrate_adaptive(
|
Stepper stepper , System system , State &start_state ,
|
Time &start_time , Time end_time , Time &dt ,
|
Observer observer , controlled_stepper_tag
|
);
|
|
|
template< class Stepper , class System , class State , class Time , class Observer >
|
size_t integrate_const(
|
Stepper stepper , System system , State &start_state ,
|
Time start_time , Time end_time , Time dt ,
|
Observer observer , stepper_tag
|
)
|
{
|
size_t obs_calls = 0;
|
|
boost::for_each( make_const_step_time_range( stepper , system , start_state ,
|
start_time , end_time , dt ) ,
|
// should we use traits<Stepper>::state_type here instead of State? NO!
|
obs_caller< Observer >( obs_calls , observer ) );
|
|
// step integration steps gives step+1 observer calls
|
return obs_calls-1;
|
}
|
|
|
|
template< class Stepper , class System , class State , class Time , class Observer >
|
size_t integrate_const(
|
Stepper stepper , System system , State &start_state ,
|
Time start_time , Time end_time , Time dt ,
|
Observer observer , controlled_stepper_tag
|
)
|
{
|
typename odeint::unwrap_reference< Observer >::type &obs = observer;
|
|
Time time = start_time;
|
const Time time_step = dt;
|
int step = 0;
|
|
while( less_eq_with_sign( static_cast<Time>(time+time_step) , end_time , dt ) )
|
{
|
obs( start_state , time );
|
detail::integrate_adaptive( stepper , system , start_state , time , time+time_step , dt ,
|
null_observer() , controlled_stepper_tag() );
|
// direct computation of the time avoids error propagation happening when using time += dt
|
// we need clumsy type analysis to get boost units working here
|
++step;
|
time = start_time + static_cast< typename unit_value_type<Time>::type >(step) * time_step;
|
}
|
obs( start_state , time );
|
|
return step;
|
}
|
|
|
template< class Stepper , class System , class State , class Time , class Observer >
|
size_t integrate_const(
|
Stepper stepper , System system , State &start_state ,
|
Time start_time , Time end_time , Time dt ,
|
Observer observer , dense_output_stepper_tag
|
)
|
{
|
size_t obs_calls = 0;
|
|
boost::for_each( make_const_step_time_range( stepper , system , start_state ,
|
start_time , end_time , dt ) ,
|
obs_caller< Observer >( obs_calls , observer ) );
|
return obs_calls-1;
|
}
|
|
|
} } } }
|
|
#endif
|
