Author: Manuel Sada

Ocultar puntos

Ver ejes de simetría

Aplicar simetría(s) axial(es)

ocultar / difuminar / ver

ocultar / difuminar / ver

1

1

2

2

3

3

4

4

5

5

6

6

7

7

8

8

Ocultar

Ocultar

Difuminar

Difuminar

Ver

Ver

Con

Con

Simetría axial

Sin

Sin

Color de la figura

Logotipo

Imagen

Iniciar

Iniciar

Detener

Detener

Animación

A = (4, 1)
B = (4, 6)
a = Line(A, B)
n = 5 (slider from 1 to 16, step 1)
P1 = (4, 1.32)
P2 = (4, 2.96)
P3 = (3.998, 4.474000000000001)
P4 = (3.668, 5.332000000000001)
P5 = (2.7880000000000003, 5.7940000000000005)
P6 = (2.128, 5.112000000000001)
P7 = (2, 4)
P8 = (2.7317785234899374, 3.5353691275167765)
P9 = (3.448, 4.144000000000001)
P10 = (3.8000000000000003, 3.4840000000000004)
polígono1, c, d, e, f, g, h, i, j, k, l = Polygon(P1, P2, P3, P4, P5, P6, P7, P8, P9, P10)
P5' = Mirror(P5, a)
P5'' = Rotate(P5', 60*°, P5)
α = 1.0471975511965976 rad (slider from 0 to 1.0471975511965976, step 0.017453292519943295)
P5'_1 = Rotate(P5, α, P5'')
lista0: {P1, P2, P3, P4, P5, P6, P7, P8, P9, P10}
β = 6.283185307179586 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
γ: (360 * ° / n)
lista1 = Sequence(Rotate[Element[lista0, k], β, A], k, 1, 10)
listap1: {Polygon[Element[lista1, 1], Element[lista1, 2], Element[lista1, 3], Element[lista1, 4], Element[lista1, 5], Element[lista1, 6], Element[lista1, 7], Element[lista1, 8], Element[lista1, 9], Element[lista1, 10]]}
lista7 = Sequence(Auxiliarsimetría[Element[lista0, k], α, a], k, 1, 10)
lista3 = Sequence(Rotate[Element[lista7, k], β, A], k, 1, 10)
listap3: {Polygon[Element[lista3, 1], Element[lista3, 2], Element[lista3, 3], Element[lista3, 4], Element[lista3, 5], Element[lista3, 6], Element[lista3, 7], Element[lista3, 8], Element[lista3, 9], Element[lista3, 10]]}
lista4 = Sequence(If[β ≥ (k * γ), {Polygon[Rotate[P1, (k * γ), A], Rotate[P2, (k * γ), A], Rotate[P3, (k * γ), A], Rotate[P4, (k * γ), A], Rotate[P5, (k * γ), A], Rotate[P6, (k * γ), A], Rotate[P7, (k * γ), A], Rotate[P8, (k * γ), A], Rotate[P9, (k * γ), A], Rotate[P10, (k * γ), A]]}], k, 1, n)
lista2: {Polygon[Element[lista7, 1], Element[lista7, 2], Element[lista7, 3], Element[lista7, 4], Element[lista7, 5], Element[lista7, 6], Element[lista7, 7], Element[lista7, 8], Element[lista7, 9], Element[lista7, 10]]}
b = false
m = false
o = 0.7500000000000002 (slider from 0 to 1, step 0.05)
p = 0 (slider from 0 to 1, step 0.05)
q = 0.75 (slider from 0 to 1, step 0.05)
r = true
lista6 = Sequence(Rotate[a, (k * γ / 2), A], k, 1, (2 * n) - 1)
lista5 = Sequence(If[r ∧ (β ≥ (k * γ)), {Polygon[Rotate[Element[lista7, 1], (k * γ), A], Rotate[Element[lista7, 2], (k * γ), A], Rotate[Element[lista7, 3], (k * γ), A], Rotate[Element[lista7, 4], (k * γ), A], Rotate[Element[lista7, 5], (k * γ), A], Rotate[Element[lista7, 6], (k * γ), A], Rotate[Element[lista7, 7], (k * γ), A], Rotate[Element[lista7, 8], (k * γ), A], Rotate[Element[lista7, 9], (k * γ), A], Rotate[Element[lista7, 10], (k * γ), A]]}], k, 1, n - 1)
C = (-0.52, -2.06)
D = Point(Ray[C, C + (1, 0)])
logo = 1 (slider from 1 to 8, step 1)
dif = 0 (slider from 0 to 2, step 1)
s = 0 (slider from 0 to 1, step 1)
w = 0 (slider from 0 to 1, step 1)
t = 1 (slider from 0 to 1, step 1)
nada = 3.1 (slider from -5 to 5, step 0.1)
u = 1 (slider from -5 to 5, step 0.1)

Tool: Auxiliar simetría (command Auxiliarsimetría)
recta, punto, ángulo
Input: P5, α, a
Output: P5'_1

P5' = Mirror(P5, a)
P5'' = Rotate(P5', 60*°, P5)
P5'_1 = Rotate(P5, α, P5'')