x_{A} = -2
y_{A} = -1
x_{B} = 1
b: x_{B} - x_{A}
y_{B} = 1
c: (x_{A} * y_{B}) - (x_{B} * y_{A})
a: y_{A} - y_{B}
x_{P} = 2
y_{P} = -2
P: (x_{P}, y_{P})
A: (x_{A}, y_{A})
B: (x_{B}, y_{B})
r: (a * x) + (b * y) + c = 0
P' = ClosestPoint(r, P)
d = Segment(P, P')
α = Angle(A, P', P)
texto1: "r:" + (LaTeX[a]) + "x+" + (LaTeX[b]) + "y+" + (LaTeX[c]) + "=0"
texto5: "d=\displaystyle \frac{\mid ax_{P}+by_{P}+c\mid}{\sqrt{a^2+b^2}}=
\displaystyle \frac{\mid " + (LaTeX[a]) + "*(" + (LaTeX[x_{P}]) + ")+(" + (LaTeX[b]) + ")*(" + (LaTeX[y_{P}]) + ")+(" + (LaTeX[c]) + ")\mid}{\sqrt{(" + (LaTeX[a]) + ")^2+(" + (LaTeX[b]) + ")^2}}=" + (LaTeX[d]) + ""
texto3: "r: " + (LaTeX[a]) + "x+ " + (LaTeX[b]) + "y " + (LaTeX[c]) + "=0"
texto2: "r: " + (LaTeX[a]) + "x " + (LaTeX[b]) + "y " + (LaTeX[c]) + "=0"
texto4: "r: " + (LaTeX[a]) + "x " + (LaTeX[b]) + "y+ " + (LaTeX[c]) + "=0"