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)

Kommentar verfassen

Trage deine Daten unten ein oder klicke ein Icon um dich einzuloggen:

WordPress.com-Logo

Du kommentierst mit Deinem WordPress.com-Konto. Abmelden / Ändern )

Twitter-Bild

Du kommentierst mit Deinem Twitter-Konto. Abmelden / Ändern )

Facebook-Foto

Du kommentierst mit Deinem Facebook-Konto. Abmelden / Ändern )

Google+ Foto

Du kommentierst mit Deinem Google+-Konto. Abmelden / Ändern )

Verbinde mit %s