Tratamos de deducir las coordenadas del polinomio \(3X^3-2X^2+X-1\) respecto de la base \(\{1-X^3,X-X^3,X^2-X^3,2X^3\}\)

Para nuestro propósito, consideremos la apliación de los polinomios de grado 3 los vectores de \(\mathbb{R}^4\) daad por:

(%i3) expr : rat([ p_0, p_1, p_2, p_3]. matrix([ 1],[ X],[ X ^ 2],[ X ^ 3]), X) $
h( p) : =[ coeff( p, X, 0), coeff( p, X, 1), coeff( p, X, 2), coeff( p, X, 3)] $
print( "h(", expr, ")=", h( expr)) $
h( p 3 X 3 + p 2 X 2 + p 1 X + p 0 )= [ p 0 , p 1 , p 2 , p 3 ]

La matriz del cambio de base es:

(%i4) base : transpose( matrix( h( 1 - X ^ 3), h( X - X ^ 3), h( X ^ 2 - X ^ 3), h( 2 * X ^ 3))) ;
(base) [ 1 0 0 0 0 1 0 0 0 0 1 0 1 1 1 2 ]

Como las coordenadas del polinomio \(3X^3-2X^2+X-1\) respecto de la base canónica son [-1,1,-2,3], las nuevas coordenadas son:

(%i5) new_coor :( transpose( invert( base). transpose( matrix([ - 1, 1, - 2, 3])))) ;
(new_coor) ( 1 1 2 1 2 )

En efecto,

(%i6) rat( new_coor. matrix([ 1 - X ^ 3],[ X - X ^ 3],[ X ^ 2 - X ^ 3],[ 2 * X ^ 3]), X) ;
(%o6)/R/ 3 X 3 2 X 2 + X 1

Created with wxMaxima.