if (!abs(pow(p,a+I*b)).eval().is_equal(pow(p,a)))
++result;
+ if (!abs(sqrt(p)).eval().is_equal(sqrt(p)))
+ ++result;
+
+ if (!abs(-sqrt(p)).eval().is_equal(sqrt(p)))
+ ++result;
+
// also checks that abs(p)=p
if (!abs(pow(p,a+I*b)).eval().is_equal(pow(p,a)))
++result;
static unsigned inifcns_consist_log()
{
+ using GiNaC::log;
unsigned result = 0;
symbol z("a"), w("b");
realsymbol a("a"), b("b");
return result;
}
-/* Several tests for derivetives */
+/* Several tests for derivatives */
static unsigned inifcns_consist_derivatives()
{
unsigned result = 0;