A = Intersect(yAxis, zAxis)
B = Point(xAxis)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
a, D, E, F, G, H, FlächeABCD, FlächeADHE, FlächeABFE, FlächeBCGF, FlächeCDHG, FlächeEFGH, KanteAD, KanteAB, KanteBC, KanteCD, KanteAE, KanteDH, KanteEH, KanteEF, KanteBF, KanteFG, KanteCG, KanteGH = Cube(A, B, C)
I = Midpoint(A, B)
J = Midpoint(B, C)
K = Midpoint(C, D)
L = Midpoint(D, A)
M = Midpoint(A, E)
N = Midpoint(B, F)
O = Midpoint(C, G)
P = Midpoint(D, H)
Q = Midpoint(E, F)
R = Midpoint(F, G)
S = Midpoint(G, H)
T = Midpoint(H, E)
U: (4, 2, 0)
V = (4, 3, 4)
u = Vector(U, V)
b: abs(u)
Text1: "| \overrightarrow{ UV } | = \sqrt{(" + (LaTeX[x(u)]) + ")^2+(" + (LaTeX[y(u)]) + ")^2+(" + (LaTeX[z(u)]) + ")^2}=" + (LaTeX[b]) + ""