A = Intersect(xAxis, yAxis)
B = Point(xAxis)
C = (-3, 0)
f = Ray(A, B)
g = Ray(A, C)
D = Point(g)
E = Point(f)
h: y = x^(2)
i = OrthogonalLine(D, g)
j = OrthogonalLine(E, f)
F = Intersect(h, i)
G = Intersect(h, j)
k = Segment(F, G)
H = Intersect(k, yAxis)
l = Segment(A, H)
m = Segment(D, F)
n = Segment(E, G)
Tegur1: x(D)
Tegur2: x(E)
Tulemus: y(H)
tekst1: "" + (LaTeX[Tegur1]) + "·" + (LaTeX[Tegur2]) + "=" + (LaTeX[Tulemus]) + " \\
Lõigu \; OH \; pikkus \; on \; " + (LaTeX[Tulemus]) + "."