würfeln

Neustart

100-mal würfeln

\textsf{Würfelpaare -- absolute Häufigkeit:}

Histogramm außerhalb der Tabelle (wahrscheinlich hinfällig)

WA: {1 / 6, 1 / 6, 1 / 6, 1 / 6, 1 / 6, 1 / 6}
WB: {1 / 6, 1 / 6, 1 / 6, 1 / 6, 1 / 6, 1 / 6}
WBSumme = Sequence(Sum[Take[WB, 1, i]], i, 1, 6)
fB(x) = If[x ≥ 0, If[x < Element[WBSumme, 1], 1, If[x < Element[WBSumme, 2], 2, If[x < Element[WBSumme, 3], 3, If[x < Element[WBSumme, 4], 4, If[x < Element[WBSumme, 5], 5, If[x < Element[WBSumme, 6], 6]]]]]]]
vB(x) = If[0 ≤ x < 1, 1 + Sum[Sequence[If[x ≥ Element[WBSumme, i], 1, 0], i, 1, 6]]]
A: (11 | 11)
B: (x(A) + 1 | y(A))
C: (11 | 9)
D: (x(C) + 1 | y(C))
G: (3.5 | -1)
I: (1.5 | -1)
wuerfelB = 1 (slider from 1 to 6, step 1)
wuerfelA = 6 (slider from 1 to 6, step 1)
summeAB: wuerfelA + wuerfelB
Text3: "" + summeAB + ""
paarwerte: {{0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0}}
wuerfelABulk: {1, 4, 3, 3, 5, 2, 3, 5, 2, 4, 6, 4, 3, 2, 5, 1, 4, 3, 6, 5, 1, 5, 4, 5, 4, 2, 5, 4, 5, 4, 2, 3, 6, 5, 1, 2, 6, 2, 5, 4, 2, 6, 6, 6, 3, 2, 5, 1, 6, 2, 6, 5, 4, 1, 4, 4, 6, 1, 3, 3, 3, 4, 1, 3, 3, 5, 3, 6, 6, 6, 2, 3, 3, 4, 5, 1, 1, 2, 4, 6, 1, 5, 2, 1, 3, 3, 2, 5, 5, 5, 4, 6, 1, 1, 6, 6, 5, 3, 4, 6}
wuerfelBBulk: {4, 5, 4, 3, 1, 5, 3, 1, 6, 6, 3, 5, 1, 2, 1, 1, 3, 6, 4, 3, 4, 1, 2, 2, 3, 6, 5, 2, 1, 3, 5, 4, 2, 2, 1, 3, 2, 3, 6, 6, 4, 6, 6, 3, 5, 5, 5, 3, 2, 2, 3, 1, 1, 5, 1, 2, 1, 1, 5, 4, 2, 2, 5, 1, 5, 3, 1, 1, 6, 6, 2, 1, 4, 6, 5, 5, 1, 4, 5, 6, 6, 1, 1, 2, 3, 4, 3, 1, 2, 5, 3, 3, 1, 6, 1, 3, 1, 4, 6, 1}
paarwerteTemp: {{5, 1, 1, 2, 3, 2}, {1, 3, 3, 2, 3, 2}, {4, 1, 3, 6, 3, 1}, {2, 4, 4, 0, 3, 4}, {9, 3, 2, 0, 4, 1}, {4, 3, 5, 1, 0, 5}}
summenwerte = Zip(Sum[Sum[Zip[Zip[If[i + j ≟ k, paarwerte(i, j), 0], j, 1…6], i, 1…6]]], k, 1…12)
Text2: "\begin{tabular}{*{8}{@{\hspace{-4mm}}c}} 
 " + (LaTeX[Sum[Zip["&" + "\colorbox[HTML]{ff9933}{" + (Text[i]) + "}", i, 1…6]]]) + "\\
 " + (LaTeX[Sum[Zip["\colorbox{red}{" + (Text[i]) + "}" + (("&" * Sum[Zip["\colorbox[HTML]{" + (If[Mod[i + j, 2] ≟ 0, "EEEEEE", "BBBBBB"]) + "}{" + (Text[paarwerte(i, j)]) + "}" + " & ", j, 1…6]])) + "\\ ", i, 1…6]]]) + "
\end{tabular}"
J: (0 | -1)
histogrammAlt = Zip(Polygon[J + (i - 0.5 | 0), J + (i + 0.5 | 0), J + (i + 0.5 | h), J + (i - 0.5 | h)], i, 2…12, h, (Take[summenwerte, 2, 12] / Max[summenwerte] * 2))
histogrammBeschriftung = Zip(Text[i, J + (i | 0), false, false, 0, -1], i, 2…12)
paarwerte_{1}: {{1, 0, 0, 1, 0, 0}, {0, 1, 0, 1, 1, 1}, {0, 1, 0, 0, 1, 1}, {1, 1, 0, 2, 0, 0}, {3, 0, 0, 2, 0, 0}, {1, 0, 0, 0, 2, 0}}
Text2_{1}: "\begin{tabular}{*{8}{@{\hspace{-4mm}}c}} 
 " + (LaTeX[Sum[Zip["&" + "\colorbox[HTML]{ff9933}{" + (Text[i]) + "}", i, 1…6]]]) + "\\
 " + (LaTeX[Sum[Zip["\colorbox{red}{" + (Text[i]) + "}" + (("&" * Sum[Zip["\colorbox[HTML]{" + (If[Mod[i + j, 2] ≟ 0, "EEEEEE", "BBBBBB"]) + "}{" + "\vphantom{1}\ " + "}" + " & ", j, 1…6]])) + "\\ ", i, 1…6]]]) + "
\end{tabular}"
Text1: "{
\setlength{\tabcolsep}{-1mm}
\begin{tabular}{@{\hspace{1mm}}c@{\hspace{1mm}}*{13}{c}}
  \\ \vspace{5mm}
\textsf{\textbf{Augensumme}} & " + (LaTeX[Sum[Zip["\textbf{" + (Text[i]) + "}" + "&", i, 2…12]]]) + " \\
\textsf{abs. Häufigk.} & " + (LaTeX[Sum[Zip[Text["\colorbox[HTML]{" + (If[Mod[i, 2] ≟ 0, "eeeeee", "bbbbbb"]) + "}{" + (summenwerte(i))] + "}" + "&", i, 2…12]]]) + " \\
\textsf{}\vspace{30mm} " + (LaTeX[If[Sum[summenwerte] > 0, Sum[Zip["&" + "\(\rule{8mm}{" + (h) + "mm}\)", h, (Take[summenwerte, 2, 12] / Max[summenwerte] * 30)]]]]) + " 

\end{tabular}
}"