DM2 | Lab 4 [Matrici]

1. Да се внесат две матрици A и B од ред m x n. Секој елемент од матриците, вклучувајќи ги и m и n, треба да се внесат од тастатура и да се извршат следните операции:

а) А + B
б) A – B
в) Да се најде транспонирана од B и истата да се помножи со А
г) Да се пресмета збирот од елементите по дијагоналата од двете матрици
--------------------------------------------------
a = Input["vnesi a"]
b = Input["vnesi b"]
Prva = Table[Input["Vnesi elementi na prva matrica"], {i, a}, {j, b}]
Prva // MatrixForm
Vtora = Table[Input["Vnesi elementi na vtora matrica"], {i, a}, {j, b}]
Vtora // MatrixForm
Print[MatrixForm[Prva], "+", MatrixForm[Vtora], "=",
 MatrixForm[Prva + Vtora]]
Print[MatrixForm[Prva], "-", MatrixForm[Vtora], "=",
 MatrixForm[Prva - Vtora]]
Prva*Transpose[Vtora] // MatrixForm
Print["Zbir na elementi po dijagonala na prva matrica: ", Tr[Prva]]
Print["Zbir na elementi po dijagonala na vtora matrica: ", Tr[Vtora]]
--------------------------------------------------
2. Да се креира квадратна матрица од ред n, каде n и секој елемент од матрицата корисникот го внесува од тастатура:

а) Да се пресмета детерминантата
б) Да се постави услов кој ќе проверува дали може да се најде инверзна матрица на внесената матрица и истата да се испечати
в) Да се соберат сите парни елементи од матрицата
--------------------------------------------------
n = Input["vnesi n"]
M = Table[Input["Vnesi elementi na prva matrica"], {i, n}, {j, n}]
M // MatrixForm
Print["Determinanta na matricata e: ", Det[M]]
suma = 0;
For[i = 1, i <= m, i++,
 For[j = 1, j <= n, j++,
  If[Mod[M[[i, j]], 2] == 0, suma = suma + M[[i, j]]];]]

Print[suma]
Print["Inverzna matrica: ", Inverse[M] // MatrixForm]
--------------------------------------------------