A = (1, 1)
B = (5, 1)
C = (3, 2)
Vieleck1, c, a, b = Polygon(A, B, C)
D = Point(xAxis)
E = Point(yAxis)
Matrix1: {{x(D), 0.0}, {0.0, y(E)}}
A': Matrix1 * A
B': Matrix1 * B
C': Matrix1 * C
Vieleck2, h, f, g = Polygon(A', B', C')
d = Segment((0.0, 0.0), D)
e = Segment((0.0, 0.0), E)
Text1: "\left[ \begin{matrix}" + (Element[Element[Matrix1, 1.0], 1.0]) + "&" + (Element[Element[Matrix1, 1.0], 2.0]) + "\\" + (Element[Element[Matrix1, 2.0], 1.0]) + "&" + (Element[Element[Matrix1, 2.0], 2.0]) + "\end{matrix} \right] \cdot \left[ \begin{matrix}" + (x(C)) + "\\" + (y(C)) + "\end{matrix} \right] = \left[ \begin{matrix}" + (x(C')) + "\\" + (y(C')) + "\end{matrix} \right]"