würfeln

Würfeln nach Überprüfung

WA: {1 / 6, 1 / 6, 1 / 6, 1 / 6, 1 / 6, 1 / 6}
WB: {0.35, 0.15, 0.15, 0.15, 0.15, 0.05}
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]]]]]]]
wuerfelnA = Random(1, 6)
zzA = RandomUniform(0, 1)
vB(x) = If[0 ≤ x < 1, 1 + Sum[Sequence[If[x ≥ Element[WBSumme, i], 1, 0], i, 1, 6]]]
A = (3, 0)
B = (4, 0)
C: (1 | 0)
D: (2 | 0)
G: (3.5 | -1)
I: (1.5 | -1)
E: (5 | 2)
F: (5 | 2.5)
H = (4.25, 4)
J = (4.25, 4.5)