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

/* [wxMaxima: title   start ]
Einfache mittlere lineare Abweichung
   [wxMaxima: title   end   ] */

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

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

Es sollen die mittlere Abweichung und der Variabilitätskoeffizient der
Monatsumsätze von Jänner bis Dezember berechnet werden.
   [wxMaxima: comment end   ] */

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

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

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

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

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

/* [wxMaxima: input   start ] */
d:sum(abs(x[i]-m),i,1,n)/n;
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
v:d*100/m;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
v:floor(v*10+0.5)/10.0;
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
print("Die einfache mittlere lineare Abweichung ist",d)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
print("Der Variabilitätskoeffizient ist",v)$
/* [wxMaxima: input   end   ] */

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