F:\O\_Mathematik\Material\Stochstik\Geogebra\MehrstufigeZE\baum_mensch2

Wdh: n

Wahrscheinlichkeiten - Pfade

Wahrscheinlichkeiten

Prognose - Häufigkeiten

P(R_1) =

tR1f =

B: \text{1. Kugel rot}

\overline{B}: \text{1. Kugel blau}

A: \text{2. Kugel rot}

\overline{A}: \text{2. Kugel blau}

xBfAf = 0.6 (slider from -5 to 5, step 0.1)
xBfAw = 0.4 (slider from -5 to 5, step 0.1)
xBf = 0.6 (slider from -5 to 5, step 0.1)
pBfAf: (xBf * xBfAf)
pBfAw: (xBf * xBfAw)
xBw = 0.4 (slider from -5 to 5, step 0.1)
xBwAw = 0.4 (slider from -5 to 5, step 0.1)
pBwAw: (xBw * xBwAw)
xBwAf = 0.6 (slider from -5 to 5, step 0.1)
pBwAf: (xBw * xBwAf)
korrekturPosE: (1, 0)
korrekturV: (-1, 0.5)
av3 = 0.2 (slider from -5 to 5, step 0.1)
av2 = 2 (slider from -5 to 5, step 0.1)
av1 = 2.4 (slider from -5 to 5, step 0.1)
av: (av1, av2, av3)
ah3 = 0.9 (slider from -5 to 5, step 0.1)
ah2 = 4.7 (slider from -5 to 5, step 0.1)
ah1 = 4.7 (slider from -5 to 5, step 0.1)
ah: (ah1, ah2, ah3)
struktur: {{"O", (0 | 0 | 0), (0 | 0 | 0), "P(B) = 0.4", "B", (1 | 0 | 0), (1 | 0 | 0), 1}, {"O", (1 | 0 | 0), (1 | 0 | 0), "P_{B}(A) = 0.25", "A", (2 | 0 | 0), (1 | 1 | 0), 2}, {"O", (1 | 0 | 0), (1 | 0 | 0), "P_{B}(\overline{A}) = 0.75", "\overline{A}", (2 | 0 | 0), (1 | -1 | 0), 2}, {"O", (0 | 0 | 0), (0 | 0 | 0), "P(\overline{B}) = 0.6", "\overline{B}", (1 | 0 | 0), (-1 | 0 | 0), 1}, {"O", (1 | 0 | 0), (-1 | 0 | 0), "P_{\overline{B}}(A) = 0.5", "A", (2 | 0 | 0), (-1 | 1 | 0), 2}, {"O", (1 | 0 | 0), (-1 | 0 | 0), "P_{\overline{B}}(\overline{A}) = 0.5", "\overline{A}", (2 | 0 | 0), (-1 | -1 | 0), 2}}
stufe = 2 (slider from 0 to 2, step 1)
verbindungen = Sequence(If[Element[Element[struktur, i], 8] ≤ stufe, Segment[((Element[Element[struktur, i], 2] * ah) | (Element[Element[struktur, i], 3] * av)), ((Element[Element[struktur, i], 6] * ah) | (Element[Element[struktur, i], 7] * av))]], i, 1, Length[struktur])
verbindungsmitten = Zip(Midpoint[S], S, verbindungen)
positionWahrscheinlichkeiten = Sequence(Element[verbindungsmitten, i] + korrekturV, i, 1, Length[verbindungsmitten])
korrekturW: (4, 0.3)
positionenTabelle = Sequence((((1 | 1 | 1) * ah) | (Element[Element[struktur, i], 7] * av)), i, 1, Length[struktur])
korrekturWB: (3.5, 0.3)
korrekturE: (0.5, 0.3)
positionenWBerechnet = Sequence(Element[positionenTabelle, i] + korrekturWB, i, 1, Length[positionenTabelle])
positionenElemente = Sequence(Element[positionenTabelle, i] + korrekturE, i, 1, Length[positionenTabelle])
hBaum = Max(Sequence[y(Element[positionenElemente, i]), i, 1, Length[positionenElemente]])
anzahlWdh = 2160 (slider from 0 to 2160, step 216)
tabelle: {{false, "A", "\frac{1}{2}", 0}, {true, "B \cap A = \{RR\}", LaTeX[pBwAw], 1}, {true, "B \cap \overline{A} = \{RB\}", LaTeX[pBwAf], 1}, {false, "C", "\frac{1}{4}", 0}, {true, "\overline{B} \cap A = \{BR\}", LaTeX[pBfAw], 1}, {true, "\overline{B} \cap \overline{A} = \{BB\}", LaTeX[pBfAf], 1}}
r = 0.4 (slider from -5 to 5, step 0.1)
I2 = NaN
knotenmitten = Sequence(If[Element[Element[struktur, i], 8] ≤ stufe, ((Element[Element[struktur, i], 6] * ah) | (Element[Element[struktur, i], 7] * av))], i, 1, Length[struktur])
knoten = Zip(Circle[X, r], X, knotenmitten)
wahrscheinlichkeiten = Sequence(Element[Element[struktur, i], 4], i, 1, Length[struktur])
darstellungwahrscheinlichkeiten = Zip(Text[W, P, false, true], W, wahrscheinlichkeiten, P, positionWahrscheinlichkeiten)
knotenbezeichner = Sequence(Element[Element[struktur, i], 5], i, 1, Length[struktur])
korrekturK: (-0.2, 0.3)
positionKnotenbezeichner = Sequence(Element[knotenmitten, i] + korrekturK, i, 1, Length[knotenmitten])
darstellungKnoten = Zip(Text[K, P, false, true], K, knotenbezeichner, P, positionKnotenbezeichner)
elemente = Sequence(If[Element[Element[tabelle, i], 1], Element[Element[tabelle, i], 2], ""], i, 1, Length[tabelle])
darstellungTabelleElemente = Zip(Text[E, P, false, true], E, elemente, P, positionenElemente)
wahrscheinlichkeitenTabelle = Sequence(If[Element[Element[tabelle, i], 1], Element[Element[tabelle, i], 3], ""], i, 1, Length[tabelle])
positionenWTabelle = Sequence(Element[positionenTabelle, i] + korrekturW, i, 1, Length[positionenTabelle])
darstellungTabelleWahrscheinlichkeiten = Zip(Text[E, P, false, true], E, wahrscheinlichkeitenTabelle, P, positionenWTabelle)
wBerechnet = Sequence(If[Element[Element[tabelle, i], 1], LaTeX[(anzahlWdh * Element[Element[tabelle, i], 4])], ""], i, 1, Length[tabelle])
darstellungTabelleWBerechnet = Zip(Text[z, P, false, true], z, wBerechnet, P, positionenWBerechnet)
Elemente = 1.2 (slider from -5 to 5, step 0.1)
posWTabelle = 1 (slider from -5 to 5, step 0.1)
posStufe1: (ah1 - r | hBaum + 0.5)
posStufe2: (ah1 + ah2 - r | hBaum + 0.5)
posStufe3: (ah1 + ah2 + ah3 - r | hBaum + 1)
tStufe1 = Text("1. Kugel", posStufe1)
tStufe2 = Text("2. Kugel", posStufe2)
stellungwahscheinlichkeiten = 1 (slider from -5 to 5, step 0.1)
b = false
arstellungErgebnisseElemente = 1 (slider from -5 to 5, step 0.1)
arstellungTabelleErgebnisse = 1 (slider from -5 to 5, step 0.1)
KopfErgebnisse = 1 (slider from -5 to 5, step 0.1)
c = true
KopfStufe1 = 1 (slider from -5 to 5, step 0.1)
KopfStufe2 = 1 (slider from -5 to 5, step 0.1)
KopfStufe3 = 1 (slider from -5 to 5, step 0.1)
Stufe = 1 (slider from -5 to 5, step 0.1)
f = false
m1: {{"O", (0 | 0 | 0), (0 | 0 | 0), "\frac16", "6", (1 | 0 | 0), (1 | 0 | 0)}, {"K", (1 | 0 | 0), (1 | 0 | 0), "\frac16", "6", (1 | 1 | 0), (1 | 1 | 0)}, {"K", (1 | 1 | 0), (1 | 1 | 0), "\frac16", "6", (1 | 1 | 1), (1 | 1 | 1)}, {"K", (1 | 1 | 0), (1 | 1 | 0), "\frac56", "\overline6", (1 | 1 | 1), (1 | 1 | -1)}, {"K", (1 | 0 | 0), (1 | 0 | 0), "\frac56", "\overline6", (1 | 1 | 0), (1 | -1 | 0)}, {"K", (1 | 1 | 0), (1 | -1 | 0), "\frac16", "6", (1 | 1 | 1), (1 | -1 | 1)}, {"K", (1 | 1 | 0), (1 | -1 | 0), "\frac56", "\overline6", (1 | 1 | 1), (1 | -1 | -1)}, {"O", (0 | 0 | 0), (0 | 0 | 0), "\frac56", "\overline6", (1 | 0 | 0), (-1 | 0 | 0)}, {"K", (1 | 0 | 0), (-1 | 0 | 0), "\frac16", "6", (1 | 1 | 0), (-1 | 1 | 0)}, {"K", (1 | 1 | 0), (-1 | 1 | 0), "\frac16", "6", (1 | 1 | 1), (-1 | 1 | 1)}, {"K", (1 | 1 | 0), (-1 | 1 | 0), "\frac56", "\overline6", (1 | 1 | 1), (-1 | 1 | -1)}, {"K", (1 | 0 | 0), (-1 | 0 | 0), "\frac56", "\overline6", (1 | 1 | 0), (-1 | -1 | 0)}, {"K", (1 | 1 | 0), (-1 | -1 | 0), "\frac16", "6", (1 | 1 | 1), (-1 | -1 | 1)}, {"K", (1 | 1 | 0), (-1 | -1 | 0), "\frac56", "\overline6", (1 | 1 | 1), (-1 | -1 | -1)}}
O: (0 | 0)
m2: {{"O", (0 | 0 | 0), (0 | 0 | 0), "\frac{1}{6}", "6", (1 | 0 | 0), (1 | 0 | 0), 1}, {"K", (1 | 0 | 0), (1 | 0 | 0), "\frac{1}{6}", "6", (1 | 1 | 0), (1 | 1 | 0), 2}, {"K", (1 | 1 | 0), (1 | 1 | 0), "\frac{1}{6}", "6", (1 | 1 | 1), (1 | 1 | 1), 3}, {"K", (1 | 1 | 0), (1 | 1 | 0), "\frac{5}{6}", "\overline{6}", (1 | 1 | 1), (1 | 1 | -1), 3}, {"K", (1 | 0 | 0), (1 | 0 | 0), "\frac{5}{6}", "\overline{6}", (1 | 1 | 0), (1 | -1 | 0), 2}, {"K", (1 | 1 | 0), (1 | -1 | 0), "\frac{1}{6}", "6", (1 | 1 | 1), (1 | -1 | 1), 3}, {"K", (1 | 1 | 0), (1 | -1 | 0), "\frac{5}{6}", "\overline{6}", (1 | 1 | 1), (1 | -1 | -1), 3}, {"O", (0 | 0 | 0), (0 | 0 | 0), "\frac{5}{6}", "\overline{6}", (1 | 0 | 0), (-1 | 0 | 0), 1}, {"K", (1 | 0 | 0), (-1 | 0 | 0), "\frac{1}{6}", "6", (1 | 1 | 0), (-1 | 1 | 0), 2}, {"K", (1 | 1 | 0), (-1 | 1 | 0), "\frac{1}{6}", "6", (1 | 1 | 1), (-1 | 1 | 1), 3}, {"K", (1 | 1 | 0), (-1 | 1 | 0), "\frac{5}{6}", "\overline{6}", (1 | 1 | 1), (-1 | 1 | -1), 3}, {"K", (1 | 0 | 0), (-1 | 0 | 0), "\frac{5}{6}", "\overline{6}", (1 | 1 | 0), (-1 | -1 | 0), 2}, {"K", (1 | 1 | 0), (-1 | -1 | 0), "\frac{1}{6}", "6", (1 | 1 | 1), (-1 | -1 | 1), 3}, {"K", (1 | 1 | 0), (-1 | -1 | 0), "\frac{5}{6}", "\overline{6}", (1 | 1 | 1), (-1 | -1 | -1), 3}}
eBw = Textfield(xBw)
eBf = Textfield(xBf)
R2w = 1 (slider from -5 to 5, step 0.1)
R2f = 1 (slider from -5 to 5, step 0.1)
d: (xBw * R2f)
tBf = Text("P(\overline{B}) = ", (0 | 0), true, true)
R1w = 1 (slider from -5 to 5, step 0.1)
tBw = Text("P(B) =", (0 | 0), true, true)
tBwAw = Text("P(A|B) = ", (0 | 0), true, true)
tBwAf = Text("P(\overline{A}|B) = ", (0 | 0), true, true)
tBfAw = Text("P(A|\overline{B}) = ", (0 | 0), true, true)
tBfAf = Text("P(\overline{A}|\overline{B}) = ", (0 | 0), true, true)
eBwAf = Textfield(xBwAf)
eBfAw = Textfield(xBfAw)
eBfAf = Textfield(xBfAf)
posR1f: Element[positionWahrscheinlichkeiten, 4] + korrekturPosE
posR1fR2f: Element[positionWahrscheinlichkeiten, 6] + korrekturPosE
posR1fR2w: Element[positionWahrscheinlichkeiten, 5] + korrekturPosE
posR1w: Element[positionWahrscheinlichkeiten, 1] + korrekturPosE
posR1wR2f: Element[positionWahrscheinlichkeiten, 3] + korrekturPosE
posR1wR2w: Element[positionWahrscheinlichkeiten, 2] + korrekturPosE
posEreignis: (ah1 + ah2 - r + 2, hBaum + 1)
xElemente: x(Element[positionenElemente, 1])
xWahrscheinlichkeiten: x(Element[positionenWTabelle, 1])
posKopfElemente: (xElemente, hBaum + 1)
tEreignis = Text("Ereignis", (0 | 0) + posKopfElemente)
posKopfWahrscheinlichkeiten: (xWahrscheinlichkeiten, hBaum + 1)
tWahrscheinlichkeit = Text("Wahrsch.", (0 | 0) + posKopfWahrscheinlichkeiten)
pAw: pBwAw + pBfAw
Text6: "P(\overline{B}) = " + (LaTeX[xBf]) + ""
pAf: pBwAf + pBfAf
Text8: "P(\overline{A}) = " + (LaTeX[pAf]) + ""
k2 = Circle((-5 | 1), 0.5)
k1 = Circle((-6 | 1), 0.5)
k3 = Circle((-4 | 1), 0.5)
k4 = Circle((-3 | 1), 0.5)
k5 = Circle((-2 | 1), 0.5)
TextBw = Text("B", Element[positionKnotenbezeichner, 1], true, true)
TextBf = Text("\overline{B}", Element[positionKnotenbezeichner, 4], true, true)
TextBwAw = Text("A", Element[positionKnotenbezeichner, 2], true, true)
TextBwAf = Text("\overline{A}", Element[positionKnotenbezeichner, 3], true, true)
TextBfAw = Text("A", Element[positionKnotenbezeichner, 5], true, true)
TextBfAf = Text("\overline{A}", Element[positionKnotenbezeichner, 6], true, true)
Text5: "P(B) = " + (LaTeX[xBw]) + ""
Text7: "P(A) = " + (LaTeX[pAw]) + ""
g = Segment((-6.5 | 2), (-6.5 | 0.5))
h = Segment((-1.5 | 2), (-1.5 | 0.5))
i = Segment((-6.5 | 0.5), (-1.5 | 0.5))
eBwAw = Textfield(xBwAw)