Mostrar traza

Borra traza

Mover banderas

H = (9.24, -1.58)
lista2 = Sequence(Rotate[H + (2, 0), (((-k) * 45))°, H], k, 0, 7)
P2 = Element(lista2, Random[1, 8])
G = (0.74, 1.88)
lista1 = Sequence(Rotate[G + (2, 0), ((k * 45))°, G], k, 0, 7)
P1 = Element(lista1, Random[1, 8])
C = (-2.58, 2.64)
E = (8.28, 5.34)
C1: C
h = false
verde: ℯ^((-abs((Distance[P1, C] * (Distance[P2, C] / Distance[P1, C] - 1)))))
azul: ℯ^((-abs((Distance[P1, C] * (Distance[P2, C] / Distance[P1, C] - 1)))))
rojo: ℯ^((-abs(Distance[P1, C] - Distance[P2, C])))
D = (-3.36, -3.42)
F = (14.34, -2.74)