M_s

m⁻¹

\text{Transformačné rovnice }

A = (2, 1)
C = (1, 4)
B = (3, 0)
B' = (1, 9)
C' = (3, 1)
A' = (1, 6)
t1, c, a, b = Polygon(A, B, C)
t2, c', a', b' = Polygon(A', B', C')
A1: x(A)
A2: y(A)
B1: x(B)
B2: y(B)
C1: x(C)
C2: y(C)
A3: 1
B3: 1
C3: 1
A6: x(A')
A7: y(A')
B6: x(B')
B7: y(B')
C6: x(C')
C7: y(C')
A8: 1
B8: 1
C8: 1
m: {{A1, B1, C1}, {A2, B2, C2}, {A3, B3, C3}}
text3: "\text{Matica vzorov } \\\\" + (LaTeX[m]) + ""
m': {{A6, B6, C6}, {A7, B7, C7}, {A8, B8, C8}}
text4: "\text{Matica obrazov } \\\\ " + (LaTeX[m']) + ""
minv: m^(-1)
rov: (m' * minv)
a11 = SurdText(Element[rov, 1, 1])
a21 = SurdText(Element[rov, 2, 1])
b12 = SurdText(Element[rov, 1, 2])
b22 = SurdText(Element[rov, 2, 2])
p = SurdText(Element[rov, 1, 3])
q = SurdText(Element[rov, 2, 3])
b2 = If(Element[rov, 2, 2] < 0, " ", "+")
p1 = If(Element[rov, 1, 3] < 0, " ", "+")
b1 = If(Element[rov, 1, 2] < 0, " ", "+")
p2 = If(Element[rov, 2, 3] < 0, " ", "+")
text1: "x'= " + (LaTeX[a11]) + "x" + (LaTeX[b1]) + "" + (LaTeX[b12]) + "y" + (LaTeX[p1]) + "" + (LaTeX[p]) + "   \\\\
y'=" + (LaTeX[a21]) + "x" + (LaTeX[b2]) + "" + (LaTeX[b22]) + "y" + (LaTeX[p2]) + "" + (LaTeX[q]) + ""
R = (-0.5, 1.5)
A11: x(R)
A12: y(R)
A13: 1
rr: {{A11}, {A12}, {A13}}
rr': (rov * rr)
R': (Element[rr', 1, 1], Element[rr', 2, 1])
u = Vector(R, R')