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

/* [wxMaxima: title   start ]
Kreis in allgemeiner Lage
   [wxMaxima: title   end   ] */

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

/* [wxMaxima: comment start ]
******************************************
Dokumentnummer: D1021
Quelle: Johann Weilharter,
             Analytische Geometrie 2
******************************************

Gegeben sind Mittelpunkt und Radius eines Kreises 
(in allgemeiner Lage): Die Gleichung dieses Kreises
ist zu bestimmen.
   [wxMaxima: comment end   ] */

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

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

/* [wxMaxima: input   start ] */
M:read("Gib den Mittelpunkt eines Kreises ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
r:read("Gib den Radius dieses Kreises ein");
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
m:M[1];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
n:M[2];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
kreis:(x-m)**2+(y-n)**2=r**2;
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
print("Kreisgleichung:",kreis)$
/* [wxMaxima: input   end   ] */

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