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)

(Determinante 4x4)
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);
 
  
(%i1) M: matrix(
+
 
[a,a,a,a],
+
(%i1) matrix[(a,a,a,a],[2,a,a,a],[3,2,a,a],[4,3,2,a])$
[2,a,a,a],
+
(%i2) determinant(%);
[3,2,a,a],
+
(%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))
[4,3,2,a]
+
(%i3) ratsimp(%);
);
+
(%o3) a^4-6*a^3+12*a^2-8*a
(%o1) 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))
 

Revisión del 10:59 26 abr 2011


(%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