主题：【求教数学问题】如何判别这个函数在原点附近的性质？ -- 晨枫

<< Graphics`;

<< Graphics`Animation`;

plot1 = Table[ImplicitPlot[y^4 - 2y^3 +y^2 == 2x^3+x^2-x^5+c^3, {x,-2,2}, PlotRange -> {{-2, 2}, {-2,3}}, PlotLabel -> "animated function", PlotStyle -> {{RGBColor[1, 0, 0]}}, DisplayFunction -> Identity], {c, -1.45, 1.1, .015}];

Export["c:/temp/plot.gif", plot1, ConversionOptions -> {"AnimationDisplayTime" -> 0.2, "Loop" -> False}, ImageSize -> {500, 500}];