p_{12}

p_6

f(x)=\frac{1}{2\pi}(1+k\! \cdot \! \sin x) \text{ ist für }
0\le k \le 1 \text{ eine Wahrscheinlichkeits-}\
\text{dichte über } [0;2π].\
\text{Durch Integration über 6 bzw. 12 Teilintervalle erhält man daraus}\ 
\text{Wahrscheinlichkeiten, die ein Haarnadel-Glücksrad beschreiben, bei}\
\text{dem die Nadel im Uhrzeigersinn auf einer schiefen Ebene rotiert.}

1

2

3

4

5

6

\frac{π}{6}

\frac{5π}{6}

A = Point(xAxis)
B = Intersect(xAxis, yAxis)
Vieleck1, o, g, h, i, j, k_{1}, C, D, E, F = Polygon(A, B, 6)
l = Segment(B, E)
m = Segment(C, F)
G = Intersect(l, m)
c = Circle(G, F)
k = 0.45 (slider from 0 to 1, step 0.01)
f(x) = If[0 ≤ x ≤ 6.283185307179586, (1 + (k * sin(x))) / ((2 * pi))]
w = Sequence(Integral[f, ((i * 2) * pi / 12), (((i + 1) * 2) * pi / 12)], i, 0, 11)
p: {w(6) + w(7), w(4) + w(5), w(8) + w(9), w(2) + w(3), w(10) + w(11), w(1) + w(12)}
q = Segment(A, D)
Text9: "" + (w(1)) + ""
Text10: "" + (w(2)) + ""
Text11: "" + (w(3)) + ""
Text12: "" + (w(4)) + ""
Text13: "" + (w(5)) + ""
Text14: "" + (w(6)) + ""
Text15: "" + (w(7)) + ""
Text16: "" + (w(8)) + ""
Text17: "" + (w(9)) + ""
Text18: "" + (w(10)) + ""
Text19: "" + (w(11)) + ""
Text20: "" + (w(12)) + ""
a = false
b = true
Text21: "" + (p(1)) + ""
Text22: "" + (p(2)) + ""
Text23: "" + (p(3)) + ""
Text24: "" + (p(4)) + ""
Text25: "" + (p(5)) + ""
Text26: "" + (p(6)) + ""
d = Integral(f, pi / 6, (5 * pi / 6))
H = Intersect(l, m)
I = Intersect(c, l, 1)
J = Intersect(c, q, 2)
e = CircleSector(H, I, J)