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)

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)
texto1: "P=" + (LaTeX[P]) + ""
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)]) + ")"
texto4: "X\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)]) + "}"
u = (4, -1, 0)
v = (0, 1, -2)
w: u ⊗ v
α = Angle(O + u, O, O + d)
β = Angle(O + v, O, O + 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)