Horas

Minutos

Segundos

Cronómetro:

Hora actual

Hora libre

AM

PM

velocidad 

libreT = 2.7777777777777777E-12
libreTh: floor(libreT)
P1 = (-2.08, -1.62)
P2: P1 - (0, 1)
curvaS = CurveCartesian(P2 + (0.45; pi / 2 - t), t, 0, (2 * pi))
r: 2
curvaM = CurveCartesian(P1 + ((0.82 * r); pi / 2 - t), t, 0, (2 * pi))
curvaH = CurveCartesian(P1 + ((0.6 * r); pi / 2 - t), t, 0, (2 * pi))
H = Point(curvaH)
tiempo: {415,7,58,20,30,9,2024,"Septiembre","Lunes",2}
t1: {416, 50, 59, 17, 7, 1, 2024, "Enero", "Domingo", 1}
horaPM: (floor(tiempo(4) / 12) * Mod[tiempo(4), 12])
anima = 0.469 (slider from 0 to 1, step 0.001)
tt = 29
dt = 0.036
t0: {416, 50, 59, 17, 7, 1, 2024, "Enero", "Domingo", 1}
A: (-4.27, -0.55)
B: A + (0, 3)
C: A + (0, 5)
horaAM: tiempo(4) - horaPM
cajas: {Polygon[A, A + (12, 0), A + (12, 1), A + (0, 1)], Polygon[A, A + (12, 0), A + (12, -1), A + (0, -1)], Polygon[B, B + (12, 0), B + (12, 1), B + (0, 1)], Polygon[C, C + (12, 0), C + (12, 1), C + (0, 1)]}
celdas: {Sequence[Segment[A + (k, 1), A + (k, -1)], k, 1, 11], Sequence[Segment[B + (k, 0), B + (k, 1)], k, 1, 11], Sequence[Segment[C + (k, 0), C + (k, 1)], k, 1, 11]}
subdivisiones: {Sequence[Segment[B + (k, 0), B + (k, 1)], k, 0.2, 11.8, 0.2], Sequence[Segment[C + (k, 0), C + (k, 1)], k, 0.2, 11.8, 0.2]}
crono = false
animaCrono = 0.949 (slider from 0 to 1, step 0.001)
t: ((t1(3) < t0(3)) * 3600) + ((t1(3) - t0(3)) * 60) + t1(2) - t0(2) + (t1(1) - t0(1)) / 1000
texto1: "" + t + "''"
actual = true
libre = false
marcasM = Sequence(Segment[P1 + (2; s°), P1 + (1.9; s°)], s, 0, 360, 6)
marcasS = Sequence(Segment[P2 + (0.6; s°), P2 + (0.55; s°)], s, 0, 360, 6)
marcasS2 = Sequence(Segment[P2 + (0.6; s°), P2 + (0.5; s°)], s, 0, 360, 30)
M = Point(Sequence[Point[curvaM, k / 60], k, 0, 59])
circS = Circle(P2, 0.6)
S = Point(Sequence[Point[curvaS, k / 60], k, 0, 59])
circM = Circle(P1, r)
marcasH = Sequence(Segment[P1 + (2; s°), P1 + (1.75; s°)], s, 0, 360, 30)
circH = Circle(P1, r)
am = true
pm = false
libreTm: floor((60 * (libreT - libreTh))) / 60
libreTs: (60 * (libreT - libreTh - libreTm))
libreH = Vector(P1, (1.04 * H) - (0.04 * P1))
libreM = Vector(P1, (1.04 * M) - (0.04 * P1))
libreS = Segment(P2, (1.04 * S) - (0.04 * P2))
vel = 0 (slider from 0 to 10, step 0.1)
nada = 3.9 (slider from -5 to 5, step 0.1)
Hora: {Polygon[A, A + (If[libre ∧ am, libreTh, libre ∧ pm, 12, horaAM], 0), A + (If[libre ∧ am, libreTh, libre ∧ pm, 12, horaAM], 1), A + (0, 1)], Polygon[A, A + (If[libre ∧ am, 0, libre ∧ pm, libreTh, horaPM], 0), A + (If[libre ∧ am, 0, libre ∧ pm, libreTh, horaPM], -1), A + (0, -1)]}
texto10: "\frac{" + (LaTeX[If[libre ∧ am, libreTh, libre ∧ pm, 12 + libreTh, tiempo(4)]]) + "}{24}" + (LaTeX[If[GCD[If[libre ∧ am, libreTh, libre ∧ pm, 12 + libreTh, tiempo(4)], 24] > 1, ("=" * FractionText[If[libre ∧ am, libreTh, libre ∧ pm, 12 + libreTh, tiempo(4)] / 24])]]) + ""
HH = Point(curvaH, (tiempo(4) - (12 * (tiempo(4) ≥ 12)) + tiempo(3) / 60 + tiempo(2) / 3600) / 12)
MM = Point(curvaM, tiempo(3) / 60)
SS = Point(curvaS, tiempo(2) / 60)
actualH = Vector(P1, (1.04 * HH) - (0.04 * P1))
actualM = Vector(P1, (1.04 * MM) - (0.04 * P1))
actualS = Segment(P2, (1.04 * SS) - (0.04 * P2))
Segundos: {Polygon[C, C + (If[libre, floor((60 * libreTs)), tiempo(2)] / 5, 0), C + (If[libre, floor((60 * libreTs)), tiempo(2)] / 5, 1), C + (0, 1)]}
Minutos: {Polygon[B, B + (If[libre, floor((60 * libreTm)), tiempo(3)] / 5, 0), B + (If[libre, floor((60 * libreTm)), tiempo(3)] / 5, 1), B + (0, 1)]}
texto3: "\fgcolor{0099cc}{" + (LaTeX[Last["0" + (If[libre, libreTh, tiempo(4)]), 2]]) + "}:\fgcolor{cc0000}{" + (LaTeX[Last["0" + (If[libre, floor((60 * libreTm)), tiempo(3)]), 2]]) + "}:\fgcolor{ffd700}{" + (LaTeX[Last["0" + (If[libre, floor((60 * libreTs)), tiempo(2)]), 2]]) + "}"
texto8: "\frac{" + (LaTeX[If[libre, floor((60 * libreTs)), tiempo(2)]]) + "}{60}" + (LaTeX[If[GCD[If[libre, floor((60 * libreTs)), tiempo(2)], 60] > 1, ("=" * FractionText[If[libre, floor((60 * libreTs)), tiempo(2)] / 60])]]) + ""
texto9: "\frac{" + (LaTeX[If[libre, floor((60 * libreTm)), tiempo(3)]]) + "}{60}" + (LaTeX[If[GCD[If[libre, floor((60 * libreTm)), tiempo(3)], 60] > 1, ("=" * FractionText[If[libre, floor((60 * libreTm)), tiempo(3)] / 60])]]) + ""
marcasT: {Sequence[Text[k, A + (k - 0.1 - (0.1 * (k > 9)), 1.1)], k, 0, 12], Sequence[Text[12 + k, A + (k - 0.2, -1.6)], k, 1, 11], Sequence[Text[(5 * k), B + (k - 0.2 + (0.1 * (k ≟ 1)), -0.6)], k, 0, 11], Sequence[Text[(5 * k), C + (k - 0.2 + (0.1 * (k ≟ 1)), -0.6)], k, 0, 11]}
minusc: {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}
texto2: "" + (tiempo(9)) + ", " + (tiempo(5)) + " de " + (minusc(tiempo(6))) + " de " + (tiempo(7)) + ""