Acciones

Calcular la distancia entre el punto P y la recta r

De Software Libre para la Enseñanza y el Aprendizaje de las Matemáticas (2010-11)

Enunciado:

Calcular la distancia entre el punto P y la recta r:

P = (2,0,1)

r ≡ (x+2)/2 = y/1 = (z-2)/2

Solución:

(%i1) load(vect)$
(%i2) modulo(v):=sqrt(apply("+",v^2))$
(%i3) dist(A,P,v):=modulo(express((v~(P-A))))/modulo(v)$
(%i4) A:[-2,0,2]$P:[2,0,1]$v:[2,1,2]$
(%i7) dist(A,P,v);
(%o7) sqrt(13)
(%i8) float(%), numer;
(%o8) 3.605551275463989