maxMV <- function(M) {
    Nlinhas <- dim(M)[1]
    i <- 1
    meuMax <- M[1,1]
    while (i <= Nlinhas) {
        maxLinha = maxV(M[i,])
        if (meuMax < maxLinha) {
            meuMax = maxLinha
        }    
        i <- i+1
    }
    return(meuMax)
}