Acciones

Diferencia entre revisiones de «Calcular un determinante 4x4»

De Software Libre para la Enseñanza y el Aprendizaje de las Matemáticas (2010-11)

(Página creada con 'M:matrix[(a,a,a,a],[2,a,a,a],[3,2,a,a],[4,3,2,a]); determinant(A);')
 
 
(No se muestran 3 ediciones intermedias de 2 usuarios)
Línea 1: Línea 1:
M:matrix[(a,a,a,a],[2,a,a,a],[3,2,a,a],[4,3,2,a]); determinant(A);
+
 
 +
Calcular un determinante 4x4
 +
 
 +
(%i1) matrix[(a,a,a,a],[2,a,a,a],[3,2,a,a],[4,3,2,a])$
 +
(%i2) determinant(%);
 +
(%o2) a*(a*(a^2-2*a)+a^2+(4-3*a)*a)-a*(2*(a^2-2*a)+a^2+(6-4*a)*a)+a*(a^2-a)-a*(-(6-4*a)*a+a+2*(4-3*a))
 +
(%i3) ratsimp(%);
 +
(%o3) a^4-6*a^3+12*a^2-8*a

Revisión actual del 13:16 26 abr 2011

Calcular un determinante 4x4

(%i1) matrix[(a,a,a,a],[2,a,a,a],[3,2,a,a],[4,3,2,a])$
(%i2) determinant(%);
(%o2) a*(a*(a^2-2*a)+a^2+(4-3*a)*a)-a*(2*(a^2-2*a)+a^2+(6-4*a)*a)+a*(a^2-a)-a*(-(6-4*a)*a+a+2*(4-3*a))
(%i3) ratsimp(%);
(%o3) a^4-6*a^3+12*a^2-8*a