AfinneOtacanie

α

S = (0, 0)
E_1 = Point(xAxis)
E_2 = Point(yAxis)
T_a = SurdText(E_1)
u = Vector(S, E_1)
D = Point(u)
v = Vector(D, E_2)
α = 0.5235987755982988 rad (slider from 0 to 180°, step 15°)
text6: "\text{Uhol otáčania }α=" + (LaTeX[α]) + ""
E'_2 = Rotate(E_2, α, S)
E'_1 = Rotate(E_1, α, S)
w = Vector(S, E'_1)
e = Vector(S, E'_2)
β = Angle(E_1, S, E'_1)
d = Circle(S, E_1)
γ = Angle(E_2, S, E'_2)
a = SurdText(cos(α))
b = SurdText(sin(α))
text8: " " + (LaTeX[T_a]) + ""
text7: "\left(" + (LaTeX[a]) + " ," + (LaTeX[b]) + " \right) "
text1 = SurdText(E'_2)
A1: 0
A2: 0
A3: 1
B1: 1
B2: 0
B3: 1
C1: 0
C2: 1
C3: 1
A8: 1
B8: 1
C6: x(E'_2)
C7: y(E'_2)
B7: y(E'_1)
B6: x(E'_1)
A6: 0
A7: 0
C8: 1
M: {{A1, B1, C1}, {A2, B2, C2}, {A3, B3, C3}}
M': {{A6, B6, C6}, {A7, B7, C7}, {A8, B8, C8}}
R: (M' * Invert[M])
text9: "M\left(\begin{array}{}  " + (LaTeX[a]) + " &- " + (LaTeX[b]) + "  \\" + (LaTeX[b]) + "   &  " + (LaTeX[a]) + " \\ \end{array}   \right)   "