# What is wrong with my simple plot? [closed]

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}]

-

## closed as off-topic by Yves Klett, Rahul, Öskå, Jens, rasherJun 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, rasher
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

s = {y^4 - I 0.03 y^3 - 0.0196 y^2 + I 0.03 y - x^2 + 16 == 0};

@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