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

/* [wxMaxima: title   start ]
Ellipsen: Halbachsen
   [wxMaxima: title   end   ] */

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

/* [wxMaxima: comment start ]
******************************************
Dokumentnummer: D1029
Quelle: Johann Weilharfer,
             Analytische Geometrie 2
******************************************

Die große (a) und die kleine Halbachse (b)
einer Ellipse in Hauptlage sind zu bestimmen.
   [wxMaxima: comment end   ] */

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

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

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

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

/* [wxMaxima: input   start ] */
ell_y:ell,x=0;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ly:solve(ell_y,y);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
y1:y,ly[1];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
y2:y,ly[2];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ell_x:ell,y=0;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
lx:solve(ell_x,x);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
x1:x,lx[1];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
x2:x,lx[2];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
if x1>0 then ev(a:x1) else ev(a:x2);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
if y1>0 then ev(b:y1) else ev(b:y2);
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
print("Große Halbachse der Ellipse =",a)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
print("Kleine Halbachse der Ellipse =",b)$
/* [wxMaxima: input   end   ] */

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