/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/
/* [ Created by wxMaxima version 0.7.3 ] */

/* [wxMaxima: title   start ]
Diskriminante
   [wxMaxima: title   end   ] */

/* [wxMaxima: section start ]
Problembeschreibung
   [wxMaxima: section end   ] */

/* [wxMaxima: comment start ]
******************************************
Dokumentnummer: D1010
Quelle: http://www.edhelper.com
******************************************

Gegeben sei eine quadratische Gleichung. Die Dikriminante
ist zu bestimmen.
   [wxMaxima: comment end   ] */

/* [wxMaxima: section start ]
Problemlösung
   [wxMaxima: section end   ] */

/* [wxMaxima: comment start ]
EINGABE
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
g:read("Gib eine quadratische Gleichung ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
VERARBEITUNG
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
f:lhs(g)-rhs(g);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
a:coeff(f,x,2);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
b:coeff(f,x,1);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
c:coeff(f,x,0);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
d:b**2-4*a*c;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
AUSGABE
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
print("Die Diskriminante ist",d)$
/* [wxMaxima: input   end   ] */

/* Maxima can't load/batch files which end with a comment! */
"Created with wxMaxima"$