> eq:=2*y^5-4*y^3+2*y-2*y^2+1=0;

>

eq := 2*y^5-4*y^3+2*y-2*y^2+1 = 0

> solve(eq,y);

>

RootOf(2*_Z^5-4*_Z^3+2*_Z-2*_Z^2+1,index = 1), Root...
RootOf(2*_Z^5-4*_Z^3+2*_Z-2*_Z^2+1,index = 1), Root...
RootOf(2*_Z^5-4*_Z^3+2*_Z-2*_Z^2+1,index = 1), Root...

> sols := [solve(eq,y)];

sols := [RootOf(2*_Z^5-4*_Z^3+2*_Z-2*_Z^2+1,index =...
sols := [RootOf(2*_Z^5-4*_Z^3+2*_Z-2*_Z^2+1,index =...
sols := [RootOf(2*_Z^5-4*_Z^3+2*_Z-2*_Z^2+1,index =...

> evalf({%});

>

{[.7847434416, 1.427563934, -.8747341997+.446262710...

> plot(2*y^5-4*y^3+2*y-2*y^2+1,y=1..1.5);

[Maple Plot]

> eq:=y^5-2*y^3+y-4*y^2+2=0;

eq := y^5-2*y^3+y-4*y^2+2 = 0

> solve(eq,y);

RootOf(_Z^5-2*_Z^3+_Z-4*_Z^2+2,index = 1), RootOf(_...
RootOf(_Z^5-2*_Z^3+_Z-4*_Z^2+2,index = 1), RootOf(_...
RootOf(_Z^5-2*_Z^3+_Z-4*_Z^2+2,index = 1), RootOf(_...

> evalf({%});

{.7341700607, 1.882269146, -.9731218984-1.101144214...

> plot(y^5-2*y^3+y-4*y^2+2,y=1..2);

>

[Maple Plot]

>