1

1

F = Point(yAxis)
B = Point(xAxis)
h = OrthogonalLine(B, xAxis)
F' = Mirror(F, xAxis)
d = OrthogonalLine(F', yAxis)
T = Intersect(h, d)
m = Segment(F, T)
b = LineBisector(m)
c = OrthogonalLine(T, d)
P = Intersect(b, c)
e = Segment(F, P)
A = Point(c)
f = Ray(P, A)
g = Segment(P, T)
M = Intersect(b, m)
loc1 = Locus(P, B)
C = (0, 0)
k = Circle(C, B)
D = Intersect(k, yAxis, 2)
ycor = Distance(B, P)
unit = Distance(B, C)
TextBC: "\overline{" + (Name[B]) + "" + (Name[C]) + "} \, = \, " + (LaTeX[unit]) + ""
TextBP: "\overline{" + (Name[B]) + "" + (Name[P]) + "} \, = \, " + (LaTeX[ycor]) + ""
a: ycor / unit
text1: "y=" + (LaTeX[a]) + "x^2"