154 lines
4.7 KiB
C
154 lines
4.7 KiB
C
|
/*=============================================================================
|
||
|
|
|
||
|
|
This file is part of FLINT.
|
||
|
|
|
||
|
|
FLINT is free software; you can redistribute it and/or modify
|
||
|
|
it under the terms of the GNU General Public License as published by
|
||
|
|
the Free Software Foundation; either version 2 of the License, or
|
||
|
|
(at your option) any later version.
|
||
|
|
|
||
|
|
FLINT is distributed in the hope that it will be useful,
|
||
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
|
|
GNU General Public License for more details.
|
||
|
|
|
||
|
|
You should have received a copy of the GNU General Public License
|
||
|
|
along with FLINT; if not, write to the Free Software
|
||
|
|
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
|
||
|
|
|
||
|
|
=============================================================================*/
|
||
|
|
/******************************************************************************
|
||
|
|
|
||
|
|
Copyright (C) 2013 Tom Bachmann
|
||
|
|
|
||
|
|
******************************************************************************/
|
||
|
|
|
||
|
|
#ifndef FLINT_CXX_STDMATH_H
|
||
|
|
#define FLINT_CXX_STDMATH_H
|
||
|
|
|
||
|
|
#include "expression.h"
|
||
|
|
#include "expression_traits.h"
|
||
|
|
|
||
|
|
// This file defines lazy operations which are used by several different flint
|
||
|
|
// classes.
|
||
|
|
|
||
|
|
namespace flint {
|
||
|
|
FLINT_DEFINE_BINOP(pow)
|
||
|
|
FLINT_DEFINE_BINOP(pow_binexp)
|
||
|
|
FLINT_DEFINE_BINOP(root)
|
||
|
|
|
||
|
|
FLINT_DEFINE_UNOP(abs)
|
||
|
|
FLINT_DEFINE_UNOP(exp)
|
||
|
|
FLINT_DEFINE_UNOP(log)
|
||
|
|
FLINT_DEFINE_UNOP(sqrt)
|
||
|
|
FLINT_DEFINE_UNOP(inv)
|
||
|
|
|
||
|
|
FLINT_DEFINE_UNOP(sqr)
|
||
|
|
FLINT_DEFINE_UNOP(sqr_classical)
|
||
|
|
FLINT_DEFINE_UNOP(sqr_KS)
|
||
|
|
|
||
|
|
FLINT_DEFINE_UNOP(height)
|
||
|
|
|
||
|
|
FLINT_DEFINE_BINOP(divexact)
|
||
|
|
FLINT_DEFINE_BINOP(divrem)
|
||
|
|
FLINT_DEFINE_BINOP(fdiv_2exp)
|
||
|
|
FLINT_DEFINE_BINOP(mul_2exp)
|
||
|
|
FLINT_DEFINE_BINOP(mul_classical)
|
||
|
|
FLINT_DEFINE_BINOP(mul_KS)
|
||
|
|
FLINT_DEFINE_BINOP(tdiv)
|
||
|
|
FLINT_DEFINE_BINOP(tdiv_2exp)
|
||
|
|
|
||
|
|
FLINT_DEFINE_THREEARY(mulhigh)
|
||
|
|
FLINT_DEFINE_THREEARY(mulhigh_classical)
|
||
|
|
FLINT_DEFINE_THREEARY(mullow)
|
||
|
|
FLINT_DEFINE_THREEARY(mullow_classical)
|
||
|
|
FLINT_DEFINE_THREEARY(mullow_KS)
|
||
|
|
|
||
|
|
FLINT_DEFINE_BINOP(smod) // "symmetric" %
|
||
|
|
|
||
|
|
// poly functions
|
||
|
|
FLINT_DEFINE_BINOP(compose)
|
||
|
|
FLINT_DEFINE_BINOP(compose_divconquer)
|
||
|
|
FLINT_DEFINE_BINOP(compose_horner)
|
||
|
|
FLINT_DEFINE_BINOP(div_basecase)
|
||
|
|
FLINT_DEFINE_BINOP(div_divconquer)
|
||
|
|
FLINT_DEFINE_BINOP(divrem_basecase)
|
||
|
|
FLINT_DEFINE_BINOP(divrem_divconquer)
|
||
|
|
FLINT_DEFINE_BINOP(div_root)
|
||
|
|
FLINT_DEFINE_BINOP(evaluate)
|
||
|
|
FLINT_DEFINE_BINOP(bit_pack)
|
||
|
|
FLINT_DEFINE_BINOP(shift_left)
|
||
|
|
FLINT_DEFINE_BINOP(shift_right)
|
||
|
|
FLINT_DEFINE_BINOP(rem_basecase)
|
||
|
|
FLINT_DEFINE_BINOP(resultant)
|
||
|
|
FLINT_DEFINE_BINOP(reverse)
|
||
|
|
FLINT_DEFINE_BINOP(taylor_shift)
|
||
|
|
FLINT_DEFINE_BINOP(taylor_shift_horner)
|
||
|
|
|
||
|
|
FLINT_DEFINE_UNOP(content)
|
||
|
|
FLINT_DEFINE_UNOP(derivative)
|
||
|
|
FLINT_DEFINE_UNOP(integral)
|
||
|
|
FLINT_DEFINE_UNOP(make_monic)
|
||
|
|
FLINT_DEFINE_UNOP(twonorm)
|
||
|
|
FLINT_DEFINE_UNOP(bound_roots)
|
||
|
|
FLINT_DEFINE_UNOP(primitive_part)
|
||
|
|
|
||
|
|
FLINT_DEFINE_BINOP(inv_series)
|
||
|
|
FLINT_DEFINE_BINOP(inv_series_newton)
|
||
|
|
FLINT_DEFINE_BINOP(revert_series)
|
||
|
|
FLINT_DEFINE_BINOP(revert_series_lagrange)
|
||
|
|
FLINT_DEFINE_BINOP(revert_series_lagrange_fast)
|
||
|
|
FLINT_DEFINE_BINOP(revert_series_newton)
|
||
|
|
|
||
|
|
FLINT_DEFINE_BINOP(sqrt_series)
|
||
|
|
FLINT_DEFINE_BINOP(invsqrt_series)
|
||
|
|
FLINT_DEFINE_BINOP(exp_series)
|
||
|
|
FLINT_DEFINE_BINOP(log_series)
|
||
|
|
FLINT_DEFINE_BINOP(atan_series)
|
||
|
|
FLINT_DEFINE_BINOP(atanh_series)
|
||
|
|
FLINT_DEFINE_BINOP(asin_series)
|
||
|
|
FLINT_DEFINE_BINOP(asinh_series)
|
||
|
|
FLINT_DEFINE_BINOP(tan_series)
|
||
|
|
FLINT_DEFINE_BINOP(sin_series)
|
||
|
|
FLINT_DEFINE_BINOP(cos_series)
|
||
|
|
FLINT_DEFINE_BINOP(sinh_series)
|
||
|
|
FLINT_DEFINE_BINOP(cosh_series)
|
||
|
|
FLINT_DEFINE_BINOP(tanh_series)
|
||
|
|
|
||
|
|
FLINT_DEFINE_THREEARY(compose_series)
|
||
|
|
FLINT_DEFINE_THREEARY(compose_series_brent_kung)
|
||
|
|
FLINT_DEFINE_THREEARY(compose_series_divconquer)
|
||
|
|
FLINT_DEFINE_THREEARY(compose_series_horner)
|
||
|
|
FLINT_DEFINE_THREEARY(div_series)
|
||
|
|
FLINT_DEFINE_THREEARY(pow_trunc)
|
||
|
|
FLINT_DEFINE_THREEARY(pow_trunc_binexp)
|
||
|
|
|
||
|
|
FLINT_DEFINE_BINOP(compeval)
|
||
|
|
|
||
|
|
// matrix functions in flintxx/matrix.h
|
||
|
|
|
||
|
|
// chinese remaindering
|
||
|
|
FLINT_DEFINE_FIVEARY(CRT)
|
||
|
|
FLINT_DEFINE_FOURARY_HERE(CRT) // four argument version
|
||
|
|
FLINT_DEFINE_THREEARY(multi_CRT)
|
||
|
|
FLINT_DEFINE_BINOP_HERE(multi_CRT) // two argument version
|
||
|
|
|
||
|
|
// implementation of compeval
|
||
|
|
namespace rules {
|
||
|
|
// implementation of compeval
|
||
|
|
// TODO do at level of "struct evaluation" instead?
|
||
|
|
template<class T, class U>
|
||
|
|
struct binary_expression<T, operations::compeval_op, U,
|
||
|
|
typename mp::enable_if<mp::or_<
|
||
|
|
traits::is_implemented<binary_expression<T, operations::compose_op, U> >,
|
||
|
|
traits::is_implemented<binary_expression<T, operations::evaluate_op, U> >
|
||
|
|
> >::type>
|
||
|
|
: mp::if_<
|
||
|
|
traits::is_implemented<binary_expression<T, operations::compose_op, U> >,
|
||
|
|
binary_expression<T, operations::compose_op, U>,
|
||
|
|
binary_expression<T, operations::evaluate_op, U> >::type { };
|
||
|
|
} // rules
|
||
|
|
} // flint
|
||
|
|
|
||
|
|
#endif
|