- 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 f48db0abf9a35b8513399c08a346bb6e4dfd9215..650d69bbcc4fe16c22d90ebf893b23f6296d800e 100644 (file)
--- 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;
 {
     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).
     
     // 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 b8e80204606a52620e8b000f331583ed3f49f9df..5660e708db3ad01eb38ba64a73502c49fb94ec1b 100644 (file)
--- a/check/series_expansion.cpp
+++ b/check/series_expansion.cpp
@@ -137,6 +137,7 @@ static unsigned series4(void)
     unsigned result = 0;
     ex e, d;
     
     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) -
     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);
     
         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 +
     e = tan(x*Pi/2);
     d = pow(x-1,-1)/Pi*(-2) +
         pow(x-1,1)*Pi/6 +