los

reset

historyH: {1, 5, 8, 4, 3, 7, 8, 3, 8, 6, 1, 3, 3, 7, 7, 5, 7, 7, 5, 3}
historyp: {1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 1, 1, 1, 2, 2, 1, 2, 2, 1, 1}
strafe_2 = 20 (slider from 0 to 50, step 1)
strafe_1 = 2 (slider from 0 to 10, step 1)
tippep_1fallskleinergleich = 5 (slider from 0 to n, step 1)
historygewinn = Sequence(If[Element[historyp, i] ≟ 1 ∧ Element[historyH, i] ≤ tippep_1fallskleinergleich, 1, 0] + If[Element[historyp, i] ≟ 2 ∧ Element[historyH, i] > tippep_1fallskleinergleich, 1, 0] + If[Element[historyp, i] ≟ 1 ∧ Element[historyH, i] > tippep_1fallskleinergleich, (-strafe_1), 0] + If[Element[historyp, i] ≟ 2 ∧ Element[historyH, i] ≤ tippep_1fallskleinergleich, (-strafe_2), 0], i, 1, Length[historyp])
A = (0, 0)
C: (0, 1)
f = Segment(A, C)
W_2 = Point(f)
W_1 = Point(f)
n = 11 (slider from 10 to 100, step 1)
B = (1, 0)
u = Segment(A, B)
P_1: (y(W_1), 0)
p_1: x(P_1)
P_2: (y(W_2), 0)
p_2: x(P_2)
Lp_1OK = Sequence(BinomialDist[n, p_1, k, true], k, 0, n)
Lp_2F = Sequence(BinomialDist[n, p_2, k, true], k, 0, n)
Lp_2OK = Sequence(1 - BinomialDist[n, p_2, k, true], k, 0, n)
Lp_1F: 1 - Lp_1OK
priori_1 = 0.5 (slider from 0 to 1, step 0.1)
mze_1 = Sequence(If[random() < p_1, 1, 0], i, 1, n, 1)
mze_2 = Sequence(If[random() < p_2, 1, 0], i, 1, n, 1)
ist = If(random() < priori_1, 1, 2)
mze = If(ist ≟ 1, mze_1, mze_2)
h = Sequence(Sum[mze, i] / i, i, 1, n, 1)
a_1(x) = p_1
a_2(x) = p_2
istsumme = Sum(mze)
wurm = Sequence((i, Element[h, i]), i, 1, n, 1)
historyentscheidung = Sequence(If[Element[historyp, i] ≟ 1 ∧ Element[historyH, i] ≤ tippep_1fallskleinergleich, 1, 0] + If[Element[historyp, i] ≟ 2 ∧ Element[historyH, i] > tippep_1fallskleinergleich, 2, 0] + If[Element[historyp, i] ≟ 1 ∧ Element[historyH, i] > tippep_1fallskleinergleich, 3, 0] + If[Element[historyp, i] ≟ 2 ∧ Element[historyH, i] ≤ tippep_1fallskleinergleich, 4, 0], i, 1, Length[historyp])
A1: 1
A2: 2
A3: 3
A4: 4
B1 = CountIf(x ≟ A1, historyentscheidung)
B2 = CountIf(x ≟ A2, historyentscheidung)
B3 = CountIf(x ≟ A3, historyentscheidung)
B4 = CountIf(x ≟ A4, historyentscheidung)
B5 = Sum(B1:B4)
C1: B1
C2: B2
C3: ((-B3) * strafe_1)
C4: ((-B4) * strafe_2)
C5 = Sum(C1:C4)
simulationszahl = Length(historyH)
Text1: "richtig:    " + (B1 + B2) + " mal -> " + (C1 + C2) + " Punkte
p_1 falsch: " + B3 + " mal -> " + C3 + " Punkte
p_2 falsch: " + B4 + " mal -> " + C4 + " Punkte
Bilanz:                     " + C5 + "  Punkte   "
letzteentscheidung = Element(historyentscheidung, Length[historyentscheidung])
kommentar: "" + (If[letzteentscheidung ≟ 1, "wahr: p_1 - getippt: p_1 - richtig", ""] + (If[letzteentscheidung ≟ 2, "wahr: p_2 - getippt: p_2 - richtig", ""]) + (If[letzteentscheidung ≟ 3, "wahr: p_1 - getippt: p_2: - falsch", ""]) + (If[letzteentscheidung ≟ 4, "wahr: p_2 - getippt: p_1 - falsch", ""])) + ""
historybilanz = Sequence(Sum[historygewinn, i], i, 1, Length[historygewinn])
Text2: "" + kommentar + ""
gewinn = Sequence((priori_1 * (Element[Lp_1OK, k] - (strafe_1 * Element[Lp_1F, k]))) + ((1 - priori_1) * (Element[Lp_2OK, k] - (strafe_2 * Element[Lp_2F, k]))), k, 1, n + 1)
gewinngraph = Sequence((k / n, Element[gewinn, k + 1]), k, 0, n)
bilanzgraph = Sequence((i, Element[historybilanz, i]), i, 1, simulationszahl)
g(x) = (tippep_1fallskleinergleich + 0.5) / n