MaplePrimes - answers and comments on Question, Obtaining power of a function x+y

Possible way

Kitonum — Tue, 24 Jul 2012 09:23:16 Z

eq1:=4*x^n*y^m+(x+y)^n+x^3:

simplify(log[x+y](select(has, eq1, x+y)), symbolic);

how to get the power of (x+y)^n

Alejandro Jakubi — Thu, 26 Jul 2012 12:39:19 Z

You may try with patmach:

patmatch((x+y)^n,a::algebraic^m::algebraic,'p');p;
                                 true
                          [a = x + y, m = n]

op

acer — Thu, 26 Jul 2012 20:43:11 Z

The exponent is the second operand of a call to `^`.

> op((x+y)^n);

                                   x + y, n

> op(2,(x+y)^n);

                                       n

> expr:=(x+y)^(-p)+4*x^n*y^m+(x+y)^n+x^3:        

> seq([U,op(2,U)],U in indets(expr,`^`));

            n        m              n              (-p)         3
          [x , n], [y , m], [(x + y) , n], [(x + y)    , -p], [x , 3]

> map2(op,2,indets(expr,identical(x+y)^anything));

                                    {n, -p}

acer