# Urliste -> gruppierte Liste

## Problembeschreibung

******************************************
Dokumentnummer: D1147
Quelle: Johann Weilharter,
             Stochastisk
******************************************

Das Ergebnis einer statistischen Erhebung liegt als Urliste
vor.
Man bestimme:
a) die Zufallsvariable (X),
b) die relativen Häufigkeiten (H) und die zugehörige
c) Wahrscheinlichkeitsverteilung.

Außerdem soll man überprüfen, ob der Mittelwert der Urliste
und der Erwartungswert der gruppierten Liste gleich sind.

## Problemlösung

DAS UNTERPROGRAMM

load(descriptive);

EINGABE

urliste:read("Gib die Urliste ein");

VERARBEITUNG

m:mean(urliste);

m:m,numer;

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

liste:discrete_freq(urliste);

X:liste[1];

H:liste[2];

n:length(X);

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

P:H/N;

P:P,numer;

e:sum(P[i]*X[i],i,1,n);

e:floor(e*1000.0+0.5)/1000.0;

if is(m=e) then print("Mittelwert der Urliste = Erwartungswert der gruppierten Liste")$

Tabelle:[transpose(X),transpose(H),transpose(P)];

AUSGABE

print(Tabelle)$