Para verificar se o polígono é regular, você precisa da distância de todos os pontos, inclusive do "último" ponto do seu polígono para o "primeiro" - nos exemplos do código abaixo, se você não "fechar" o polígono, você terá um resultado incorreto no primeiro caso.
E nesse caso você não precisa da função apply
. dist
já te dá a distância entre todos os pontos, então o que você precisa é pegar a diagonal da parte inferior (ou superior) da matriz que ela te retorna.
E como @JJoao notou, a condição de lados iguais é necessária, mas não suficiente para que o polígono seja regular. Todos os seus ângulos precisam ser idênticos também. Uma forma de se verificar isso, dado que os lados são iguais, é verificar que o centro do polígono é equidistante de todos os pontos. O código atualizado está abaixo.
verifica_lados_iguais <- function(poligono) {
no_vertices <- nrow(poligono)
poligono_fechado <- rbind(poligono, poligono[1])
distancias <- diag(as.matrix(dist(poligono_fechado))[1:no_vertices, 2:(no_vertices + 1)])
lados_iguais <- all(distancias == distancias[1])
}
verifica_equidistancia_centro <- function(poligono) {
c <- apply(poligono, 2, sum) / nrow(poligono)
dist_centro <- apply(poligono, 1, function(p) sqrt((c[1] - p[1])^2 + (c[2] - p[2])^2))
equidistanteCentro <- all((abs(dist_centro - dist_centro[1]) < 0.00001))
}
verifica_regular <- function(poligono) {
regular <- verifica_lados_iguais(poligono) &&
verifica_equidistancia_centro(poligono)
}
print(quadrilatero <- matrix(c(0, 0, 0, 5, 5, 5, 2, 1), ncol = 2, byrow = TRUE))
print(verifica_regular(quadrilatero))
print(quadrado <- matrix(c(0, 0, 0, 5, 5, 5, 5, 0), ncol = 2, byrow = TRUE))
print(verifica_regular(quadrado))
print(losango <- matrix(c(0, 0, 2, 1, 4, 0, 2, -1), ncol = 2, byrow = TRUE))
print(verifica_regular(losango))