$\vec{n}$

$\vec{p}$

$\vec{n}$

n3 = 4 (slider from -5 to 5, step 1)
n2 = 3 (slider from -5 to 5, step 1)
n1 = -1 (slider from -5 to 5, step 1)
p3 = 5 (slider from -5 to 5, step 1)
p2 = 0 (slider from -5 to 5, step 1)
p1 = 0 (slider from -5 to 5, step 1)
P: (p1, p2, p3)
n: (n1, n2, n3)
u = If(x(n) ≟ 0, (1, 0, 0), If[y(n) ≟ 0, (0, 1, 0), If[z(n) ≟ 0, (0, 0, 1), ((-y(n)), x(n), 0)]])
v: n ⊗ u
v0: v / abs(v)
u0: u / abs(u)
Q1: P + (8 * u0) + (8 * v0)
Q3: P - (8 * u0) - (8 * v0)
Q4: P + (8 * u0) - (8 * v0)
Q2: P - (8 * u0) + (8 * v0)
v1, q2, q3, q4, q1 = Polygon(Q2, Q3, Q4, Q1)
a: (u0 * n)
b: (v0 * n)
c: (u0 * v0)
p: (p1, p2, p3)
N: P + n
w = Vector(P, N)
A = Point(zAxis)
B = Point(xAxis)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
d, 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)
Text1: "\vec{p} = \begin{pmatrix} " + (LaTeX[p1]) + " \\ " + (LaTeX[p2]) + " \\ " + (LaTeX[p3]) + "
 \end{pmatrix}"
Text2: "\vec{n} = \begin{pmatrix} " + (LaTeX[n1]) + " \\ " + (LaTeX[n2]) + " \\ " + (LaTeX[n3]) + " \end{pmatrix}"