Lösungen/Solutions/F2S1Ue/Ex2

L = Lektion/ Leçon   -- Sprechstunde / heures de consultation
W = Work / Arbeit / Travail
A=Anhang/Annexe/Appendice

<< Graphics`Graphics`

<< Statistics`DescriptiveStatistics`

Ueb/Ex 1

tb = {{153, 1}, {154, 1}, {155, 2}, {156, 3}, {157, 3}, {158, 5}, {159, 
          6}, {160, 4}, {161, 5}, {162, 7}, {163, 5}, {164, 5}, {165, 
          6}, {166, 7}, {167, 5}, {168, 5}, {169, 6}, {170, 5}, {171, 
          6}, {172, 4}, {173, 3}, {174, 2}, {175, 3}, {176, 1}, {177, 
          1}, {178, 1}}

BarChart[tb];

unbrauchbar / inutilisable

tb1 = 
      Table[{tb[[k]][[2]], tb[[k]][[1]]}, {k, 1, 
          Length[tb]}]

BarChart[tb1];

tb2 = 
Table[
        Table[tb[[k]][[1]], {i, 
            1, tb[[k]][[2]]}], {k, 1, Length[tb]}]

tb3 = Flatten[tb2]

DispersionReport[tb3]

LocationReport[tb3]

LocationReport[tb3] // N

ShapeReport[tb3]

ShapeReport[tb3] // N

Ueb/Ex 2

p[x_] := Floor[6  Random[]  + 1];
w[n_] = Table[p[x_], {i, 1, n}];

a = w[30]

b = w[100];  c = w[10000];

N[LocationReport[a]]

N[LocationReport[b]]

N[LocationReport[c]]

N[DispersionReport[a]]

N[DispersionReport[b]]

N[DispersionReport[c]]

Ueb/Ex 3      L

Künstliches Beispiel / Exemple Artificiel

Tabelle / Tableau

u1 = Table[6 + Random[], {n, 1, 30}]

u2 = 
      Table[{IntegerPart[u1[[n]]], "h", 
          FractionalPart[u1[[n]]] 60/100}, {n, 1, 
          Length[u1]}]

Datenmanipulation / Manipuler les données

<< Statistics`DataManipulation`

rang=Range[6.05, 7, 
        0.1]

binc = BinCounts[u1, {6, 7, 0.1}]

u3 = Transpose[{binc, rang}]

Datenmanipulation / Manipuler les données

<< Graphics`Graphics`

BarChart[u3];

100 Werte, 20 Klassen / 100 valeurs 20 classes

v1 = Table[6 + Random[], {n, 1, 100}]

<< Statistics`DataManipulation`

newRang=Range[6.025, 7, 
        0.05]

Length[newRang]

newBinc = BinCounts[v1, {6, 7, 0.05}]

Length[newBinc]

v3 = Transpose[{newBinc, newRang}]

BarChart[v3];

s1 = Table[newRang[[n]], {n, 1, Length[newRang], 4}]

sTest = 
      Flatten[Table[{".", newRang[[n]], ".", "."}, {n, 1, 
            Length[newRang]}]]

s2 = 
      Flatten[Table[{" ", newRang[[n]], " ", " "}, {n, 1, 
            Length[newRang]}]]

BarChart[v3, BarLabels -> s2];

Ueb/Ex 4

aL = {0, 0, 3, 2, 9, 6, 3}

BarChart[aL];

====>   Unbrauchbar! / Inutilisable!

u = {0, 1, 2, 3, 4, 5, 6}

tr = Transpose[{aL, u}]

BarChart[tr];

Ueb/Ex 5

Fakultäten / Factorielles

{0!, 1!, 2!, 3!, 4!, 5!, 6!}

Binomialkoeffizienten /  coefficients binomials

?Bin*

?Binomial

1/Binomial[39, 6]

1/Binomial[40, 6]

1/Binomial[41, 6]

1/Binomial[42, 6]

1/Binomial[100, 6]