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

/* [wxMaxima: title   start ]
Kreis und Ellipse
   [wxMaxima: title   end   ] */

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

/* [wxMaxima: comment start ]
******************************************
Dokumentnummer: D1020
Quelle: Johann Weilharter,
             Analytische Geometrie 2
******************************************
Gegeben sind die Gleichungen eines Kreises und einer Ellipse.
Etwaige Schnittpunkte sind zu bestimmen.
   [wxMaxima: comment end   ] */

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

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

/* [wxMaxima: input   start ] */
kreis:read("Gib einen Kreis ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ellipse:read("Gib eine Ellipse ein");
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
realonly:true;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
loesung:solve([kreis,ellipse],[x,y]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
loesung:loesung,numer;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
n:length(loesung);
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
if n>0 then print("Die",n," Schnittpunkte sind",loesung) else print("Es gibt keine Schnittpunkte")$
/* [wxMaxima: input   end   ] */

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