$a_0$

$A_1$

$A_2$

$A_0$

$B_1$

$B_2$

$B_0$

M_s

m⁻¹

\text{Afinné zobrazenie}

$M$

$M'$

$sam$

\text{Pohybujte trojuholníkmi alebo vrcholmi trojuholníkov.}

a_1 = 0.2 (slider from -1 to 1, step 0.1)
a_0 = 0.5 (slider from -1 to 1, step 0.1)
a_2: 1 - a_0 - a_1
B = (2, 0)
C = (0, 2)
A = (0, 0)
B' = (3, 1)
C' = (1, 3)
A' = (3, 3)
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
maticavstup: {{A1, B1, C1}, {A2, B2, C2}, {A3, B3, C3}}
text3: "\text{Matica vzorov } \\\\" + (LaTeX[maticavstup]) + ""
maticavystup: {{A6, B6, C6}, {A7, B7, C7}, {A8, B8, C8}}
text4: "\text{Matica obrazov } \\\\ " + (LaTeX[maticavystup]) + ""
matinverz: maticavstup^(-1)
rovnice: (maticavystup * matinverz)
a11 = SurdText(Element[rovnice, 1, 1])
a21 = SurdText(Element[rovnice, 2, 1])
b12 = SurdText(Element[rovnice, 1, 2])
b22 = SurdText(Element[rovnice, 2, 2])
p = SurdText(Element[rovnice, 1, 3])
q = SurdText(Element[rovnice, 2, 3])
b2 = If(Element[rovnice, 2, 2] < 0, " ", "+")
p1 = If(Element[rovnice, 1, 3] < 0, " ", "+")
b1 = If(Element[rovnice, 1, 2] < 0, " ", "+")
p2 = If(Element[rovnice, 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: (a_0 * A) + (a_1 * B) + (a_2 * C)
A11: x(R)
A12: y(R)
A13: 1
rrbod: {{A11}, {A12}, {A13}}
rr'bod: (rovnice * rrbod)
R': (Element[rr'bod, 1, 1], Element[rr'bod, 2, 1])
u = Vector(R, R')
sam1: ((Element[rovnice, 1, 1] - 1) * x) + (Element[rovnice, 1, 2] * y) + Element[rovnice, 1, 3] = 0
sam2: (Element[rovnice, 2, 1] * x) + ((Element[rovnice, 2, 2] - 1) * y) + Element[rovnice, 2, 3] = 0
SAM = If(sam1 ≠ sam2, Intersect[sam1, sam2])
text5: "\text{ Množina samodružných bodov}\\\\
 \ \;  \; \text{SAM: }   \left\{   " + (LaTeX[sam1]) + "  \right\} "
text6: "\text{ Množina samodružných bodov}\\\\
 \ \;  \; \text{SAM: }    \left\{  " + (LaTeX[SAM]) + "  \right\}  "
text7 = If(sam1 ≟ sam2, text5, text6)
f = Segment(A, R)
g = Segment(R, B)
h = Segment(C, R)
i = Segment(R', C')
j = Segment(R', B')
k = Segment(R', A')
text9: "a_2=1-a_0-a_1=1-" + (LaTeX[a_0]) + "-" + (LaTeX[a_1]) + "=" + (LaTeX[a_2]) + ""