- fixed differentiation of gamma(x)

[ginac.git] / ginac / inifcns_trans.cpp

diff --git a/ginac/inifcns_trans.cpp b/ginac/inifcns_trans.cpp
index 40968672dcd01dfb715e9e4a08ab92f562797492..ce979686337d9abb435f179ae64117d50ad295ff 100644 (file)
--- a/ginac/inifcns_trans.cpp
+++ b/ginac/inifcns_trans.cpp
@@ -465,13 +465,13 @@ static ex atan2_eval(ex const & y, ex const & x)
 static ex atan2_diff(ex const & y, ex const & x, unsigned diff_param)
 {
     ASSERT(diff_param<2);
 static ex atan2_diff(ex const & y, ex const & x, unsigned diff_param)
 {
     ASSERT(diff_param<2);

-
+    

     if (diff_param==0) {
         // d/dy atan(y,x)
     if (diff_param==0) {
         // d/dy atan(y,x)

-        return power(x*(1+y*y/(x*x)),-1);
+        return pow(x*(1+y*y/(x*x)),-1);

     }
     // d/dx atan(y,x)
     }
     // d/dx atan(y,x)

-    return -y*power(x*x+y*y,-1);
+    return -y*pow(x*x+y*y,-1);

 }
 
 REGISTER_FUNCTION(atan2, atan2_eval, atan2_evalf, atan2_diff, NULL);
 }
 
 REGISTER_FUNCTION(atan2, atan2_eval, atan2_evalf, atan2_diff, NULL);