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

/* [wxMaxima: title   start ]
Nullstellen und Pole
   [wxMaxima: title   end   ] */

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

/* [wxMaxima: comment start ]
*******************************************
Dokumentnummer: D1048
Quelle: Johann Weilharter, Analysis
*******************************************

Gegeben ist eine gebrochen rationale Funktion.
Zu bestimmen sind
a) die Nullstellen,
b) die Pole
   [wxMaxima: comment end   ] */

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

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

/* [wxMaxima: input   start ] */
f:read("Gib eine gebrochen rationale Funktion y=f(x) ein");
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
f:''rhs(f);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
zaehler:num(f);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
nenner:denom(f);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
nullstellen:realroots(zaehler);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
pole:realroots(nenner);
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
print("Nullstellen =",nullstellen)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
print("Pole =",pole)$
/* [wxMaxima: input   end   ] */

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