Q: How to solve a specific exponential equation where the power of the exponential function is a function of the variable to be solved I want to solve "x" in the following exponential equations
(1) A = x Exp[(m/x)+n x]
(2) B = x Exp[(m/x)+x^n]
where A, B, m and n are constants.
I could easily solve A = x Exp[(m/x)]  (the codes are given below).
Solve[x Exp[m/x] - A == 0, x] {{x -> -(m/ProductLog[-(m/A)])}}
But error occurs when I try to solve the equations (1) and (2)(The codes are given below). Kindly help me out. I will be very grateful.
Solve[x Exp[m/x + n x] - A == 0, x]
On giving this command for the first equation it says "Solve::nsmet: This system cannot be solved with the methods available to Solve."
Similarly for equation (2) on giving command
Solve[x Exp[m/x + x^n] - B == 0, x] it shows the same way.
