Наблюдател

x( A )

y( A )

parabola

Уравнение на параболичното приближение: 
y = (8 inches / 63360 inches per mile)  x²

Център = (0, -3958.8)
A = (0, 0)
greatC = Circle(Център, A)
A2 = 3958.108117175603
B2 = 0
A3 = 3958.0081171756033
B3 = 0
A4 = 3957.9081171756034
B4 = 0
A5 = 3958.0081171756033
B5 = 0
хоризонт = Tangent(A, greatC)
B = Point(greatC)
a = Line(A, B)
разстояниеНаблюдателB = Distance(A, B)
CредаAB = Midpoint(A, B)
Среда' = Mirror(CредаAB, greatC)
b = Line(Среда', CредаAB)
X, C_1 = Intersect(greatC, b)
разстояниеCA = Distance(CредаAB, X)
d = OrthogonalLine(B, хоризонт)
B' = Intersect(хоризонт, d)
разстояниеB'B = Distance(B', B)
e = Line(A, Център)
Bparabola = Intersect(par_8in, d)
разстояниеB'Para = Distance(B', Bparabola)
разстояниеBPara = Distance(B, Bparabola)
ТекстНаблюдателB: "\overline{" + (Name[A]) + "" + (Name[B]) + "} \, = \, " + (LaTeX[разстояниеНаблюдателB]) + " мили"
ТекстB'B: "\overline{" + (Name[B']) + "" + (Name[B]) + "} \, = \, " + (LaTeX[разстояниеB'B * 63360]) + " инча"
ТекстB'Para: "\overline{" + (Name[B']) + "" + (Name[Bparabola]) + "} \, = \, " + (LaTeX[разстояниеB'Para * 63360]) + " инча"
ТекстBPara: "грешка 
(разлика кръг-парабола) \overline{" + (Name[B]) + "" + (Name[Bparabola]) + "} \, = \, " + (LaTeX[разстояниеBPara * 63360]) + "инча"
ТекстCA: "\overline{" + (Name[CредаAB]) + "" + (Name[X]) + "} \, = \, " + (LaTeX[разстояниеCA * 63360]) + " инча"