Ver triángulos de apoyo

Ver polígono inscrito

Ver polígono circunscrito

Ver ayuda

A = Intersect(xAxis, yAxis)
B = Point(xAxis)
c = Circle(A, B)
B'_1 = Mirror(B, A)
diametro = Segment(B, B'_1)
TextoDiametro: " Diámetro de la circunferencia = " + diametro
k = 1 (slider from 1 to 5, step 1)
n: (3 * 2^(k))
texto4: "n = " + n
B' = Rotate(B, (2 * 3.141592653589793 / ((3 * 2^(k)))), A)
a = LineBisector(B', B)
b = Ray(A, B)
C = Intersect(c, a, 2)
d = Tangent(C, c)
D = Intersect(d, b)
D' = Mirror(D, C)
e = Segment(B, B')
lista2 = Sequence(Segment[Rotate[B, ((2 * i) * 3.141592653589793 / n), A], Rotate[B', ((2 * i) * 3.141592653589793 / n), A]], i, 1, n)
f = Segment(D, D')
lista4 = Sequence(Segment[Rotate[D, ((2 * i) * 3.141592653589793 / n), A], Rotate[D', ((2 * i) * 3.141592653589793 / n), A]], i, 1, n)
texto3: (n * e) + " < π < " + ((n * f))
polígono1, d_1, a_1, c_1 = Polygon(A, C, D)
g = false
α = Angle(A, C, D)
h = true
texto1: "(de " + n + " lados). Perímetro  = " + ((n * e)) + ""
i = false
ne: (n * e)
E = (0.7651028806584362, 0.10790123456790124)
nf: (n * f)
texto7: "π < " + ((n * f)) + ""
B'_2 = Rotate(B, 60°, A)
F = Rotate(B'_1, 60°, A)
diametro' = Segment(B'_2, F)
G = Rotate(B'_2, 60°, A)
F' = Rotate(F, 60°, A)
diametro'' = Segment(G, F')
j = false
texto6: "" + ((n * e)) + " < π"
H = Midpoint(Element[lista2, n])
polígono2, b_1, h_1, a_2 = Polygon(H, A, B)
β = Angle(A, H, B)
vmedio: (n * (e + f) / 2)
texto5: "→ Valor medio (aproximación a π): " + vmedio + "
         Ea = " + (vmedio - π) + "
         Er (%) = " + (floor((100000 * (vmedio - π) / π)) / 1000) + " %"
texto2: ". Perímetro = " + ((n * f)) + ""