> J[1]:=x[1]+x[2]+x[3]; J[2]:=x[1]*x[2]+x[2]*x[3]+x[3]*x[1];
>  J[3]:=x[1]*x[2]*x[3];
> 

                      J[1] := x[1] + x[2] + x[3]


              J[2] := x[1] x[2] + x[2] x[3] + x[3] x[1]


                        J[3] := x[1] x[2] x[3]

> Loesung:=solve({-2*J[1]/3-2*J[3]=0, 2/5+2*J[2]/3=0, 
> -2*J[1]/5-2*J[3]/3=0},{x[1],x[2],x[3]});
> 

  Loesung := {x[1] = 0, x[3] = %1, x[2] = -%1},

        {x[3] = %1, x[2] = 0, x[1] = -%1},

        {x[3] = 0, x[2] = %1, x[1] = -%1}

                        2
  %1 := RootOf(-3 + 5 _Z )

> L[1]:=convert(Loesung[1],`radical`);
> L[2]:=convert(Loesung[2],`radical`);
> L[3]:=convert(Loesung[3],`radical`);
> 

                                  1/2  1/2            1/2  1/2
                                 5    3              5    3
       L[1] := {x[1] = 0, x[3] = ---------, x[2] = - ---------}
                                     5                   5


                                  1/2  1/2            1/2  1/2
                                 5    3              5    3
       L[2] := {x[2] = 0, x[3] = ---------, x[1] = - ---------}
                                     5                   5


                                    1/2  1/2          1/2  1/2
                                   5    3            5    3
       L[3] := {x[3] = 0, x[1] = - ---------, x[2] = ---------}
                                       5                 5

> 
> 
