\vec{u}

u_1=

\vec{u}=

Ver base

Ver prisma

Ver triángulo 1

Ver triángulo 2

Ver deslizadores

Ver casilla

P

Puedes cambiar el vector 
también arrastrando su punto
extremo (P) en la figura.

u_3 = 4 (slider from -10 to 10, step 0.05)
u_2 = -6 (slider from -10 to 10, step 0.05)
u_1 = 8 (slider from -10 to 10, step 0.05)
P: (u_1, u_2, u_3)
u = Vector(P)
CasillaDeEntrada1 = Textfield(P)
ejes = 0
xu = If(x(P)  <  0, "(" + (x(P)) + ")", "" + (x(P)))
yu = If(y(P)  <  0, "(" + (y(P)) + ")", "" + (y(P)))
zu = If(z(P)  <  0, "(" + (z(P)) + ")", "" + (z(P)))
Q: (x(P), y(P), 0)
a = Segment(P, Q)
A: (x(P), 0, 0)
B: (0, y(P), 0)
O = Intersect(yAxis, xAxis)
polígono1, b, c, d, j = Polygon(Q, B, O, A)
e, C_1, D, E, cara1, cara2, cara3, cara4, cara5, arista1, arista2, arista3, arista4, arista5, arista6, arista7, arista8 = Prism(polígono1, P)
polígono2, b_1, d_1, a_2 = Polygon(O, Q, A)
polígono3, p, d_2, a_3 = Polygon(O, Q, P)
f = true
g = false
h = false
i = false
α = Angle(Q, A, O)
β = Angle(P, Q, O)
texto1: "\vec{u}·\vec{u} =\left| \vec{u}  \right|^2= " + (LaTeX[xu]) + "·" + LaTeX[xu] + " +" + LaTeX[yu] + "·" + LaTeX[yu] + "+" + LaTeX[zu] + "·" + LaTeX[zu] + ""
C: (0, 0, z(P))
vista:2
texto3: "\vec{u}=" + (LaTeX[P]) + ""
P_2: O + u
texto2: "\left| \vec{u} \right| =\sqrt{" + (LaTeX[abs(x(u))]) + "^2+" + LaTeX[abs(y(u))] + "^2+" + LaTeX[abs(z(u))] + "^2}=" + LaTeX[Length[u]] + ""