Lösungen/Solutions/F2S1Ue/Ex1

Run -> ganz rechts auf blaue linie klicken, Enter (mehrmals möglich!!!!!)/
Run -> ligne bleue tout à droite, cliquer , entrer (plusieurs fois possible!!!!!)

L = Lektion/ Leçon   -- Sprechstunde / heures de consultation

W = Work / Arbeit / Travail

A=Anhang/Annexe/Appendice

Notwendige Packages laden/ Charger les packages nécessaires

<< Graphics`Graphics`

<< Statistics`DescriptiveStatistics`

Ueb/Ex 1

Kurs/ Cours

Home page Rolf Wirz

http://www.hta-bi.bfh.ch/~wir

Ueb/Ex 2      L / W

a     Würfeln / Jouer aux dés

Zufallszahlen: / Nombre aléatoires:

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?
/ Nombre sont calculés chaque fois si on appelle la fonction! Est-ce qu'on peut l'éviter?

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.
/ Maintenant on devrait comprendre comment il faut faire.

{a,b,c,d,e}.{f,g,h,i,j} ist das Skalarprodukt / est le produit scalaire

{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 / Classes

Klassen einteilen / Diviser en classes

Range[27]

rg = Range[27] + 3

rP = Partition[rg, 3]

Klassenmitten / Moyennes de classes

(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 / Valeurs extrêmes de la 5ème classe

Max[rP[[5]]]

Min[rP[[5]]]

Werte aus tab den Klassen zuordnen / Les valeurs de tab  grouper dans les classes (fréquences!)

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/Remplacer les valeurs par les valeurs moyennes des classes

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

Leere Klassen entfernen/ Enlever les classes vides

freq2 = freq1 /. {} -> missing

freq3 = DeleteCases[freq2, missing]

File flach machen/ Transformer en file unidimensionel

freq4 = Flatten[freq3]

freq5 = Frequencies[freq4]

MatrixForm[freq5]

Remove[x1, x2]

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

MatrixForm[freq6]

Namen anpassen / Choisir un nom compréhensible

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