EjrALGdist01

(%i4)

A : matrix([ 1, 2],[ 0, - 1]) $
B : matrix([ 0, - 1],[ 1, 3]) $
AmB : mat_trace( transpose(( B - A)).( B - A)) $
print( "dist(", A, ",", B, ")=", sqrt( AmB)) $

\begin{matrix} 0 errores, 0 advertencias \\ dist([\begin{matrix} 1 & 2 \\ 0 & - 1 \end{matrix}], [\begin{matrix} 0 & - 1 \\ 1 & 3 \end{matrix}])= 3^{\frac{3}{2}} \end{matrix}

(%i5)

round( % * 1000) / 1000, numer ;

\begin{matrix} (%o5) & 5.196 \end{matrix}

Created with wxMaxima.