protocolo_atractor
Date: 20 de noviembre de 2011

A

Una iteración

Mil iteraciones

Borrar

Fracción recorrida:

V1 = (2.82, -4.04)
O = (4.92, 0.84)
R: abs(O - V1)
n = 5 (slider from 1 to 12, step 1)
frac: sin(π * (2 * Div[n, 4] + 1) / n) / (sin(π / n) + sin(π * (2 * Div[n, 4] + 1) / n))
V2 = Rotate(V1, 2 * π / n, O)
V3 = Rotate(V1, 4 * π / n, O)
V4 = Rotate(V1, 6 * π / n, O)
V5 = Rotate(V1, 8 * π / n, O)
V6 = Rotate(V1, 10 * π / n, O)
V7 = Rotate(V1, 12 * π / n, O)
V8 = Rotate(V1, 14 * π / n, O)
V9 = Rotate(V1, 16 * π / n, O)
V10 = Rotate(V1, 18 * π / n, O)
V11 = Rotate(V1, 20 * π / n, O)
ra: R * (1 - frac)
V12 = Rotate(V1, 22 * π / n, O)
f = Circle(O, R - ra)
vert: V1:V12
centros = Sequence(Intersect[f, Segment[O, Element[vert, i]]], i, 1, 12)
v = 0
z = 0
m = 5
dV = false
eV = false
D = (3.82, -1.46)
D': D
E = (4.965546565139229, 4.087470300027682)
d = Segment(D, E)
c = Circle(O, V1)
poli = Polygon(Element[vert, 1], Element[vert, 2], n)
k = 0.5
kT = Textfield(k)
e = Segment(D, E + (D - E) / k)
r = 0
circulos = Sequence(Circle[Element[centros, i], ra], i, 1, n)