Polynomgleichungen erzeugen

Link zu Maxima Online: http://maxima-online.org/?inc=r-484441285

(%i1) "*"/* Polynomgleichungen erzeugen */;
(%o1)                                  *
(%i2) "*"/* Eingabe der Lösungsliste */;
(%o2)                                  *
(%i3) l:[1,2,3,4];
(%o3)                            [1, 2, 3, 4]
(%i4) "*"/* Produktion der Gleichung */;
(%o4)                                  *
(%i5) g:expand(product(x-l[i],i,1,length(l)))=0;
                       4       3       2
(%o5)                 x  - 10 x  + 35 x  - 50 x + 24 = 0
(%i6) "*"/* PROBE */;
(%o6)                                  *
(%i7) solve(g,x);
(%o7)                    [x = 3, x = 4, x = 1, x = 2]
(%i8) realroots(g);
(%o8)                    [x = 1, x = 2, x = 3, x = 4]
(%i9)