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)