\vec{u}

u_2=

u_1=

\vec{u}=

\vec{v}=

\vec{v}

Ver plano

A = (0, 0, 0)
P:(5, 1, 1)
ver1 = true
u = Vector(A, A + P)
Q:(0, 2, 5)
a_1 = Plane(A, A + P, A + Q)
e = OrthogonalLine((0, 0), a_1)
v = Vector(A, A + Q)
CasillaDeEntrada2 = Textfield(Q)
CasillaDeEntrada1 = Textfield(P)
ejes = 0
α = Angle(u, v)
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)))
zv = If(z(Q)  <  0, "(" + (z(Q)) + ")", "" + (z(Q)))
yv = If(y(Q)  <  0, "(" + (y(Q)) + ")", "" + (y(Q)))
xv = If(x(Q)  <  0, "(" + (x(Q)) + ")", "" + (x(Q)))
textope1: "\vec{u}·\vec{v}=" + (LaTeX[xu]) + "·" + (LaTeX[xv]) + "+" + (LaTeX[yu]) + "·" + (LaTeX[yv]) + "+" + (LaTeX[zu]) + "·" + (LaTeX[zv]) + "=" + (LaTeX[(u * v)]) + ""
textomodu: "\left| \vec{u} \right| =\sqrt{" + (LaTeX[xu]) + "^2+" + (LaTeX[yu]) + "^2+" + (LaTeX[zu]) + "^2}=\sqrt{" + (LaTeX[Length[u]^(2)]) + "}=" + (LaTeX[Length[u]]) + ""
textomodv: "\left| \vec{v} \right| =\sqrt{" + (LaTeX[xv]) + "^2+" + (LaTeX[yv]) + "^2+" + (LaTeX[zv]) + "^2}=\sqrt{" + (LaTeX[Length[v]^(2)]) + "}=" + (LaTeX[Length[v]]) + ""
textocoseno: "cos \; \alpha =\frac{" + (LaTeX[(u * v)]) + "}{" + (LaTeX[Length[u]]) + "·" + (LaTeX[Length[v]]) + "}=" + (LaTeX[cos(α)]) + " \; \; ; \; \; \alpha=" + (LaTeX[α]) + ""
f = false
a = 8 (slider from 1 to 10, step 1)
b, B, C, D, E, F, cara1, cara3, cara2, cara4, cara5, caraCDEF, arista2, arista1, arista4, arista6, arista3, aristaBF, aristaCF, aristaCD, arista5, aristaDE, arista7, aristaEF = Cube((0, 0, 0), (a, 0, 0), (a, a, 0))