Wielokąty foremne

Wybierz liczbę boków wielokąta

m: {3, 4, 5, 6, 8, 9, 10}
n = 4 (slider from 1 to 7, step 1)
b = Element(m, n)
tekst3: "n = " + b + ""
A = (0.14, 2.9)
O = (1.48, 0.6)
c = Circle(O, A)
k: ((2 * 3.14)) / b
punkty = Sequence(Rotate[A, (i * k), O], i, 0, b - 1)
t1 = Polygon(punkty)
α = Angle(Element[punkty, 1], O, Element[punkty, 2])
f = Segment(Element[punkty, 1], O)
g = Segment(Element[punkty, 2], O)
β = Angle(Element[punkty, 1], Element[punkty, 2], Element[punkty, 3])