EjrALGdist03

(%i4)

p : 1 + 2 * x - 3 * x ^ 2 $
q : - 2 - x + x ^ 2 $
pmq : integrate(( p - q) ^ 2, x, 0, 1) $
print( "dist(", p, ",", q, ")=", sqrt( pmq)) $

\begin{matrix} dist(- 3 x^{2} + 2 x + 1, x^{2} - x - 2)= \frac{\sqrt{51}}{\sqrt{5}} \end{matrix}

(%i5)

round( % * 1000) / 1000, numer ;

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

Created with wxMaxima.