Ver vectores

Espirales

t0: {0, 0, 0}
t1: {0, 0, 0}
anima = 0 (slider from 0 to 1, step 0.001)
dt = 0.783
t: ((t1(3) < t0(3)) * 3600) + ((t1(3) - t0(3)) * 60) + t1(2) - t0(2) + (t1(1) - t0(1)) / 1000
tt = 94
wabs: 1.2
M: (1, 1)
N: (8, 1)
P = (4.500000000000001, 7.06217782649107)
A: (1, 1)
B: (8, 1)
C = Rotate(B, pi / 3, A)
vM = UnitVector(Vector[M, N])
vN = UnitVector(Vector[N, P])
vP = UnitVector(Vector[P, M])
l1: {Polygon[A, B, C]}
verVectores = true
texto1: "Tiempo  animación:  " + t + "''
Tiempo teórico: " + (14 / 3) + "''"
c1 = CurveCartesian((1 + 7 / 2, 1 + (7 / 2 * sqrt(3) / 3)) + ((7 / sqrt(3) * ℯ^((sqrt(3) * t))); (-t) - (5 * pi / 6)), t, (-2 * pi), (2 * pi))
c2 = CurveCartesian((1 + 7 / 2, 1 + (7 / 2 * sqrt(3) / 3)) + ((7 / sqrt(3) * ℯ^((sqrt(3) * t))); (-t) - pi / 6), t, (-2 * pi), (2 * pi))
c3 = CurveCartesian((1 + 7 / 2, 1 + (7 / 2 * sqrt(3) / 3)) + ((7 / sqrt(3) * ℯ^((sqrt(3) * t))); (-t) + pi / 2), t, (-2 * pi), (2 * pi))
verEspirales = false
E1 = (-0.7600000000000002, -3.880000000000005)
E3 = (22.500000000000007, 7.92)
F1 = (-23.62618305960223, -12.207878290231609)
F3 = (36.42712502541209, 18.308741257535285)