[Getfem-commits] r5211 - /trunk/getfem/src/getfem_generic_assembly.cc

[logari81]

Author: logari81
Date: Wed Dec 30 23:01:19 2015
New Revision: 5211

URL: http://svn.gna.org/viewcvs/getfem?rev=5211&view=rev
Log:
fix interchanged second derivatives of atan and atanh

Modified:
    trunk/getfem/src/getfem_generic_assembly.cc

Modified: trunk/getfem/src/getfem_generic_assembly.cc
URL: 
http://svn.gna.org/viewcvs/getfem/trunk/getfem/src/getfem_generic_assembly.cc?rev=5211&r1=5210&r2=5211&view=diff
==============================================================================
--- trunk/getfem/src/getfem_generic_assembly.cc (original)
+++ trunk/getfem/src/getfem_generic_assembly.cc Wed Dec 30 23:01:19 2015
@@ -2419,7 +2419,7 @@
     PREDEF_FUNCTIONS["DER_PDFUNC_ACOSH"] =
       ga_predef_function(ga_der_acosh, 2, "-t/(pow(t*t-1,1.5))");
     PREDEF_FUNCTIONS["DER_PDFUNC_ATANH"] =
-      ga_predef_function(ga_der_atanh, 2, "-2*t/sqr(1+t*t)");
+      ga_predef_function(ga_der_atanh, 2, "2*t/sqr(1-t*t)");
 
 
     // Trigonometric functions
@@ -2447,7 +2447,7 @@
     PREDEF_FUNCTIONS["DER_PDFUNC_ACOS"] =
       ga_predef_function(ga_der_acos, 2, "-t/(pow(1-t*t,1.5))");
     PREDEF_FUNCTIONS["DER_PDFUNC_ATAN"] =
-      ga_predef_function(ga_der_atan, 2, "2*t/sqr(1-t*t)");
+      ga_predef_function(ga_der_atan, 2, "-2*t/sqr(1+t*t)");
 
 
     // Error functions