Lösungen / Statistik 1/01

1. Download Software

Link siehe Uebungsblatt

1. Download Skripts zu Software

Links siehe Uebungsblatt

3. a) Erst ein Programm zum Würfeln

Allgemeines

?Random

Random[Integer, {1, 6}]

Beispiel: gewürfelte Tabelle - gewürfelte 3-er-Gruppen

Table[Random[Integer, {1, 6}], {n, 1, 20}]

Table[Table[Random[Integer, {1, 6}], {n, 1, 3}], {m, 1, 20}]

Table[Table[Random[Integer, {1, 6}], {n, 1, 3}], {m, 1, 20}] // 
      MatrixForm

3. b) Lösungen

Run -> ganz rechts auf blaue linie klicken, Enter (mehrmals möglich!!!!!)

L = Lektion   -- Sprechstunde

W = Work / Arbeit

A=Anhang/ Appendice

Notwendige Packages laden

<< Graphics`Graphics`

<< Statistics`DescriptiveStatistics`

Ueb 1

Kurs

Home page Rolf Wirz

rowicus.ch

Ueb 2      L / W

a     Würfeln

Zufallszahlen:

p[x_] := Random[]; 
    k[i_] := Round[
        5 {p[x], p[x], p[x], p[x], p[x]} + 1];
k[1]

k[1]

k[2]

Zahlen werden jedesmal neu generiert! Kann man das vermeiden?

u = k[2]

u = k[2]

u

u

u

k[2]

k[2]

u

u

k[3]

k[4]

Nun sollte es klar sein, wie es funktioniert.

{a,b,c,d,e}.{f,g,h,i,j} ist das Skalarprodukt

{a, b, c, d, e} . {1, 1, 1, 1, 1}

s[i_] := k[i] . {1, 1, 1, 1, 1};  s[1]

s[2]

s[3]

tab = Table[s[i], {i, 50}]

tab

tab = Sort[tab]

b      Klassen

Klassen einteilen

Range[27]

rg = Range[27] + 3

rP = Partition[rg, 3]

Klassenmitten

(Min[rP[[1]]] + Max[rP[[1]]])/2

rPMean = 
      Table[(Min[rP[[i]]] + Max[rP[[i]]])/2, {i, 1, 
          Length[rP]}]

Extreme Werte der 5. Klasse

Max[rP[[5]]]

Min[rP[[5]]]

Werte aus tab den Klassen zuordnen

Select[
      tab, (Min[rP[[5]]] < #1 < Max[rP[[5]]]) &]

freq = 
      Table[Select[
          tab, (Min[rP[[i]]] - 1 < #1 < Max[rP[[i]]] + 1) &], {i, 
          1, Length[rP]}]

Werte durch Klassenmittelwerte ersetzen

freq1 = 
      Table[Table[rPMean[[i]], {k, 1, Length[freq[[i]]]}], {i, 1, 
          Length[rP]}]

Leere Klassen entfernen

freq2 = freq1 /. {} -> missing

freq3 = DeleteCases[freq2, missing]

File flach machen

freq4 = Flatten[freq3]

freq5 = Frequencies[freq4]

MatrixForm[freq5]

Remove[x1, x2]

freq6 = freq5 /. {x1_, x2_} -> {x2, x1}

MatrixForm[freq6]

Namen anpassen

classes = freq4;

classes1 = freq5;

c      Graphics

BarChart[classes1];

Histogram[classes];

d     LocationReport

tab

freq4

{Mean[tab], Mean[classes]} // N

LocationReport[tab] // N

LocationReport[classes] // N

e  DispersionReport

DispersionReport[tab] // N

DispersionReport[classes] // N