%@P:maxima1

%@M:
\def\det{\renewenvironment{pmatrix}{\begin{vmatrix}}{\end{vmatrix}}}

\textbf{Calcul de déterminants}

Voici une instruction pour mettre en forme le calcul d'un déterminant.

.m 
cdet([m]) := block(
        [mat:substpart(matrix,m,0)],
        'determinant(mat)=factor(determinant(mat))
);
.f

Et son usage.

.m cdet([1,1,1],[a,b,c],[a^2,b^2,c^2]);

.m cdet([1,x,x],[x,1,x],[x,x,1]);

.m cdet([a,b,c],[b,c,a],[c,a,b]);

.m cdet([(b-c)^2,b^2,c^2],[a^2,(c-a)^2,c^2],[a^2,b^2,(a-b)^2]);