A=

B=

AB_x

AB_y

AB_z

Componentes del vector AB

Ortoedro

Aleja

Acerca

Cáculo de d(A,B)

\overrightarrow{AB}

A = (-6, 4, -1)
B = (4, -4, 4)
AB = Vector(A, B)
u_x: x(AB)
u_y: y(AB)
u_z: z(AB)
C: A + (u_x, 0, 0)
h = Segment(A, C)
D: A + (0, u_y, 0)
i = Segment(A, D)
E: A + (0, 0, u_z)
j = Segment(A, E)
F: C + E - A
poli1, e, f, c, a = Polygon(E, F, C, A)
E' = Translate(E, Vector[A, D])
b, G, H, I, caraEE'GF, caraCFGH, caraACHI, caraAEE'I, caraE'GHI, aristaEE', aristaFG, aristaCH, aristaAI, aristaE'G, aristaGH, aristaHI, aristaE'I = Prism(poli1, E')
CasillaDeEntrada1 = Textfield(A)
CasillaDeEntrada2 = Textfield(B)
a_1: x(A)
a_2: y(A)
a_3: z(A)
b_1: x(B)
b_2: y(B)
b_3: z(B)
dis: u_x^(2) + u_y^(2) + u_z^(2)
textoan: "(" + (LaTeX[a_1]) + ")"
textoap: "" + (LaTeX[a_1]) + ""
textoa = If(a_1 < 0, textoan, textoap)
textoa2p: "" + (LaTeX[a_2]) + ""
textoa2n: "(" + (LaTeX[a_2]) + ")"
textoa2 = If(a_2 < 0, textoa2n, textoa2p)
textoa3p: "" + (LaTeX[a_3]) + ""
textoa3n: "\left( " + (LaTeX[a_3]) + "  \right) "
textoa3 = If(a_3 < 0, textoa3n, textoa3p)
textouxp: "" + (LaTeX[u_x]) + ""
textouxn: "\left( " + (LaTeX[u_x]) + "  \right) "
textoux = If(u_x < 0, textouxn, textouxp)
textouyp: "" + (LaTeX[u_y]) + ""
textouyn: "\left( " + (LaTeX[u_y]) + "  \right) "
textouy = If(u_y < 0, textouyn, textouyp)
textouzp: "" + (LaTeX[u_z]) + ""
textouzn: "\left( " + (LaTeX[u_z]) + "  \right) "
textouz = If(u_z < 0, textouzn, textouzp)
texto1: "d(A,B)=\left|\overrightarrow{AB}  \right| =\sqrt{" + (LaTeX[textoux]) + "^{2}+" + (LaTeX[textouy]) + "^{2}+" + (LaTeX[textouz]) + "^{2}}=\sqrt{" + (LaTeX[dis]) + "}"
v = Vector(A, C)
J = Intersect(i, aristaHI)
w = Vector(A, J)
d = Vector(A, E)
g: false
k = false
rota = 0 (slider from 0 to 1, step 0.05)
texto2_1: "\overrightarrow{AB}=\left(" + (LaTeX[u_x]) + "," + (LaTeX[u_y]) + "," + (LaTeX[u_z]) + "   \right) "
l = false
m = Segment(A, B)