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

/* [wxMaxima: title   start ]
Halbachsen der Hyperbel
   [wxMaxima: title   end   ] */

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

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

Gegeben ist eine Hyperbel in Hauptlage. Die Halbachsen a und b
sind zu bestimmen.
   [wxMaxima: comment end   ] */

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

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

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

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

/* [wxMaxima: input   start ] */
hyp:hyp,y=%i*y;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
hyp_y:hyp,x=0;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ly:solve(hyp_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 ] */
hyp_x:hyp,y=0;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
lx:solve(hyp_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 a:x1 else a:-x1;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
if y1>0 then b:y1 else b:-y1;
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
print("Die große Halbachse ist",a)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
print("Die kleine Halbachse ist",b)$
/* [wxMaxima: input   end   ] */

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