1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374 |
- /*
- [auto_generated]
- libs/numeric/odeint/test/integrators_symplectic.cpp
- [begin_description]
- tba.
- [end_description]
- Copyright 2009-2013 Karsten Ahnert
- Copyright 2009-2013 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_iterators_symplectic
- #define BOOST_FUSION_INVOKE_MAX_ARITY 15
- #define BOOST_RESULT_OF_NUM_ARGS 15
- #define FUSION_MAX_VECTOR_SIZE 15
- #include <cmath>
- #include <boost/test/unit_test.hpp>
- #ifndef ODEINT_INTEGRATE_ITERATOR
- #include <boost/numeric/odeint/integrate/integrate_const.hpp>
- #else
- #include <boost/numeric/odeint/iterator/integrate/integrate_const.hpp>
- #endif
- #include <boost/numeric/odeint/stepper/symplectic_euler.hpp>
- #include <boost/numeric/odeint/stepper/symplectic_rkn_sb3a_mclachlan.hpp>
- #include <boost/numeric/odeint/stepper/symplectic_rkn_sb3a_m4_mclachlan.hpp>
- using namespace boost::unit_test;
- using namespace boost::numeric::odeint;
- namespace mpl = boost::mpl;
- namespace fusion = boost::fusion;
- typedef std::vector<double> container_type;
- struct harm_osc {
- void operator()( const container_type &q , container_type &dpdt )
- {
- dpdt[0] = -q[0];
- }
- };
- class complete_steppers : public mpl::vector<
- symplectic_euler< container_type >
- , symplectic_rkn_sb3a_mclachlan< container_type >
- , symplectic_rkn_sb3a_m4_mclachlan< container_type >
- > {};
- BOOST_AUTO_TEST_SUITE( symplectic_steppers_test )
- BOOST_AUTO_TEST_CASE_TEMPLATE( test_integrate_const , Stepper , complete_steppers )
- {
- container_type q( 1 , 1.0 ) , p( 1 , 0.0 );
- size_t steps = integrate_const( Stepper() , harm_osc() ,
- std::make_pair( boost::ref(q) , boost::ref(p) ) ,
- 0.0 , 1.0 , 0.1 );
- BOOST_CHECK( steps == 10 );
- BOOST_CHECK_CLOSE( q[0] , std::cos(1.0) , 100*std::pow( 0.1 , Stepper::order_value ) );
- }
- BOOST_AUTO_TEST_SUITE_END()
|