Re: Solving simple equations

*To*: mathgroup at smc.vnet.net*Subject*: [mg122718] Re: [mg122681] Solving simple equations*From*: Alexei Boulbitch <Alexei.Boulbitch at iee.lu>*Date*: Mon, 7 Nov 2011 05:53:49 -0500 (EST)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com

Hi, Mathieu, You are right, it cannot solve it in its present form. But one can help Mathematica a bit like follows: This is your equation: eq1 = (A*n^a)^b/n == c Its lhp is eq[[1]]. Let us map the PowerExpand onto the lhp: eq2 = MapAt[PowerExpand, eq1, {1}] and then solve this latter equation: Solve[eq2,n] This solves the equation, though you get a warning message. Hope it helps. Have fun. Mathematica seems to struggle with very simple equations: Solve[(A*n^a)^b/n == c, n] Solve::nsmet: This system cannot be solved with the methods available to Solve Reduce doesn't work either. Even if I add assumptions: Assuming[A > 0 && 1 > a > 0 && 1 > b > 0 && c > 0 && n > 0, Solve[(A n^a)^b/n == c, n]] Solve::nsmet: This system cannot be solved with the methods available to Solve. >> Is there a way for Mathematica to solve these equations? Many thanks, Mathieu Alexei BOULBITCH, Dr., habil. IEE S.A. ZAE Weiergewan, 11, rue Edmond Reuter, L-5326 Contern, LUXEMBOURG Office phone : +352-2454-2566 Office fax: +352-2454-3566 mobile phone: +49 151 52 40 66 44 e-mail: alexei.boulbitch at iee.lu<mailto:alexei.boulbitch at iee.lu>