From: Richard Kreckel Date: Mon, 20 Dec 1999 20:06:12 +0000 (+0000) Subject: - more logic on the trigonometric function stuff. X-Git-Tag: relase_0-5-1~100 X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=commitdiff_plain;h=8a3a0aad0fe18304062335fdc934757855abd887 - more logic on the trigonometric function stuff. - changed several occurences of numeric const & to const numeric &, which is the same, but doxygen kept being confused because declarations differed from implementations. --- diff --git a/check/inifcns_consist.cpp b/check/inifcns_consist.cpp index f48db0ab..650d69bb 100644 --- a/check/inifcns_consist.cpp +++ b/check/inifcns_consist.cpp @@ -220,7 +220,7 @@ static unsigned inifcns_consist_psi(void) { unsigned result = 0; symbol x; - ex e; + ex e, f; // We check psi(1) and psi(1/2) implicitly by calculating the curious // little identity gamma(1)'/gamma(1) - gamma(1/2)'/gamma(1/2) == 2*log(2). diff --git a/check/series_expansion.cpp b/check/series_expansion.cpp index b8e80204..5660e708 100644 --- a/check/series_expansion.cpp +++ b/check/series_expansion.cpp @@ -137,6 +137,7 @@ static unsigned series4(void) unsigned result = 0; ex e, d; + // gamma(-1): e = gamma(2*x); d = pow(x+1,-1)*numeric(1,4) + pow(x+1,0)*(numeric(3,4) - @@ -165,6 +166,7 @@ static unsigned series4(void) Order(pow(x+1,4)); result += check_series(e, -1, d, 4); + // tan(Pi/2) e = tan(x*Pi/2); d = pow(x-1,-1)/Pi*(-2) + pow(x-1,1)*Pi/6 +