(%i4) u :[ 7, 11, 20, - 9] ;
A : matrix([ - 1, - 3, 0, 1],[ 3, 5, 8, - 3],[ 0, - 1, 2, 1]) ;
rank( A) ;
rank( addrow( A, u)) ;
(u) [ 7 , 11 , 20 , 9 ] (A) [ 1 3 0 1 3 5 8 3 0 1 2 1 ] (%o3) 3 (%o4) 3
(%i5) X : addcol( ident( 4), addrow( A, u)) ;
(X) [ 1 0 0 0 1 3 0 1 0 1 0 0 3 5 8 3 0 0 1 0 0 1 2 1 0 0 0 1 7 11 20 9 ]
(%i6) X : rowop( X, 2, 1, - 3) ;
0 errores, 0 advertencias (X) [ 1 0 0 0 1 3 0 1 3 1 0 0 0 4 8 0 0 0 1 0 0 1 2 1 0 0 0 1 7 11 20 9 ]
(%i7) X : rowop( X, 4, 1, - 7) ;
(X) [ 1 0 0 0 1 3 0 1 3 1 0 0 0 4 8 0 0 0 1 0 0 1 2 1 7 0 0 1 0 10 20 2 ]
(%i8) X : rowop( X, 3, 2, 1 / 4) ;
(X) [ 1 0 0 0 1 3 0 1 3 1 0 0 0 4 8 0 3 4 1 4 1 0 0 0 0 1 7 0 0 1 0 10 20 2 ]
(%i9) X : rowop( X, 4, 2, 10 / 4) ;
(X) [ 1 0 0 0 1 3 0 1 3 1 0 0 0 4 8 0 3 4 1 4 1 0 0 0 0 1 1 2 5 2 0 1 0 0 0 2 ]
(%i10) X : rowop( X, 4, 3, - 2) ;
(X) [ 1 0 0 0 1 3 0 1 3 1 0 0 0 4 8 0 3 4 1 4 1 0 0 0 0 1 2 3 2 1 0 0 0 0 ]

Created with wxMaxima.