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 Narain, Öskå, Jens, rasher Jun 10 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 Narain, Öskå, Jens, rasher
If this question can be reworded to fit the rules in the help center, please edit the question.

1  
Minimum change required to make the plot work: Replace I0 .03 with I 0.03. Should we close the question as typographical error? –  Rahul Narain Jun 10 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 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 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 Narain Jun 10 at 15:52

Not the answer you're looking for? Browse other questions tagged or ask your own question.