112 lines
		
	
	
		
			3.8 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
			
		
		
	
	
			112 lines
		
	
	
		
			3.8 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
| /*
 | |
|  [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
 | 
