würfeln

Neustart

\text{Werte von X:}

\text{Mittelwert:}

\text{Häufigkeiten:}

Q1: (4 | 6)
L1: (2 | 2)
R1: (4 | 2)
L2: (6 | 2)
R2: (8 | 2)
augen1 = 2 (slider from -5 to 10, step 0.1)
augen2 = 6 (slider from -5 to 10, step 0.1)
Pfeil = Vector((5 | 1), (5 | -1))
d: abs(augen1 - augen2)
DifferenzenListe: {}
Text1: "X: " + d + ""
zaehler = 0 (slider from 0 to 10000, step 1)
DifferenzenLlste = 1 (slider from -5 to 5, step 0.1)
Mittelwert = 0 (slider from -5 to 5, step 0.1)
mittelwert: Sum[DifferenzenListe] / zaehler
XWerteListe: {0, 1, 2, 3, 4, 5}
HAbsListe = Frequency(Append[XWerteListe, 6], DifferenzenListe)
T = 1 (slider from -5 to 5, step 0.1)
tabelleOben: "" + (Sum[Zip[Text[a] + "&", a, Take[XWerteListe, 1, 5]]] + (Text[XWerteListe(6)])) + ""
a = 1 (slider from -5 to 5, step 0.1)
tabelleAbsUnten: "" + (Sum[Zip[Text[a] + "&", a, Take[HAbsListe, 1, 5]]] + (Text[HAbsListe(6)])) + ""
Text8: "\begin{tabular}{l|ccccccc}\text{a} & " + (LaTeX[tabelleOben]) + " \\\hline\text{H(a)} & " + (LaTeX[tabelleAbsUnten]) + "\end{tabular}"
HRelListe = Sequence(HAbsListe(i) / zaehler, i, 1, 6)
tabelleRelUnten: Sum[Zip[Text[a] + "&", a, Take[HRelListe, 1, 5]]] + (Text[HRelListe(6)])
Text9: "\begin{tabular}{l|ccccccc}\text{a} & " + (LaTeX[tabelleOben]) + " \\\hline\text{h(a)} & " + (LaTeX[tabelleRelUnten]) + "\end{tabular}"
Text2: "" + (LaTeX[DifferenzenListe]) + ""
Text7: "\frac{" + (LaTeX[HAbsListe(1)]) + " \cdot 0 + " + (LaTeX[HAbsListe(2)]) + " \cdot 1 + " + (LaTeX[HAbsListe(3)]) + " \cdot 2 + " + (LaTeX[HAbsListe(4)]) + " \cdot 3 + " + (LaTeX[HAbsListe(5)]) + " \cdot 4 + " + (LaTeX[HAbsListe(6)]) + " \cdot 5 }{" + (LaTeX[zaehler]) + "} = \\" + (LaTeX[HRelListe(1)]) + " \cdot 0 + " + (LaTeX[HRelListe(2)]) + " \cdot 1 + " + (LaTeX[HRelListe(3)]) + " \cdot 2 + " + (LaTeX[HRelListe(4)]) + " \cdot 3 +  " + (LaTeX[HRelListe(5)]) + " \cdot 4 +  " + (LaTeX[HRelListe(6)]) + " \cdot 5 \approx " + (LaTeX[mittelwert]) + ""