EjrALGcoseno01

(%i6)

A : matrix([ 1, 2],[ 0, - 1]) $
B : matrix([ 0, - 1],[ 1, 3]) $
AB : mat_trace( transpose( B). A) $
normA : sqrt( mat_trace( transpose( A). A)) $
normB : sqrt( mat_trace( transpose( B). B)) $
print( "cos(", A, ",", B, ")=", AB /(( normA) *( normB))) $

\begin{matrix} 0 errores, 0 advertencias \\ cos([\begin{matrix} 1 & 2 \\ 0 & - 1 \end{matrix}], [\begin{matrix} 0 & - 1 \\ 1 & 3 \end{matrix}])= - \frac{5}{\sqrt{6} \sqrt{11}} \end{matrix}

(%i7)

round( % * 1000) / 1000, numer ;

\begin{matrix} (%o7) & - 0.615 \end{matrix}

Created with wxMaxima.