|
|
|
|
|
|
|
|
Die zu untersuchenden Werte können aus einer Datenliste eingelesen werden. Die Daten sind einzeln in einer Spalte in einer Datei abzulegen.
Remove["Global`*"]
Needs["Statistics`Master`"]
Needs["Graphics`Graphics`"] (* für Balkendiagramme *)
data:=ReadList["dateiname",Number]
(* Sortieren der Daten *)
Sort[data]
(* Kumulative Summe *)
CumulativeSums[data]
(* Berechnung der Häufigkeit *)
hf:=Frequencies[data]
BarChart[hf]
(* Klasseneinteilung mit den Klassengrenzen k1,k2,k3 usw. *)
k1:=
k2:=
k3:=
RangeCounts[data,{k1,k2,k3}]
(* Klasseneinteilung mit äquidistanten Klassengrenzen *)
start:= (* Start der Klasseneinteilung *)
schritt:= (* Breite einer Klasse *)
fin:= (* Ende der Klasseneinteilung *)
anzahl=BinCounts[data,{start,fin,schritt}]
(* Balkendarstellung dieser Häufigkeitsverteilung *)
xwert:=Table[x,{x,start+schritt/2,fin-schritt/2,schritt}]
BarChart[Transpose[{anzahl,xwert}]]
