Solve[(a*x)*log ((a*x)/x) == x*log (x/a)]