# Statistische Kennzahlen

## Problembeschreibung

*****************************************
Dokumentnummer: D1190
Quelle: Johann Weilharter,
              Stochastik
*****************************************
Gegeben ist eine (absolute) Häufigkeits-
verteilung.

Gesucht sind
a)Erwartungswert
b)Varianz
c)Streuung

## Problemlösung

EINGABE

x:read("Gib eine Zufallsvariable ein");

h:read("Gib die Häufigkeiten ein");

VERARBEITUNG

n:length(x);

N:sum(h[i],i,1,n);

p:h/N;

m:sum(p[i]*x[i],i,1,n);

m:m,numer;

v:sum(p[i]*(x[i]-m)**2,i,1,n);

v:floor(v*1000+0.5)/1000.0;

s:sqrt(v);

s:floor(s*1000+0.5)/1000.0;

AUSGABE

print("Erwartungswert      ",m)$

print("Varianz             ",v)$

print("Streuung           ",s)$