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

/* [wxMaxima: title   start ]
Allgemeines Dreieck
   [wxMaxima: title   end   ] */

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

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

Gegeben ist eine Liste mit den Seiten eines allgemeinen Dreiecks.
Zu berechnen sind die drei Höhen sowie die Fläche.
   [wxMaxima: comment end   ] */

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

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

/* [wxMaxima: input   start ] */
Dreieck:read("Gib die Liste mit den Seiten eines allgemeinen Dreiecks ein");
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
a:Dreieck[1];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
b:Dreieck[2];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
c:Dreieck[3];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
s:(a+b+c)/2;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
A:sqrt(s*(s-a)*(s-b)*(s-c));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ha:2*A/a,numer;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
hb:2*A/b,numer;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
hc:2*A/c,numer;
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
print("Höhe auf a =",ha)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
print("Höhe auf b =",hb)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
print("Höhe auf c =",hc)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
print("Fläche =",A)$
/* [wxMaxima: input   end   ] */

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