Return output from Solve[ ]?

Questions
,
1

Hello,

I am new to Mathematica and I am trying to find the the value of y that satisfies this equation.
However, I am not being able to get an explicit result nor to find the reason.

I have following input:

TD=0.0326
MD=0.0163
c0=77.6
EQbar=c0/10
alfa=0.1
teta=-0.11
EQ=c0
solve[alfa*(EQ-EQbar)^teta-(1-alfa)*((1-TD)*c0)^teta==alfa*((c0/(1+y*9))-EQbar)^teta+(1-alfa)*((1-MD)*c0)^teta,y]

Output: 

solve [-0.496999==0.558654 +0.1/(-7.76+77.6/(1+9 y))^0.11,y]

I would like to have y value of the equation.

Many thanks.

Mathematica.png
Mathematica.png1489×686 12.3 KB

2

Use

Solve

instead of

solve

and when you make that change it returns {} which indicates it could find no solution.

So try using Reduce instead of Solve because it can sometimes use other methods.

That returns False indicating it could find no solution.

So use Simplify on your equation to see what it looks like. That returns

1. + 0.09472812453166003/(-7.76 + 77.6/(1 + 9*y))^0.11 == 0

Humm… Can that left hand side equal zero?

Try

Plot[ReIm[1. + 0.09472812453166003/(-7.76 + 77.6/(1 + 9*y))^0.11],{y,-1,1}]

to look at the Real and Imaginary parts of that expression.

It does not look like that expression might ever be zero so there may actually be no solution and Solve and Reduce might have been correct when they reported this.

Or perhaps I made a mistake copying this into Mathematica.

Please check all this very carefully to see if there might be any mistakes.

3

Many thanks, with your help I was able to solve the issue. Furthermore I noticed a sign issue.