Funcion angulo entre vectores. Scilab

Funcion en Scilab para calcular el angulo entres dos vectores, en radianes y en grados:

 function [x,y]=angulovectores(a1, b1)
 x=acos(a1*b1'/(norm(a1)*norm(b1)))
 y=180/%pi*x 
endfunction 

 Ejemplo de utilizacion en Scilab con los vectores (1,1,1) y (2,3,5):

 -->function [x,y]=angulovectores(a1, b1)
--> x=acos(a1*b1'/(norm(a1)*norm(b1)))
--> y=180/%pi*x
 -->endfunction
 -->[radianes,grados]=angulovectores([1 1 1], [2 3 5])
 grados = 20.514127
 radianes = 0.3580391