matrice12n
(* somma e differenza matrici *)
A={{-1,4,3},{2,1,6},{-5,1,0}};
B={{2,1,-1},{-3,4,5},{2,2,0}};
MatrixForm[A+B] (* commutativa *)
MatrixForm[B+A] (* commutativa *)
MatrixForm[A-B] (* prima + opposto seconda *)
MatrixForm[B-A] (* prima + opposto seconda *)
MatrixForm[{{1, 5, 2}, {-1, 5, 11}, {-3, 3, 0}}]
;[o]
1 5 2
-1 5 11
-3 3 0
MatrixForm[{{1, 5, 2}, {-1, 5, 11}, {-3, 3, 0}}]
;[o]
1 5 2
-1 5 11
-3 3 0
MatrixForm[{{-3, 3, 4}, {5, -3, 1}, {-7, -1, 0}}]
;[o]
-3 3 4
5 -3 1
-7 -1 0
MatrixForm[{{3, -3, -4}, {-5, 3, -1}, {7, 1, 0}}]
;[o]
3 -3 -4
-5 3 -1
7 1 0
:[font = input; preserveAspect; cellOutline; startGroup; ]
(* prodotto DOT tra matrici *)
MatrixForm[A.B]
MatrixForm[B.A]
MatrixForm[{{-8, 21, 21}, {13, 18, 3}, {-13, -1, 10}}]
;[o]
-8 21 21
13 18 3
-13 -1 10
MatrixForm[{{5, 8, 12}, {-14, -3, 15}, {2, 10, 18}}]
;[o]
5 8 12
-14 -3 15
2 10 18
(* prodotto matrici per costante e somma *)
MatrixForm[3 A+2 B]
MatrixForm[{{1, 14, 7}, {0, 11, 28}, {-11, 7, 0}}]
;[o]
1 14 7
0 11 28
-11 7 0