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

/* [wxMaxima: title   start ]
Quader: minimales und maximales Volumen
   [wxMaxima: title   end   ] */

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

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

In einer Quaderliste soll man das kleinste und größte
Volumen feststellen
   [wxMaxima: comment end   ] */

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

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

/* [wxMaxima: input   start ] */
quader:read("Gib eine Liste von Quadern ein in []");
/* [wxMaxima: input   end   ] */

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

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

/* [wxMaxima: input   start ] */
for i:1 thru n do
     V[i]:prod(quader[i][j],j,1,3)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
volumen:makelist(V[i],i,1,n);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
svolumen:sort(volumen);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
minimum:svolumen[1];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
maximum:svolumen[n];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
for i:1 thru n do
      if volumen[i]=minimum
         then posmin:i$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
for i:1 thru n do
     if volumen[i]=maximum
        then posmax:i$
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
print("Position des minimalen Volumens =",posmin)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
print("Position des maximalen Volumens =",posmax)$
/* [wxMaxima: input   end   ] */

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