O: (0, 0, 0)
N: (0, 0, 6370)
S: (0, 0, -6370)
a = Sphere(O, 6370)
f = Line(N, S)
S1: (6370; 2.44; 44.93)
M1_1 = PointIn(a)
b = OrthogonalPlane(O, f)
c = IntersectPath(b, a)
G, B = Intersect(xAxis, c)
d = Plane(G, O, N)
e = IntersectPath(d, a)
g = IntersectPath(b, d)
S2: (6370; 149.13; -35.31)
M2 = PointIn(a)
S3: (6370; -70.58; -33.395)
M3 = PointIn(a)
D1 = NaN
Pointe_1 = PointIn(e)
Pointe = PointIn(e)
h = CircleArc(O, M2, S2)
k = CircleArc(O, M1_1, S1)
p = CircleArc(O, M3, S3)
i = Length(k)
Textek: "Longueur de l'arc " + (Name[k]) + " = " + i
Pointk = PointIn(k)
j = Length(h)
Texteh: "Longueur de l'arc " + (Name[h]) + " = " + j
Pointh = PointIn(h)
l = Length(p)
Textep: "Longueur de l'arc " + (Name[p]) + " = " + l
Pointp = PointIn(p)
A = Intersect(p, c, 2)
C = Point(p)
m = Sphere(S3, C)
D = Intersect(h, c, 2)
n = Sphere(S2, M2)
o = Sphere(S1, M1_1)
q = IntersectConic(o, a)
s = IntersectConic(n, a)
c_1 = IntersectConic(m, a)