La retta ha equazione: 

Osserva le coordinate di P

y

=\frac{1}{5}·

+\frac{1}{5}

Ordinata y

=\frac{1}{5}

x

+\frac{1}{5}

a = 2 (slider from 0 to 15, step 1)
A: (4, 1)
B: (14, 3)
t = Line(A, B)
testo3: "Ascissa x = " + a + ""
b: (0.2 * a) + 0.2
P: (a, b)
x_P: x(P)
y_P: y(P)
Y_1: x_P + 1
testo6: "\frac{" + (LaTeX[Y_1]) + "}{5}"
testo4: "=\frac{" + (LaTeX[Y_1]) + "}{5}"
testo8: "" + (LaTeX[x_P]) + " "
f = OrthogonalLine(P, xAxis)
g = OrthogonalLine(P, yAxis)
C = Intersect(yAxis, g)
D = Intersect(f, xAxis)
h = Segment(C, P)
i = Segment(P, D)