R语言也可以求解矩阵的鞍点

 1 矩阵的鞍点，要求是在行中最大值，所在列中的最小值

Saddle_Point <- function(A)
{
  re <- NULL
  for (i in 1:nrow(A)) 
  {
    for (j in ncol(A)) 
    {
      if(A[i,j] == max(A[i,])&A[i,j] == min(A[,j]))
      {
        re <- c(A[i,j],re)
      }
    }
  }
  re
}

2 运行例题

da <- matrix(c(1,2,45,34,45,34,34,3,423,3,35,34),ncol = 4)
#没有鞍点
da1 <- matrix(c(2,3,8,4,5,9,6,7,10),ncol = 3,byrow = TRUE) 
#鞍点是8