mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-17 09:31:59 -05:00
75 lines
2.1 KiB
C++
75 lines
2.1 KiB
C++
/*
|
|
[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()
|