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

/* [wxMaxima: title   start ]
Quader
   [wxMaxima: title   end   ] */

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

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

Gegeben ist eine Quader durch Länge, Breite, Höhe.
Zu bestimmen sind
a) Volumen
b) Oberfläche
c) Raumdiagonale
   [wxMaxima: comment end   ] */

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

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

/* [wxMaxima: input   start ] */
a:read("Laenge des Quaders");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
b:read("Breite des Quaders");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
c:read("Hoehe des Quaders");
/* [wxMaxima: input   end   ] */

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

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

/* [wxMaxima: input   start ] */
V:a*b*c;
/* [wxMaxima: input   end   ] */

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

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

/* [wxMaxima: input   start ] */
d:floor(d*100+0.5)/100.0;
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
print("Volumen =",V)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
print("Oberflaeche =",O)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
print("Diagonale =",d)$
/* [wxMaxima: input   end   ] */

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