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

/* [wxMaxima: title   start ]
Lagebeziehung Kreis und Gerade
   [wxMaxima: title   end   ] */

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

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

Gegeben sind ein Kreis und eine Gerade.
Es ist zu bestimmen, ob 
a) eine Sekante
b) eine Tangente
c) eine Passante 
vorliegt
   [wxMaxima: comment end   ] */

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

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

/* [wxMaxima: input   start ] */
kreis:read("Gib die Gleichung eines Kreises ein");
/* [wxMaxima: input   end   ] */

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

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

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

/* [wxMaxima: input   start ] */
k1:kreis,y1[1];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
l:realroots(k1);
/* [wxMaxima: input   end   ] */

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

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

/* [wxMaxima: input   start ] */
if n=0 then print("Die Gerade ist eine Passante")$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
if n=1 then print("Die Gerade ist eine Tangente")$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
if n=2 then print("Die Gerade ist eine Sekante")$
/* [wxMaxima: input   end   ] */

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