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

P + λ d

\begin{array}{} x=3+\lambda \ y=-1+4\lambda \ z=5+2\lambda \end{array} 

\begin{array}{} x=p_1+d_1\lambda \ y=p_2+d_2\lambda \ z=p_3+d_3\lambda \end{array} 

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)
texto1: "P=" + (LaTeX[P]) + ""
texto6: "\overrightarrow{d} =(" + (LaTeX[x(d)]) + "," + (LaTeX[y(d)]) + "," + (LaTeX[z(d)]) + ")"
λ = 2.5 (slider from -5 to 5, step 0.1)
X: P + (λ * d)
λd = Vector(P, X)
OP = Vector(O, P)
OX = Vector(O, X)
lista1 = Sequence(P + (k * d), k, 1, λ)
lista2 = Sequence(P + (k * d), k, -1, λ, -1)

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)