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

/* [wxMaxima: title   start ]
Lage Gerade Kreis
   [wxMaxima: title   end   ] */

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

/* [wxMaxima: comment start ]
******************************************
Dokumentnummer: D1017
Quelle: Johann Weilharter,
              Analytische Geometrie 2
******************************************
Wenn eine Gerade einen Kreis in zwei Punkten schneidet,
dann ist sie eine Sekante.
Wenn eine Gerade einen Kreis in einem Punkt berührt,
dann ist sie eine Tangente.
Wenn die Gerade und der Kreis keinen Punkt gemeinsam haben,
dann ist sie eine Passante.

Es ist diese Lagebeziehung für einen gegebenen Kreis und eine
gegebene Gerade zu bestimmen.
   [wxMaxima: comment end   ] */

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

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

/* [wxMaxima: input   start ] */
k:read("Gib die Kreisgleichung ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
g:read("Gib die Geradengleichung ein");
/* [wxMaxima: input   end   ] */

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

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

/* [wxMaxima: input   start ] */
l:solve([k,g],[x,y]);
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
if n=0 then
           ev(lage:"Passante")
           else if n=1 then
                              ev(lage:"Tangente")
                              else
                              ev(lage:"Sekante");
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
print("Die Gerade",g,"ist eine",lage,"bezüglich des Kreises",k)$
/* [wxMaxima: input   end   ] */

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