Chris@16: /*
Chris@16:  [auto_generated]
Chris@16:  boost/numeric/odeint/algebra/fusion_algebra.hpp
Chris@16: 
Chris@16:  [begin_description]
Chris@16:  Algebra for boost::fusion sequences.
Chris@16:  [end_description]
Chris@16: 
Chris@101:  Copyright 2011-2013 Karsten Ahnert
Chris@101:  Copyright 2011-2013 Mario Mulansky
Chris@16: 
Chris@16:  Distributed under the Boost Software License, Version 1.0.
Chris@16:  (See accompanying file LICENSE_1_0.txt or
Chris@16:  copy at http://www.boost.org/LICENSE_1_0.txt)
Chris@16:  */
Chris@16: 
Chris@16: 
Chris@16: #ifndef BOOST_NUMERIC_ODEINT_ALGEBRA_FUSION_ALGEBRA_HPP_INCLUDED
Chris@16: #define BOOST_NUMERIC_ODEINT_ALGEBRA_FUSION_ALGEBRA_HPP_INCLUDED
Chris@16: 
Chris@101: #include <algorithm>
Chris@101: 
Chris@101: #include <boost/numeric/odeint/config.hpp>
Chris@16: 
Chris@16: #include <boost/fusion/container/vector.hpp>
Chris@16: #include <boost/fusion/algorithm/iteration/for_each.hpp>
Chris@16: #include <boost/fusion/view/zip_view.hpp>
Chris@16: #include <boost/fusion/functional/generation/make_fused.hpp>
Chris@16: #include <boost/fusion/algorithm/iteration/accumulate.hpp>
Chris@16: 
Chris@16: namespace boost {
Chris@16: namespace numeric {
Chris@16: namespace odeint {
Chris@16: 
Chris@101: namespace detail {
Chris@101: 
Chris@101:     template< class Value >
Chris@101:     struct fusion_maximum
Chris@101:     {
Chris@101:         template< class Fac1 , class Fac2 >
Chris@101:         Value operator()( Fac1 t1 , const Fac2 t2 ) const
Chris@101:         {
Chris@101:             using std::abs;
Chris@101:             Value a1 = abs( get_unit_value( t1 ) ) , a2 = abs( get_unit_value( t2 ) );
Chris@101:             return ( a1 < a2 ) ? a2 : a1 ;
Chris@101:         }
Chris@101: 
Chris@101:         typedef Value result_type;
Chris@101:     };
Chris@101: }
Chris@101: 
Chris@101: /* specialize this if the fundamental numeric type in your fusion sequence is
Chris@101:  * anything else but double (most likely not)
Chris@101:  */
Chris@101: template< typename Sequence >
Chris@101: struct fusion_traits {
Chris@101:     typedef double value_type;
Chris@101: };
Chris@16: 
Chris@16: struct fusion_algebra
Chris@16: {
Chris@16:     template< class S1 , class Op >
Chris@16:     static void for_each1( S1 &s1 , Op op )
Chris@16:     {
Chris@16:         boost::fusion::for_each( s1 , op );
Chris@16:     };
Chris@16: 
Chris@16: 
Chris@16:     template< class S1 , class S2 , class Op >
Chris@16:     static void for_each2( S1 &s1 , S2 &s2 , Op op )
Chris@16:     {
Chris@16:         typedef boost::fusion::vector< S1& , S2& > Sequences;
Chris@16:         Sequences sequences( s1 , s2 );
Chris@16:         boost::fusion::for_each( boost::fusion::zip_view< Sequences >( sequences ) , boost::fusion::make_fused( op ) );
Chris@16:     }
Chris@16: 
Chris@16: 
Chris@16:     template< class S1 , class S2 , class S3 , class Op >
Chris@16:     static void for_each3( S1 &s1 , S2 &s2 , S3 &s3 , Op op )
Chris@16:     {
Chris@16:         typedef boost::fusion::vector< S1& , S2& , S3& > Sequences;
Chris@16:         Sequences sequences( s1 , s2 , s3 );
Chris@16:         boost::fusion::for_each( boost::fusion::zip_view< Sequences >( sequences ) , boost::fusion::make_fused( op ) );
Chris@16:     }
Chris@16: 
Chris@16:     template< class S1 , class S2 , class S3 , class S4 , class Op >
Chris@16:     static void for_each4( S1 &s1 , S2 &s2 , S3 &s3 , S4 &s4 , Op op )
Chris@16:     {
Chris@16:         typedef boost::fusion::vector< S1& , S2& , S3& , S4& > Sequences;
Chris@16:         Sequences sequences( s1 , s2 , s3 , s4 );
Chris@16:         boost::fusion::for_each( boost::fusion::zip_view< Sequences >( sequences ) , boost::fusion::make_fused( op ) );
Chris@16:     }
Chris@16: 
Chris@16: 
Chris@16:     template< class S1 , class S2 , class S3 , class S4 , class S5 , class Op >
Chris@16:     static void for_each5( S1 &s1 , S2 &s2 , S3 &s3 , S4 &s4 , S5 &s5 , Op op )
Chris@16:     {
Chris@16:         typedef boost::fusion::vector< S1& , S2& , S3& , S4& , S5& > Sequences;
Chris@16:         Sequences sequences( s1 , s2 , s3 , s4 , s5 );
Chris@16:         boost::fusion::for_each( boost::fusion::zip_view< Sequences >( sequences ) , boost::fusion::make_fused( op ) );
Chris@16:     }
Chris@16: 
Chris@16: 
Chris@16:     template< class S1 , class S2 , class S3 , class S4 , class S5 , class S6 , class Op >
Chris@16:     static void for_each6( S1 &s1 , S2 &s2 , S3 &s3 , S4 &s4 , S5 &s5 , S6 &s6 , Op op )
Chris@16:     {
Chris@16:         typedef boost::fusion::vector< S1& , S2& , S3& , S4& , S5& , S6& > Sequences;
Chris@16:         Sequences sequences( s1 , s2 , s3 , s4 , s5 , s6 );
Chris@16:         boost::fusion::for_each( boost::fusion::zip_view< Sequences >( sequences ) , boost::fusion::make_fused( op ) );
Chris@16:     }
Chris@16: 
Chris@16: 
Chris@16:     template< class S1 , class S2 , class S3 , class S4 , class S5 , class S6 , class S7 , class Op >
Chris@16:     static void for_each7( S1 &s1 , S2 &s2 , S3 &s3 , S4 &s4 , S5 &s5 , S6 &s6 , S7 &s7 , Op op )
Chris@16:     {
Chris@16:         typedef boost::fusion::vector< S1& , S2& , S3& , S4& , S5& , S6& , S7& > Sequences;
Chris@16:         Sequences sequences( s1 , s2 , s3 , s4 , s5 , s6 , s7 );
Chris@16:         boost::fusion::for_each( boost::fusion::zip_view< Sequences >( sequences ) , boost::fusion::make_fused( op ) );
Chris@16:     }
Chris@16: 
Chris@16: 
Chris@16:     template< class S1 , class S2 , class S3 , class S4 , class S5 , class S6 , class S7 , class S8 , class Op >
Chris@16:     static void for_each8( S1 &s1 , S2 &s2 , S3 &s3 , S4 &s4 , S5 &s5 , S6 &s6 , S7 &s7 , S8 &s8 , Op op )
Chris@16:     {
Chris@16:         BOOST_STATIC_ASSERT_MSG( BOOST_FUSION_INVOKE_MAX_ARITY >= 8 , "Macro Parameter BOOST_FUSION_INVOKE_MAX_ARITY to small!" );
Chris@16:         typedef boost::fusion::vector< S1& , S2& , S3& , S4& , S5& , S6& , S7& , S8& > Sequences;
Chris@16:         Sequences sequences( s1 , s2 , s3 , s4 , s5 , s6 , s7 , s8 );
Chris@16:         boost::fusion::for_each( boost::fusion::zip_view< Sequences >( sequences ) , boost::fusion::make_fused( op ) );
Chris@16:     }
Chris@16: 
Chris@16:     template< class S1 , class S2 , class S3 , class S4 , class S5 , class S6 , class S7 , class S8 , class S9 , class Op >
Chris@16:     static void for_each9( S1 &s1 , S2 &s2 , S3 &s3 , S4 &s4 , S5 &s5 , S6 &s6 , S7 &s7 , S8 &s8 , S9 &s9 , Op op )
Chris@16:     {
Chris@16:         BOOST_STATIC_ASSERT_MSG( BOOST_FUSION_INVOKE_MAX_ARITY >= 9 , "Macro Parameter BOOST_FUSION_INVOKE_MAX_ARITY to small!" );
Chris@16:         typedef boost::fusion::vector< S1& , S2& , S3& , S4& , S5& , S6& , S7& , S8& , S9& > Sequences;
Chris@16:         Sequences sequences( s1 , s2 , s3 , s4 , s5 , s6 , s7 , s8 , s9 );
Chris@16:         boost::fusion::for_each( boost::fusion::zip_view< Sequences >( sequences ) , boost::fusion::make_fused( op ) );
Chris@16:     }
Chris@16: 
Chris@16:     template< class S1 , class S2 , class S3 , class S4 , class S5 , class S6 , class S7 , class S8 , class S9 , class S10 , class Op >
Chris@16:     static void for_each10( S1 &s1 , S2 &s2 , S3 &s3 , S4 &s4 , S5 &s5 , S6 &s6 , S7 &s7 , S8 &s8 , S9 &s9 , S10 &s10 , Op op )
Chris@16:     {
Chris@16:         BOOST_STATIC_ASSERT_MSG( BOOST_FUSION_INVOKE_MAX_ARITY >= 10 , "Macro Parameter BOOST_FUSION_INVOKE_MAX_ARITY to small!" );
Chris@16:         typedef boost::fusion::vector< S1& , S2& , S3& , S4& , S5& , S6& , S7& , S8& , S9& , S10& > Sequences;
Chris@16:         Sequences sequences( s1 , s2 , s3 , s4 , s5 , s6 , s7 , s8 , s9 , s10 );
Chris@16:         boost::fusion::for_each( boost::fusion::zip_view< Sequences >( sequences ) , boost::fusion::make_fused( op ) );
Chris@16:     }
Chris@16: 
Chris@16:     template< class S1 , class S2 , class S3 , class S4 , class S5 , class S6 , class S7 , class S8 , class S9 , class S10 , class S11 , class Op >
Chris@16:     static void for_each11( S1 &s1 , S2 &s2 , S3 &s3 , S4 &s4 , S5 &s5 , S6 &s6 , S7 &s7 , S8 &s8 , S9 &s9 , S10 &s10 , S11 &s11 , Op op )
Chris@16:     {
Chris@16:         BOOST_STATIC_ASSERT_MSG( BOOST_FUSION_INVOKE_MAX_ARITY >= 11 , "Macro Parameter BOOST_FUSION_INVOKE_MAX_ARITY to small!" );
Chris@16:         BOOST_STATIC_ASSERT_MSG( BOOST_RESULT_OF_NUM_ARGS >= 11 , "Macro Parameter BOOST_RESULT_OF_NUM_ARGS to small!" );
Chris@16:         typedef boost::fusion::vector< S1& , S2& , S3& , S4& , S5& , S6& , S7& , S8& , S9& , S10& , S11& > Sequences;
Chris@16:         Sequences sequences( s1 , s2 , s3 , s4 , s5 , s6 , s7 , s8 , s9 , s10 , s11 );
Chris@16:         boost::fusion::for_each( boost::fusion::zip_view< Sequences >( sequences ) , boost::fusion::make_fused( op ) );
Chris@16:     }
Chris@16: 
Chris@16:     template< class S1 , class S2 , class S3 , class S4 , class S5 , class S6 , class S7 , class S8 , class S9 , class S10 , class S11 , class S12 , class Op >
Chris@16:     static void for_each12( S1 &s1 , S2 &s2 , S3 &s3 , S4 &s4 , S5 &s5 , S6 &s6 , S7 &s7 , S8 &s8 , S9 &s9 , S10 &s10 , S11 &s11 , S12 &s12 , Op op )
Chris@16:     {
Chris@16:         BOOST_STATIC_ASSERT_MSG( BOOST_FUSION_INVOKE_MAX_ARITY >= 12 , "Macro Parameter BOOST_FUSION_INVOKE_MAX_ARITY to small!" );
Chris@16:         BOOST_STATIC_ASSERT_MSG( BOOST_RESULT_OF_NUM_ARGS >= 12 , "Macro Parameter BOOST_RESULT_OF_NUM_ARGS to small!" );
Chris@16:         typedef boost::fusion::vector< S1& , S2& , S3& , S4& , S5& , S6& , S7& , S8& , S9& , S10& , S11& , S12& > Sequences;
Chris@16:         Sequences sequences( s1 , s2 , s3 , s4 , s5 , s6 , s7 , s8 , s9 , s10 , s11 , s12 );
Chris@16:         boost::fusion::for_each( boost::fusion::zip_view< Sequences >( sequences ) , boost::fusion::make_fused( op ) );
Chris@16:     }
Chris@16: 
Chris@16:     template< class S1 , class S2 , class S3 , class S4 , class S5 , class S6 , class S7 , class S8 , class S9 , class S10 , class S11 , class S12 , class S13 , class Op >
Chris@16:     static void for_each13( S1 &s1 , S2 &s2 , S3 &s3 , S4 &s4 , S5 &s5 , S6 &s6 , S7 &s7 , S8 &s8 , S9 &s9 , S10 &s10 , S11 &s11 , S12 &s12 , S13 &s13 , Op op )
Chris@16:     {
Chris@16:         BOOST_STATIC_ASSERT_MSG( BOOST_FUSION_INVOKE_MAX_ARITY >= 13 , "Macro Parameter BOOST_FUSION_INVOKE_MAX_ARITY to small!" );
Chris@16:         BOOST_STATIC_ASSERT_MSG( BOOST_RESULT_OF_NUM_ARGS >= 13 , "Macro Parameter BOOST_RESULT_OF_NUM_ARGS to small!" );
Chris@16:         typedef boost::fusion::vector< S1& , S2& , S3& , S4& , S5& , S6& , S7& , S8& , S9& , S10& , S11& , S12& , S13& > Sequences;
Chris@16:         Sequences sequences( s1 , s2 , s3 , s4 , s5 , s6 , s7 , s8 , s9 , s10 , s11 , s12 , s13 );
Chris@16:         boost::fusion::for_each( boost::fusion::zip_view< Sequences >( sequences ) , boost::fusion::make_fused( op ) );
Chris@16:     }
Chris@16: 
Chris@16:     template< class S1 , class S2 , class S3 , class S4 , class S5 , class S6 , class S7 , class S8 , class S9 , class S10 , class S11 , class S12 , class S13 , class S14 , class Op >
Chris@16:     static void for_each14( S1 &s1 , S2 &s2 , S3 &s3 , S4 &s4 , S5 &s5 , S6 &s6 , S7 &s7 , S8 &s8 , S9 &s9 , S10 &s10 , S11 &s11 , S12 &s12 , S13 &s13 , S14 &s14 , Op op )
Chris@16:     {
Chris@16:         BOOST_STATIC_ASSERT_MSG( BOOST_FUSION_INVOKE_MAX_ARITY >= 14 , "Macro Parameter BOOST_FUSION_INVOKE_MAX_ARITY to small!" );
Chris@16:         BOOST_STATIC_ASSERT_MSG( BOOST_RESULT_OF_NUM_ARGS >= 14 , "Macro Parameter BOOST_RESULT_OF_NUM_ARGS to small!" );
Chris@16:         typedef boost::fusion::vector< S1& , S2& , S3& , S4& , S5& , S6& , S7& , S8& , S9& , S10& , S11& , S12& , S13& , S14& > Sequences;
Chris@16:         Sequences sequences( s1 , s2 , s3 , s4 , s5 , s6 , s7 , s8 , s9 , s10 , s11 , s12 , s13 , s14 );
Chris@16:         boost::fusion::for_each( boost::fusion::zip_view< Sequences >( sequences ) , boost::fusion::make_fused( op ) );
Chris@16:     }
Chris@16: 
Chris@16:     template< class S1 , class S2 , class S3 , class S4 , class S5 , class S6 , class S7 , class S8 , class S9 , class S10 , class S11 , class S12 , class S13 , class S14 , class S15 , class Op >
Chris@16:     static void for_each15( S1 &s1 , S2 &s2 , S3 &s3 , S4 &s4 , S5 &s5 , S6 &s6 , S7 &s7 , S8 &s8 , S9 &s9 , S10 &s10 , S11 &s11 , S12 &s12 , S13 &s13 , S14 &s14 , S15 &s15 , Op op )
Chris@16:     {
Chris@16:         BOOST_STATIC_ASSERT_MSG( BOOST_FUSION_INVOKE_MAX_ARITY >= 15 , "Macro Parameter BOOST_FUSION_INVOKE_MAX_ARITY to small!" );
Chris@16:         BOOST_STATIC_ASSERT_MSG( BOOST_RESULT_OF_NUM_ARGS >= 15 , "Macro Parameter BOOST_RESULT_OF_NUM_ARGS to small!" );
Chris@16:         typedef boost::fusion::vector< S1& , S2& , S3& , S4& , S5& , S6& , S7& , S8& , S9& , S10& , S11& , S12& , S13& , S14& , S15& > Sequences;
Chris@16:         Sequences sequences( s1 , s2 , s3 , s4 , s5 , s6 , s7 , s8 , s9 , s10 , s11 , s12 , s13 , s14 , s15 );
Chris@16:         boost::fusion::for_each( boost::fusion::zip_view< Sequences >( sequences ) , boost::fusion::make_fused( op ) );
Chris@16:     }
Chris@16: 
Chris@101:     template< class S >
Chris@101:     static typename fusion_traits< S >::value_type norm_inf( const S &s )
Chris@16:     {
Chris@101:         typedef typename fusion_traits< S >::value_type value_type;
Chris@101:         return boost::fusion::accumulate( s , static_cast<value_type>(0) ,
Chris@101:                                           detail::fusion_maximum<value_type>() );
Chris@16:     }
Chris@101: 
Chris@16: };
Chris@16: 
Chris@16: 
Chris@16: 
Chris@16: } // odeint
Chris@16: } // numeric
Chris@16: } // boost
Chris@16: 
Chris@16: 
Chris@16: #endif // BOOST_NUMERIC_ODEINT_ALGEBRA_FUSION_ALGEBRA_HPP_INCLUDED