P = (1, 2)
Q = (3, 5)
f = Line(P, Q)
C = If(x(Q) > x(P), (x(Q), y(P)), (x(P), y(Q)))
Δy = If(x(Q) > x(P), Segment[C, Q], Segment[C, P])
d1, c, p, q = Polygon(P, Q, C)
m = Slope(f)
b: f(0)
Text1: "f(x) =\textcolor{brown}{\mathbf{" + (LaTeX[m]) + "}}\cdot x" + (LaTeX[If[b < 0, "", "+"]]) + "" + (LaTeX[b]) + ""
PosDeltaY = If(x(Q) ≥ x(P), (Q + C) / 2 + (0.2, 0.2), (P + C) / 2 + (0.2, 0.2))
dy = If(x(Q) ≥ x(P), y(Q) - y(P), y(P) - y(Q))
Text2: "\Delta y = " + (LaTeX[dy]) + ""
Δx = If(x(Q) > x(P), Segment[P, C], Segment[Q, C])