r = 2 (slider from 0.5 to 3, step 0.1)
n = 6 (slider from 3 to 100, step 1)
a: ((2 * r) * sin(3.141592653589793 / n))
A: (r, 0)
c = Circle(A, a)
M = Intersect(xAxis, yAxis)
d = Circle(M, A)
C, D = Intersect(c, d)
veelhoek1, a_1, d_1, b, e, f, g, E, B, F, G = Polygon(A, D, n)
h = Segment(M, A)
p: veelhoek1
tekst3: "veelhoek = " + n + "-hoek"
tekst4: "cirkel met straal = " + r + " en diameter = " + (2 * r)
q: (3.141592653589793 * r^(2))
tekst1: "opp(veelhoek) ≈ " + p + ""
tekst2_1: "π  * r^2 = π * " + (LaTeX[r]) + "^2 ≈ " + LaTeX[q] + ""