Calcular el ángulo entre los vectores v y w
De Software Libre para la Enseñanza y el Aprendizaje de las Matemáticas (2010-11)
Enunciado:
Calcular el ángulo existente entre los vectores:
v = (-1,0,1)
w = (0,1,-1)
Solución:
(%i1) v:[-1,0,1]$ w:[0,1,-1]$
(%i3) modulo(v):=sqrt(apply("+",v^2))$
(%i4) pasaagrados(r):=(r*180)/ %pi$
(%i5) ang2vect(v,w):=pasaagrados(acos((v.w)/(modulo(v)*modulo(w))))$
(%i6) ang2vect(v,w),numer;
(%o6) 120.0