ϕ = 0 rad (slider from 0 to 6.283185307179586, step °)
R_ϕ: {{cos(ϕ), (-sin(ϕ)), 0}, {sin(ϕ), cos(ϕ), 0}, {0, 0, 1}}
θ = 0 rad (slider from 0 to 6.283185307179586, step °)
R_θ: {{cos(θ), 0, (-sin(θ))}, {0, 1, 0}, {sin(θ), 0, cos(θ)}}
φ = 0 rad (slider from 0 to 6.283185307179586, step °)
R_φ: {{1, 0, 0}, {0, cos(φ), (-sin(φ))}, {0, sin(φ), cos(φ)}}
D = Point(zAxis)
C = Point(yAxis)
A = Intersect(xAxis, zAxis)
B = Point(xAxis)
L: {{x(A), y(A), z(A)}, {x(B), y(B), z(B)}, {x(C), y(C), z(C)}, {x(D), y(D), z(D)}}
A1: 1
B1: 0
C1: 0
A2: 0
B2: 1
C2: 0
A3: 0
B3: 0
C3: -1
SS = If(φ ≟ 0, "všechny", "1")
L' = Transpose((((R_ϕ * R_θ) * R_φ) * Transpose[L]))
A': (L'(1, 1), L'(1, 2), L'(1, 3))
B': (L'(2, 1), L'(2, 2), L'(2, 3))
C': (L'(3, 1), L'(3, 2), L'(3, 3))
D': (L'(4, 1), L'(4, 2), L'(4, 3))
a, faceABC, faceABD, faceBCD, faceACD, edgeAB, edgeBC, edgeAC, edgeAD, edgeBD, edgeCD = Pyramid(A, B, C, D)
b, faceA'B'C', faceA'B'D', faceB'C'D', faceA'C'D', edgeA'B', edgeB'C', edgeA'C', edgeA'D', edgeB'D', edgeC'D' = Pyramid(A', B', C', D')
SB1 = NaN
F = Midpoint(C', C)
j = Line(C', C)
k = Line(F, zAxis)
l = Plane(k, j)
n = OrthogonalLine(F, l)
vidp = 1 (slider from -5 to 5, step 0.1)
vidr: 0
vidb: 0
R: ((R_ϕ * R_θ) * R_φ)
text2: "\text{matice transformace}\\" + (LaTeX[R]) + ""