+ Segundero

+ Minutero

Hora

12

1

2

3

4

5

6

7

8

9

10

11

Lo mismo sucede con el minutero.
Pero la suma vectorial de ambas agujas
produce un resultado más vistoso.

El extremo de la aguja horaria
recorre una circunferencia.

Si además añadimos el segundero,
la suma vectorial recorre
un lugar todavía más complicado.

op3 = false
op2 = false
op1 = true
a = 4.508534523751751 rad (slider from 0° to 360°, step 0.01°)
v: (0, 2)
v' = Rotate(v, (-a))
u: (0, 3)
u' = Rotate(u, (-12 * a))
w: (0, 1)
w' = Rotate(w, (-144 * a))
O = Intersect(xAxis, yAxis)
s = If(op1, v', op2, Vector[u' + v'], op3, Vector[u' + v' + w'])
P: O + s
l1 = Sequence(Rotate[(0, 6), (-30° * k)], k, 0, 11)
P12: l1(1)
P01: l1(2)
P02: l1(3)
P03: l1(4)
P04: l1(5)
P05: l1(6)
P06: l1(7)
P07: l1(8)
P08: l1(9)
P09: l1(10)
P10: l1(11)
P11: l1(12)
lugar1 = Locus(P, a)
c = Circle(O, 6)
l2 = Sequence((pi * n / 11), n, 1, 11)
l3 = Sequence(Line[O, Rotate[(0, 9), (-l2(k))]], k, 1, 11)