F_A_B

F_A_B=(\frac{a_1+b_1}{2}; \frac{a_2+b_2}{2})

A = (4, 2)
B = (9, 8)
f = Segment(A, B)
szakaszfelező = LineBisector(f)
F = Intersect(szakaszfelező, f)
g = OrthogonalLine(A, xAxis)
C = Intersect(g, xAxis)
h = OrthogonalLine(B, xAxis)
i = OrthogonalLine(A, yAxis)
j = OrthogonalLine(B, yAxis)
D = Intersect(h, xAxis)
E = Intersect(i, yAxis)
G = Intersect(j, yAxis)
k = Segment(A, C)
m = Segment(A, E)
n = Segment(B, G)
l = Segment(B, D)
H = Intersect(k, xAxis)
I = Intersect(l, xAxis)
p = Segment(H, I)
J = Intersect(n, yAxis)
K = Intersect(m, yAxis)
q = Segment(J, K)
r = LineBisector(p)
s = LineBisector(q)
L = Intersect(q, yAxis)
F_2 = Intersect(s, q)
F_1 = Intersect(r, p)
t = Segment(F, F_1)
a = Segment(F, F_2)
szövegxAB: "
\frac{" + (LaTeX[x(B)]) + "-" + (LaTeX[x(A)]) + "}{2}+" + (LaTeX[x(A)]) + "=\frac{" + (LaTeX[x(A)]) + "+" + (LaTeX[x(B)]) + "}{2}=" + (LaTeX[(x(A) + x(B)) / 2]) + ""
szövegxBA: "\frac{" + (LaTeX[x(A)]) + "-" + (LaTeX[x(B)]) + "}{2}+" + (LaTeX[x(B)]) + "=\frac{" + (LaTeX[x(B)]) + "+" + (LaTeX[x(A)]) + "}{2}=" + (LaTeX[(x(B) + x(A)) / 2]) + ""
szövegyAB: "\frac{" + (LaTeX[y(B)]) + "-" + (LaTeX[y(A)]) + "}{2}+" + (LaTeX[y(A)]) + "=\frac{" + (LaTeX[y(A)]) + "+" + (LaTeX[y(B)]) + "}{2}=" + (LaTeX[(y(A) + y(B)) / 2]) + ""
szövegyBA: "\frac{" + (LaTeX[y(A)]) + "-" + (LaTeX[y(B)]) + "}{2}+" + (LaTeX[y(B)]) + "=\frac{" + (LaTeX[y(B)]) + "+" + (LaTeX[y(A)]) + "}{2}=" + (LaTeX[(y(B) + y(A)) / 2]) + ""