Subtangenta a subnormála
Author: Radka Hamříková

A = (0, -2.84)
B = (0, 2.76)
d = Line(A, B)
F = (3.46, -0.88)
c = Parabola(F, d)
o = OrthogonalLine(F, d)
a = 2.2 (slider from -10 to 10, step 0.1)
b: y = a
T, C = Intersect(c, b)
t = Tangent(T, c)
n = OrthogonalLine(T, t)
e = OrthogonalLine(T, o)
R = Intersect(t, o)
T' = Intersect(e, o)
N = Intersect(o, n)
V = Intersect(c, o)
f = Segment(R, T')
g = Segment(T', N)
vzdalenostRF = Distance(R, F)
TextRF: "\overline{" + (Name[R]) + (Name[F]) + "} \, = \, " + vzdalenostRF
vzdalenostFN = Distance(F, N)
TextFN: "\overline{" + (Name[F]) + (Name[N]) + "} \, = \, " + vzdalenostFN