Eratosthene

α

Assouan

Alexandrie

rayons

Assouan

O = Intersect(xAxis, yAxis)
B_1 = (-4, 0)
c = Circle(O, B_1)
C_1 = (-4, -4)
D_1 = (4, -4)
D: (4; 21.6°)
f = Ray(O, D)
B = Point(c)
g = Ray(O, B)
G = Point(c)
h = Line(G, f)
H = Point(c)
i = Line(H, f)
I = Point(i)
j = OrthogonalLine(I, h)
J = Intersect(h, j)
k = Segment(J, I)
l = Segment(J, G)
m = Segment(I, H)
K = Intersect(c, l, 1)
L = Intersect(k, l)
M = Intersect(k, m)
N = Intersect(c, m, 1)
q1, k_1, l_1, m_1, n = Polygon(K, L, M, N)
A = Point(g)
q = Line(A, f)
C = Intersect(c, q, 2)
r = Ray(C, A)
s = Segment(O, B)
Q = Intersect(f, k)
R = Intersect(c, f, 1)
t = Ray(Q, R)
a = Segment(O, Q)
b = Segment(B, A)
p = Ray(A, C)
F = Point(p)
P = Point(s)
α_1 = Angle(F, A, P)
α = Angle(D, O, A)
d = CircleArc(O, D, B)
Dist: (d / (((4 * π) * 4)) * 500000)
texte3: "distance=" + (LaTeX[Dist]) + "\ stades"
D': D
e = OrthogonalLine(O, a)
E, S = Intersect(c, e)
f_1 = OrthogonalLine(E, e)
T = Point(f_1)
u = Vector(E, T)
l1 = Sequence(Ray[Intersect[c, Ray[E + (k * (S - E)), u]], u], k, 0, 1, 0.02)
o = true
v = false
U = Point(c)
cible = Segment(B, U)