O = (64.65356437630358, -42.302341416266934)
N = (-120.91263974041001, -42.37843658252932)
r = Segment(N, O)
A = Midpoint(N, O)
n = OrthogonalLine(A, r)
D = Point(n)
h = Circle(N, O, D)
CentroTierra = Center(h)
radioTierra = Distance(CentroTierra, D)
distancia3: 1.1 * radioTierra
distancia1: 1.3 * radioTierra
distancia2: 1.2 * radioTierra
d = Circle(CentroTierra, distancia2)
e = Circle(CentroTierra, distancia3)
f = Circle(CentroTierra, distancia1)
Horas = 0 (slider from 0 to 120, step 0.01)
p2 = 18 (slider from 1 to 100, step 1)
p3 = 24 (slider from 1 to 100, step 1)
p1 = 12 (slider from 1 to 100, step 1)
Satélite2: CentroTierra + (distancia2; Horas * 2 * π / p2 + π / 2)
Satélite3: CentroTierra + (distancia3; Horas * 2 * π / p3 + π / 2)
Satélite1: CentroTierra + (distancia1; Horas * 2 * π / p1 + π / 2)
a = Segment(CentroTierra, Satélite3)
b = Segment(CentroTierra, Satélite2)
c = Segment(CentroTierra, Satélite1)
E, F_1 = Intersect(h, a)
F = Intersect(h, b)
G = Intersect(h, c)
g = Circle(E, 2 / 60 * radioTierra)
k = Circle(F, 2 / 60 * radioTierra)
p = Circle(G, 2 / 60 * radioTierra)
H, I = Intersect(g, h)
J, K = Intersect(k, h)
L, M = Intersect(p, h)
polígono1, h_1, b_1, i = Polygon(Satélite3, I, H)
polígono2, j, k_1, a_1 = Polygon(K, Satélite2, J)
polígono3, m, c_1, l = Polygon(Satélite1, L, M)
B = Intersect(f, n, 2)
C = Intersect(d, n, 2)
P = Intersect(e, n, 2)
texto1: "" + (Horas / p1) + "ª llegada a las " + Horas + " horas"
texto1_1: "" + (Horas / p2) + "ª llegada a las " + Horas + " horas"
texto1_2: "" + (Horas / p3) + "ª llegada a las " + Horas + " horas"
q = Segment(B, D)
Multiplosp1 = Sequence(p1 * n, n, 1, 30)
Multiplosp2 = Sequence(p2 * n, n, 1, 30)
Multiplosp3 = Sequence(p3 * n, n, 1, 30)
S1 = Append("Satélite 1", Sequence[Element[Multiplosp1, i], i, 1, floor(Horas / p1)])
S2 = Append("Satélite 2", Sequence[Element[Multiplosp2, i], i, 1, floor(Horas / p2)])
S3 = Append("Satélite 3", Sequence[Element[Multiplosp3, i], i, 1, floor(Horas / p3)])
texto2 = TableText({S1, S2, S3})