From 3ad4e97e949298e5d1733843130e399f4e171d9d Mon Sep 17 00:00:00 2001 From: Richard Kreckel Date: Wed, 31 Jan 2001 00:55:27 +0000 Subject: [PATCH] - throw at atan()'s poles. --- ginac/inifcns_trans.cpp | 2 ++ 1 file changed, 2 insertions(+) diff --git a/ginac/inifcns_trans.cpp b/ginac/inifcns_trans.cpp index 07f8648a..390f84f1 100644 --- a/ginac/inifcns_trans.cpp +++ b/ginac/inifcns_trans.cpp @@ -589,6 +589,8 @@ static ex atan_eval(const ex & x) // atan(-1) -> -Pi/4 if (x.is_equal(_ex_1())) return _ex_1_4()*Pi; + if (x.is_equal(I) || x.is_equal(-I)) + throw (pole_error("atan_eval(): logarithmic pole",0)); // atan(float) -> float if (!x.info(info_flags::crational)) return atan_evalf(x); -- 2.44.0