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

Wdh: n

Wahrscheinlichkeiten - Pfade

Prognose - Häufigkeiten

Stufe = 1 (slider from 0 to 3, step 1)
struktur: {{"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}}
ah1 = 2.2 (slider from -5 to 5, step 0.1)
ah2 = 2.5 (slider from -5 to 5, step 0.1)
ah3 = 2.5 (slider from -5 to 5, step 0.1)
ah: (ah1, ah2, ah3)
av1 = 3.4 (slider from -5 to 5, step 0.1)
av2 = 1.7 (slider from -5 to 5, step 0.1)
av3 = 1.1 (slider from -5 to 5, step 0.1)
av: (av1, av2, av3)
korrekturW: (3.5, 0.5)
positionenTabelle = Sequence((((1 | 1 | 1) * ah) | (Element[Element[struktur, i], 7] * av)), i, 1, Length[struktur])
korrekturWB: (3.5, 0.3)
korrekturE: (1.5, 0.3)
positionenWBerechnet = Sequence(Element[positionenTabelle, i] + korrekturWB, i, 1, Length[positionenTabelle])
xHfkt: x(Element[positionenWBerechnet, 1])
positionenElemente = Sequence(Element[positionenTabelle, i] + korrekturE, i, 1, Length[positionenTabelle])
hBaum = Max(Sequence[y(Element[positionenElemente, i]), i, 1, Length[positionenElemente]])
xElemente: x(Element[positionenElemente, 1])
anzahlWdh = 2160 (slider from 0 to 2160, step 216)
tabelle: {{false, "6", "\frac{1}{6}", 0}, {false, "6 ~ 6", "\frac{1}{6} \cdot \frac{1}{6}", 0}, {true, "6 ~ 6 ~ 6", "\frac{1}{6} \cdot \frac{1}{6} \cdot \frac{1}{6} = \frac{1}{216}", ((1 / 6 * 1 / 6) * 1 / 6)}, {true, "6 ~ 6 ~ \overline{6}", "\frac{1}{6} \cdot \frac{1}{6} \cdot \frac{5}{6} = \frac{5}{216}", ((1 / 6 * 1 / 6) * 5 / 6)}, {false, "6 ~ \overline{6}", "\frac{1}{6} \cdot \frac{5}{6}", 0}, {true, "6 ~ \overline{6} ~ 6", "\frac{1}{6} \cdot \frac{5}{6} \cdot \frac{1}{6} = \frac{5}{216}", ((1 / 6 * 5 / 6) * 1 / 6)}, {true, "6 ~ \overline{6} ~ \overline{6}", "\frac{1}{6} \cdot \frac{5}{6} \cdot \frac{5}{6} = \frac{25}{216}", ((1 / 6 * 5 / 6) * 5 / 6)}, {false, "\overline{6}", "\frac{5}{6}", 0}, {false, "\overline{6} ~ 6", "\frac{5}{6} \cdot \frac{1}{6}", 0}, {true, "\overline{6} ~ 6 ~ 6", "\frac{5}{6} \cdot \frac{1}{6} \cdot \frac{1}{6} = \frac{5}{216}", ((5 / 6 * 1 / 6) * 1 / 6)}, {true, "\overline{6} ~ 6 ~ \overline{6}", "\frac{5}{6} \cdot \frac{1}{6} \cdot \frac{5}{6} = \frac{25}{216}", ((5 / 6 * 1 / 6) * 5 / 6)}, {false, "\overline{6}\overline{6}", "\frac{5}{6} \cdot \frac{5}{6}", 0}, {true, "\overline{6} ~ \overline{6} ~ 6", "\frac{5}{6} \cdot \frac{5}{6} \cdot \frac{1}{6} = \frac{25}{216}", ((5 / 6 * 5 / 6) * 1 / 6)}, {true, "\overline{6} ~ \overline{6} ~ \overline{6}", "\frac{5}{6} \cdot \frac{5}{6} \cdot \frac{5}{6} = \frac{125}{216}", ((5 / 6 * 5 / 6) * 5 / 6)}}
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)
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)
wahrscheinlichkeiten = Sequence(Element[Element[struktur, i], 4], i, 1, Length[struktur])
korrekturV: (-0.2, 0.5)
positionWahrscheinlichkeiten = Sequence(Element[verbindungsmitten, i] + korrekturV, i, 1, Length[verbindungsmitten])
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)
posKopfElemente: (xElemente | hBaum + 1)
tKopfElemente = Text("Ergeb.", posKopfElemente)
Elemente = 1 (slider from -5 to 5, step 0.1)
posWTabelle = 1 (slider from -5 to 5, step 0.1)
xWahrscheinlichkeiten: x(Element[positionenWTabelle, 1])
posKopfWahrscheinlichkeiten: (xWahrscheinlichkeiten | hBaum + 1)
posKopfHfkt: (xHfkt | hBaum + 1)
tKopfHfkt = Text("Hfkt.", posKopfHfkt)
V1 = NaN
posStufe1: (ah1 - r | hBaum + 1)
posStufe2: (ah1 + ah2 - r | hBaum + 1)
posStufe3: (ah1 + ah2 + ah3 - r | hBaum + 1)
tStufe1 = Text("1. Wurf", posStufe1)
tStufe2 = Text("2. Wurf", posStufe2)
tStufe3 = Text("3. Wurf", posStufe3)
stellungwahscheinlichkeiten = 1 (slider from -5 to 5, step 0.1)
b = true
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)
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} = 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)