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

/* [wxMaxima: title   start ]
Quaderliste: Volumen, Oberfläche
   [wxMaxima: title   end   ] */

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

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

Gegeben ist eine Liste von Quadern mit Länge, Breite und Höhe.
Das jeweilige Volumen sowie die Oberfläche sind zu berechnen.
   [wxMaxima: comment end   ] */

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

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

/* [wxMaxima: input   start ] */
quader:read("Gib die Lise mit Länge, Breite und Höhe ein");
/* [wxMaxima: input   end   ] */

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

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

/* [wxMaxima: comment start ]
AUSGABE (enthält Verarbeitungsschritte)
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
for i:1 thru n do
      print("Volumen",i,"=",quader[i][1]*quader[i][2]*quader[i][3]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
for i:1 thru n do
     print("Oberfläche",i,"=",2*(quader[i][1]*quader[i][2]+quader[i][1]*
               quader[i][3]+quader[i][2]*quader[i][3]));
/* [wxMaxima: input   end   ] */

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