n = 4 (slider from 2 to 50, step 1)
p = 0.5 (slider from 0 to 1, step 0.01)
L1 = Sequence(BinomialDist[n, p, k, true], k, 0, n)
r = 3
W = Sequence(((Element[L1, k] * 2) * π), k, 1, n + 1)
P = Sequence(((r * cos(Element[W, m])), (r * sin(Element[W, m]))), m, 1, n)
c = Circle((0, 0), r)
P2 = Append(P, (r, 0))
L2 = Sequence(Segment[(0, 0), Element[P2, k]], k, 1, n + 1)
K1 = Sequence((Element[L1, k] + Element[L1, k + 1]) / 2, k, 1, n)
K2 = Append(Element[L1, 1] / 2, K1)
K3 = Sequence(((Element[K2, k] * 2) * π), k, 1, n + 1)
K4 = Sequence((((r * 0.7) * cos(Element[K3, m])), (-0.1) + ((r * 0.7) * sin(Element[K3, m]))), m, 1, n + 1)
B = Sequence(Text[m - 1, Element[K4, m]], m, 1, n + 1)
Vieleck1, a, b, d, e = Polygon((0, 3), (0.2, 3.4), (-0.2, 3.4), (0, 3))