Circunferencias

Polígonos

+

-

+

-

+

-

n = 3 (slider from 3 to 8, step 1)
r = 4 (slider from 1 to 5, step 0.1)
A = (0, 0)
c = Circle(A, r)
f = Line(A, yAxis)
B, C = Intersect(c, f)
B' = Rotate(B, (360 * ° / ((2 * n))), A)
lista1 = Sequence(Rotate[B', ((i * 360) * ° / n), A], i, 0, n)
poli1 = Polygon(lista1)
g = Segment(Element[lista1, 1], Element[lista1, 2])
D = Midpoint(g)
d = Circle(A, D)
E = Element(lista1, 1)
F = Element(lista1, 2)
h = Segment(A, E)
i = Segment(A, F)
G = Intersect(d, i)
H = Intersect(d, h)
j = Segment(G, H)
a: g / j
b: j / g
N = Midpoint(G, H)
e = Circle(A, N)
O = Intersect(e, i)
P = Intersect(e, h)
o: Distance[F, A] / Distance[G, A]
u: Distance[G, A] / Distance[O, A]
poli1' = Dilate(poli1, b, A)
k = 0 (slider from 0 to 20, step 1)
lista2 = Sequence(Dilate[poli1, b^(q), A], q, 0, k)
lista3 = Sequence(Dilate[c, b^(q), A], q, 0, k)
ci = true
po = true
texto1 = SurdText(b)
texto2 = SurdText(o)
l: o^(2)
texto3 = SurdText(l)
ac1 = Area(Element[lista3, 1])
ac2 = Area(Element[lista3, 2])
relareas: ac1 / ac2
texto4 = SurdText(relareas)
texto5: "Radio circunferencia exterior = " + r + " unidades"
r2: (r * b)
texto6: "Radio Circunferencia interior = " + r2 + " unidades"
op = 0 (slider from 0 to 0.25, step 0.25)
texto7: "\frac{r_2}{r_1}=" + (LaTeX[b]) + ""