Coordenadas cartesianas de un punto en el espacio

Cambiando las coordenadas del punto (a la izquierda) podrás observar cómo se actualiza su posición.
Y recíprocanmente, moviendo el punto (en la zona gráfica de la derecha) podrás observar cómo se actualizan sus coordenadas (a la izquierda).

El 4º botoncito de arriba facilita el movimiento

Ver rectángulo

X=(x,y,z)

X\in{}r \Longleftrightarrow{} \overrightarrow{PX} \,es \, paralelo\, a \overrightarrow{d}

X=(x, y, z)

\frac{x- p_1}{d_1 }=\frac{y-p_2}{ d_2}=\frac{z- p_3}{d_3 }

O = Intersect(zAxis, xOyPlane)
j = false
P = (3, -1, 5)
l, rectangulo = rectan(P, O)
d = (1, 4, 2)
polígono1, a, b, c, e = Polygon((x(P), y(P), 0), (0, y(P), 0), O, (x(P), 0, 0))
f, A, B, C, cara3, cara1, cara2, cara4, caraABCP, arista1, arista2, aristaBO, arista3, aristaAP, aristaAB, aristaBC, aristaCP = Prism(polígono1, P)
r = Line(P, d)
X = Point(r)
PX = Vector(P, X)
Q = (-7.728071507742346, 8.257440322180088, 4.452250878791562)
PQ = Vector(P, Q)
texto1: "P=" + (LaTeX[P]) + ""
texto4: "P\in{}r \Longleftrightarrow{} \frac{x-" + (LaTeX[x(P)]) + "}{" + (LaTeX[x(d)]) + "}=\frac{y+1}{" + (LaTeX[y(d)]) + "}=\frac{z-" + (LaTeX[z(P)]) + "}{" + (LaTeX[z(d)]) + "}"
texto5: "\overrightarrow{PX} =(x-" + (LaTeX[x(P)]) + ",  \space y+1, \space z-" + (LaTeX[z(P)]) + ") "
texto6: "\overrightarrow{d} =(" + (LaTeX[x(d)]) + "," + (LaTeX[y(d)]) + "," + (LaTeX[z(d)]) + ")"

Tool: rectan
poner el punto y luego O: rectan[P,O]
Input: P, O
Output: a, polígono1

P': (x(P), y(P), 0)
a = Segment(P, P')
A: (x(P), 0, 0)
B: (0, y(P), 0)
polígono1, d, e, f, g = Polygon(P', B, O, A)