Как сделать обратную матрицу своими собственными функциями - PullRequest
Новая
       13

Как сделать обратную матрицу своими собственными функциями

0 голосов
/ 14 мая 2019

Я пишу код (с R) для решения обратной матрицы с помощью цикла for и моих функций. есть проблемы с написанием предложения for-loop.

Я решаю обратную матрицу с кофакторами с моими функциями. 

##This is my example matrix

    A <- matrix(data = c(1, 3, -4, 5, -2, 1, -1, 3, 3, -2, 2, -1, 4,-1, -3, -1),
            byrow = TRUE,
            nrow = 4, n col = 4)




##This is co factor function
library(functional)

cof = function(A, i, j)
{ stop if not(n col(A) == n row(A))

  det(A[-i,-j])*(-1)^(i+j)
}                         

## this is the problem-writing for loop

n <- nrow(A)
f <- c(n)
f[1] <- 1

for (i in 1:n) {
  for (j in 1:n) {
  f[i,j] <- cof(A, i, j)
  }
}
f

Как я могу назначить моя кофакторная функция (A, i, j) к a (i, j) с 11 до 44 с предложениями цикла for.

Пожалуйста, ПОМОГИТЕ

...