* functions. */
/*
- * GiNaC Copyright (C) 1999-2003 Johannes Gutenberg University Mainz, Germany
+ * GiNaC Copyright (C) 1999-2004 Johannes Gutenberg University Mainz, Germany
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
// log(exp(t)) -> t (if -Pi < t.imag() <= Pi):
if (is_ex_the_function(x, exp)) {
const ex &t = x.op(0);
- if (is_a<symbol>(t) && (ex_to<symbol>(t).get_domain() == symbol_options::real)) {
+ if (is_a<symbol>(t) && t.info(info_flags::real)) {
return t;
}
if (t.info(info_flags::numeric)) {
if (!(2*x_pt/Pi).info(info_flags::odd))
throw do_taylor(); // caught by function::series()
// if we got here we have to care for a simple pole
- return (sin(x)/cos(x)).series(rel, order+2, options);
+ return (sin(x)/cos(x)).series(rel, order, options);
}
REGISTER_FUNCTION(tan, eval_func(tan_eval).
if (!(2*I*x_pt/Pi).info(info_flags::odd))
throw do_taylor(); // caught by function::series()
// if we got here we have to care for a simple pole
- return (sinh(x)/cosh(x)).series(rel, order+2, options);
+ return (sinh(x)/cosh(x)).series(rel, order, options);
}
REGISTER_FUNCTION(tanh, eval_func(tanh_eval).