From: Richard Kreckel <Richard.Kreckel@uni-mainz.de>
Date: Mon, 20 Dec 1999 20:06:12 +0000 (+0000)
Subject: - more logic on the trigonometric function stuff.
X-Git-Tag: release_0-5-0~87
X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=commitdiff_plain;h=8a3a0aad0fe18304062335fdc934757855abd887;hp=955cb185a85535ab328ffedbfccdc508ce80fa91

- 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 +