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)
