Du wirfst eine Münze auf ein Raster aus Quadraten,
deren Seitenlänge 1 cm beträgt.

Wie groß ist die Wahrscheinlichkeit,
dass die  Münze ganz in ein Quadrat fällt?

n = 126 (slider from 1 to 5000, step 1)
r = 0.3 (slider from 0.1 to 1, step 0.01)
Lx = Sequence(Random[0, 10000] / 1000, i, 1, n)
Ly = Sequence(Random[0, 10000] / 1000, i, 1, n)
K = Sequence(Circle[(Element[Lx, i], Element[Ly, i]), r], i, 1, n)
Lxn = Sequence(Mod[(Element[Lx, i] * 1000), 1000] / 1000, i, 1, n)
Lyn = Sequence(Mod[(Element[Ly, i] * 1000), 1000] / 1000, i, 1, n)
T1 = Sequence(If[(Element[Lxn, i] ≤ 1 - r) ∧ (Element[Lxn, i] ≥ r), 1, 0], i, 1, n)
T2 = Sequence(If[(Element[Lyn, i] ≤ 1 - r) ∧ (Element[Lyn, i] ≥ r), 1, 0], i, 1, n)
T = Sequence((Element[T1, i] * Element[T2, i]), i, 1, n)
Anzahl = Sum(T)
relH: Anzahl / n
P: (1 - (2 * r))^(2)
F = Sequence(If[Element[T, i] ≟ 1, Element[K, i]], i, 1, n)
SW = Sequence(Segment[(0, i), (10, i)], i, 0, 10)
Sh = Sequence(Segment[(i, 0), (i, 10)], i, 0, 10)
M = Sequence(If[Element[T, i] ≟ 1, (Element[Lx, i], Element[Ly, i])], i, 1, n)
Text3: "relative Häufigkeit = " + relH + ""
Text1: "P = " + (LaTeX[P]) + ""