Auswahl:

Wahrscheinlichkeit:

N1 = Text("\Box", (2, 2), false, true)
T1 = Text("\boxtimes", (2, 2), false, true)
t1 = false
N2 = Text("\Box", (4, 2), false, true)
N3 = Text("\Box", (6, 2), false, true)
N4 = Text("\Box", (8, 2), false, true)
N5 = Text("\Box", (10, 2), false, true)
N6 = Text("\Box", (12, 2), false, true)
N7 = Text("\Box", (14, 2), false, true)
N8 = Text("\Box", (16, 2), false, true)
N9 = Text("\Box", (18, 2), false, true)
N10 = Text("\Box", (20, 2), false, true)
T2 = Text("\boxtimes", (4, 2), false, true)
T3 = Text("\boxtimes", (6, 2), false, true)
T4 = Text("\boxtimes", (8, 2), false, true)
T5 = Text("\boxtimes", (10, 2), false, true)
T6 = Text("\boxtimes", (12, 2), false, true)
T7 = Text("\boxtimes", (14, 2), false, true)
T8 = Text("\boxtimes", (16, 2), false, true)
T9 = Text("\boxtimes", (18, 2), false, true)
T10 = Text("\boxtimes", (20, 2), false, true)
t2 = false
t3 = false
t4 = false
t5 = false
t6 = false
t7: false
t8: false
t9: false
t10: false
auswahl: {t1, t2, t3, t4, t5, t6, t7, t8, t9, t10}
anzahlTreffer = Sum(auswahl)
anzahlNieten: Length[auswahl] - anzahlTreffer
p = 0.25 (slider from -5 to 5)
q: 1 - p
tp: "\stackrel{" + (LaTeX[p]) + "}{\longrightarrow}"
tq: "\stackrel{" + (LaTeX[q]) + "}{\longrightarrow}"
n: 10
pAuswahl: (p^(anzahlTreffer) * q^(anzahlNieten))
Text3: "" + (LaTeX[p]) + "^{" + (LaTeX[anzahlTreffer]) + "} \cdot " + (LaTeX[q]) + "^{" + (LaTeX[anzahlNieten]) + "} \approx " + (LaTeX[pAuswahl]) + ""
darstellungWahrscheinlichkeiten = Sequence(If[¬(auswahl(i)), Text[tq, ((2 * i) - 1, 2.15), true, true], Text[tp, ((2 * i) - 1, 2.15), true, true]], i, 1, n)