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

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

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

/* [wxMaxima: comment start ]
******************************************
Dokumentnummer: D1067
Quelle: Johann Weilharter,
             Stochastik
******************************************

Für eine gegebene Liste x sollen 

a) das arithmetische Mittel
b) das harmonisches Mittel
c) das geometrische Mittel

bestimmt werden.
   [wxMaxima: comment end   ] */

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

/* [wxMaxima: comment start ]
UNTERPROGRAMMM LADEN
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
load(descriptive);
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
x:read("Gib eine Liste ein");
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
m:mean(x);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
m:m,numer;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
m:floor(m*1000+0.5)/1000.0;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
hm:harmonic_mean(x);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
hm:hm,numer;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
hm:floor(hm*1000+0.5)/1000.0;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
gm:geometric_mean(x);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
gm:gm,numer;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
gm:floor(gm*1000+0.5)/1000.0;
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
print("Arithmetisches Mittel",m)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
print("Harmonisches Mittel",hm)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
print("Geometrisches Mittel",gm)$
/* [wxMaxima: input   end   ] */

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