X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=blobdiff_plain;f=ginac%2Finifcns_trans.cpp;h=db502ca9568faa90f14676ce17af4fb5b547055d;hp=70eccdceaff8cda1f902d812c8d95379606fdd1b;hb=be0485a03e9886496eeb7e8cdc2cc5c95b848632;hpb=a87e6ee6d794b99dcf3946e7dde969edafeb3295

diff --git a/ginac/inifcns_trans.cpp b/ginac/inifcns_trans.cpp
index 70eccdce..db502ca9 100644
--- a/ginac/inifcns_trans.cpp
+++ b/ginac/inifcns_trans.cpp
@@ -468,10 +468,10 @@ static ex atan2_diff(ex const & y, ex const & x, unsigned diff_param)
     
     if (diff_param==0) {
         // d/dy atan(y,x)
-        return pow(x*(1+y*y/(x*x)),-1);
+        return x*pow(pow(x,2)+pow(y,2),-1);
     }
     // d/dx atan(y,x)
-    return -y*pow(x*x+y*y,-1);
+    return -y*pow(pow(x,2)+pow(y,2),-1);
 }
 
 REGISTER_FUNCTION(atan2, atan2_eval, atan2_evalf, atan2_diff, NULL);