Afinné TriBody

M_s

m⁻¹

\textbf{Transformačné rovnice }

E_1 = (1, 0)
O = (0, 0)
E_2 = (0, 1)
E'_2 = (1, 4)
O' = (1, 2)
E'_1 = (3, 2)
t1, c, a, b = Polygon(E_1, E_2, O)
t2, c', a', b' = Polygon(E'_1, E'_2, O')
A1: x(E_1)
A2: y(E_1)
B1: x(E_2)
B2: y(E_2)
C1: x(O)
C2: y(O)
A3: 1
B3: 1
C3: 1
A6: x(E'_1)
A7: y(E'_1)
B6: x(E'_2)
B7: y(E'_2)
C6: x(O')
C7: y(O')
A8: 1
B8: 1
C8: 1
m: {{A1, B1, C1}, {A2, B2, C2}, {A3, B3, C3}}
text3: "\textbf{Matica vzorov } \\\\" + (LaTeX[m]) + ""
m': {{A6, B6, C6}, {A7, B7, C7}, {A8, B8, C8}}
text4: "\textbf{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 = (-1, -1)
A11: x(R)
A12: y(R)
A13: 1
rrbod: {{A11}, {A12}, {A13}}
rr'bod: (rov * rrbod)
R': (Element[rr'bod, 1, 1], Element[rr'bod, 2, 1])
u = Vector(R, R')
A15 = Element(rov, 1, 1)
A16 = Element(rov, 2, 1)
B15 = Element(rov, 1, 2)
B16 = Element(rov, 2, 2)
C15 = Element(rov, 1, 3)
C16 = Element(rov, 2, 3)
mTran: {{A15, B15}, {A16, B16}}
mVekt: {{C15}, {C16}}
text5: "\text{Transformačná matica}\\ \\" + (LaTeX[mTran]) + ""
text6: "\text{Vektor posunutia }\\ \\ " + (LaTeX[mVekt]) + ""