Anticopo

Inicio

anti = false
P3: (0, 0)
P2: (0, 0)
P1: (0, 0)
p: {(0, 0), (5, (5 * sqrt(3))), (10, 0), (0, 0)}
n = Length(p)
k = 1
anima = 28.8 (slider from 0 to 100, step 0.1)
f: z = 0
teórica = If(anti, (10 * sqrt(3)), (40 * sqrt(3)))
texto3: "Nº lados:
" + (n - 1) + ""
O: (5, (sqrt(3) * 10 / 6))
u = Vector(O, O + (3 * UnitVector[P2 - O]))
fase: ceil(ln((n - 1) / 3) / ln(4))
pausa = true
texto4: "fase = " + (fase + 1) + ""
A = (3.5185185185185186, 7.804920305711607)
B = (3.580246913580247, 7.69800358919501)
triángulo: {Polygon[(0, 0), (10, 0), (5, (5 * sqrt(3)))]}
área = 43.30127018922193
vel: 10^(ln((n - 1) / 3) / ln(4) - 2)
koch: {Polygon[P1, P2, P3]}
factor = If(anti, 1, 4)
factor2 = If(anti, -1, 1)
texto1: "Área teórica: 
$\frac{" + (LaTeX[factor]) + " \sqrt{3}}{10}lado^{2}$
= " + (LaTeX[teórica]) + ""
anti2 = false
texto2: "Área atual:
" + área + ""