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

Enunciado:

Calcular la distancia entre las rectas:

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

s ≡ x/4 = y+1/3 = z/2

Solución:

(%i1) load(vect)$
(%i2) modulo(v):=sqrt(apply("+",v^2))$

(%i3) dist2rectas(P,Q,u,v):=abs(determinant(matrix(u,v,(Q-P))))/modulo(express(u~v))$
(%i4) P:[-2,1,5]$Q:[0,-1,0]$u:[2,3,4]$v:[4,3,2]$
(%i5) dist2rectas(P,Q,u,v);
(%o5) 1/sqrt(6)

(%i6) float(1/sqrt(6)), numer;
(%o6) 0.40824829046386