C = (0, 1)
D = (4, 3)
c = Line(C, D)
A = Point(c)
B = Point(c)
d = OrthogonalLine(A, b)
e = OrthogonalLine(B, b)
f = OrthogonalLine(B, a)
g = OrthogonalLine(A, a)
E = Intersect(f, a)
F = Intersect(g, a)
G = Intersect(d, b)
H = Intersect(e, b)
I = Intersect(e, g)
J = Intersect(f, d)
h = Segment(G, H)
i = Segment(E, F)
poly1, d_1, c_1, i_1 = Polygon(A, I, B)
j = Segment(I, B)
k = Segment(A, I)
l = Segment(A, G)
m = Segment(I, H)
n = Segment(A, F)
p: (y(B) - y(A)) / (x(B) - x(A))
K = Intersect(c, a)
C_1 = (-2.22, 5.86)
D_1 = (9.58, 15)
c_2 = Line(C_1, D_1)
A_1 = Point(c_2)
B_1 = Point(c_2)
p_1: (y(B_1) - y(A_1)) / (x(B_1) - x(A_1))
q: y(K)
texte1_1: " Ordonnée à l'origine $= b =y_A - a \times x_A = " + (LaTeX[q]) + "$ "
x_A: x(A)
y_A: y(A)
x_B: x(B)
y_B: y(B)
texte2: "$A(" + (LaTeX[x_A]) + ";" + (LaTeX[y_A]) + ")$"
C_2 = (-3.68, 6.9)
D_2 = (0.32, 8.9)
c_3 = Line(C_2, D_2)
A_2 = Point(c_3)
B_2 = Point(c_3)
x_1: x(A_2)
y_1: y(A_2)
texte2_1: "$B(" + (LaTeX[x_B]) + ";" + (LaTeX[y_B]) + ")$"
texte1: " Pente de $ (AB) = a = \dfrac{y_B-y_A}{x_B-x_A}=  \dfrac{" + (LaTeX[y_B]) + " - " + (LaTeX[y_A]) + "}{  " + (LaTeX[x_B]) + "- " + (LaTeX[x_A]) + "} = " + (LaTeX[p]) + "$"
texte3: "Équation de (AB) : " + c + ""