Kolineácia - 4 dvojice odpovedajúcich bodov (Výpočet v CAS)
Author: Hanzel

Polohu bodov A,A', ... môžete meniť!

\text{Určite maticu kolineácie, ktorá je určená 4 dvojicami odpovedájúcich bodov }A,A', ...

Bod A

Bod A'

Bod B

Bod B'

Bod C

Bod C'

Bod D

Bod D'

Bod L

A = (0, 0)
A6: x(A)
A7: y(A)
A8: 0
A' = (1, 2)
B6: x(A')
B7: y(A')
B8: 1
B = (-1, 1)
A10: x(B)
A11: y(B)
A12: 1
B' = (-2, 0)
B10: x(B')
B11: y(B')
B12: 1
C = (4, 1)
A14: x(C)
A15: y(C)
A16: 1
C' = (3, 0)
B14: x(C')
B15: y(C')
B16: 1
D = (5, 0)
A19: x(D)
A20: y(D)
A21: 1
D' = (6, 1)
B19: x(D')
B20: y(D')
B21: 1
Ma: {A6, A7, A8}
ma: {{A6}, {A7}, {A8}}
Maa: {B6, B7, B8}
l1: {B10, B11, B12}
Mb: {A10, A11, A12}
mb: {{A10}, {A11}, {A12}}
Mbb: {B10, B11, B12}
Mc: {A14, A15, A16}
mc: {{A14}, {A15}, {A16}}
Mcc: {B14, B15, B16}
md: {{A19}, {A20}, {A21}}
Md: {A19, A20, A21}
Mdd: {B19, B20, B21}
text3: "\text{Matica kolineácie }" + (LaTeX[MM]) + ""
L = (3, 3)
A24: x(L)
A25: y(L)
A26: 1
ml: {{A24}, {A25}, {A26}}
mll: (MM * ml)
L': (Element[mll, 1, 1] / Element[mll, 3, 1], Element[mll, 2, 1] / Element[mll, 3, 1])
text1 = SurdText(L')
text2: "L'=" + (LaTeX[text1]) + ""
u = Vector(L, L')