A = (0.9902, 2.4492)
r = 2.4 (slider from 1 to 5, step 0.1)
c = Circle(A, r)
B = Point(c)
n = 3 (slider from 3 to 80, step 1)
a: 360 / n
B' = Rotate(B, a°, A)
α = Angle(B, A, B')
polígono1, b, d, e, C = Polygon(B, B', n)
g: polígono1 / r^(2)
k = Tangent(B', c)
l = Tangent(B, c)
F = Intersect(k, l)
h = Tangent(B', c)
i = Tangent(B, c)
p = Circle(B, F)
D = Intersect(p, i, 2)
polígono2, e_1, d_1, f, E = Polygon(D, F, n)
z: 2 * r * sin(π / n) * n
texto3: "P(n) = " + z + ""
w: 2 * π * r
j: z / (2 * r)
texto5: "\mbox{Note que} \  \displaystyle\frac{P(n)}{2r}=" + (LaTeX[j]) + " \longrightarrow \pi, \ \mbox{quando} \ {n\to\infty}"
z': 2 * n * r * tan(π / n)
texto2: "P'(n) = " + z' + ""
texto4: "3. Perímetro da 
    circunferência = 2 π r = " + w + ""
texto7: "4. P(n) = " + z + " → " + w + ", crescendo, 
    quando n → ∞"
texto8: "5. P'(n) = " + z' + " → " + w + ", decrescendo, 
    quando n → ∞"
texto1: "1. P(n) = Perímetro do polígono regular de n = " + n + " lados,
inscrito na circunferência dada de raio r =" + r + "."
texto6: "2. P'(n) = Perímetro do polígono regular de n = " + n + "  lados,
circunscrito à circunferência dada de raio r = " + r + " ."