Take the 2-minute tour ×
Mathematica Stack Exchange is a question and answer site for users of Mathematica. It's 100% free, no registration required.

What is the problem with plotting the imaginary part of this equation?

 s = {y[x]^4 - I0 .03 y[x]^3 - 0.0196 y[x]^2 + I 0.03 y[x] - x^2 + 
 16 == 0};
 sol = Solve[s, y[x], x];
 Plot[Evaluate[Im[y[x]] /. sol], {x, 0, 1}]
share|improve this question

closed as off-topic by Yves Klett, Rahul, Öskå, Jens, ciao Jun 10 '14 at 21:56

This question appears to be off-topic. The users who voted to close gave this specific reason:

  • "This question arises due to a simple mistake such as a trivial syntax error, incorrect capitalization, spelling mistake, or other typographical error and is unlikely to help any future visitors, or else it is easily found in the documentation." – Yves Klett, Rahul, Öskå, Jens, ciao
If this question can be reworded to fit the rules in the help center, please edit the question.

Minimum change required to make the plot work: Replace I0 .03 with I 0.03. Should we close the question as typographical error? –  Rahul Jun 10 '14 at 15:53
Actually in writing code in website, I made a mistake! my problem was with constancy of the graph! Now it has been solved. –  user14782 Jun 10 '14 at 16:07

1 Answer 1

s = {y^4 - I 0.03 y^3 - 0.0196 y^2 + I 0.03 y - x^2 + 16 == 0};
sol= Solve[s, y];
Plot[Evaluate[Im[y] /. sol], {x, 0, 1}]
share|improve this answer
But answer is wrong. It gives a constant graph! –  user14782 Jun 10 '14 at 15:35
@user14782: If you plot Im[y] /. sol[[1]] for example, you will see that it is not a constant graph, the variation is just very small. –  Rahul Jun 10 '14 at 15:52