TSP в R, но соединяется с квадратной сеткой
library(sp)
library(tspmeta)
TSP225 <- read.csv("PLOT.csv")
coords.df <- data.frame(long=TSP225$Long, lat=TSP225$Lat)
coords.mx <- as.matrix(coords.df)
# Compute distance matrix
dist.mx <- dist(coords.mx)
# Construct a TSP object
tsp.ins <- tsp_instance(coords.mx, dist.mx )
#
tour <- run_solver(tsp.ins, method="2-opt")
#Plot
autoplot(tsp.ins, tour)
tour_length(tour)
Является ли мой текущий код и когда я запускаю его с PLOT.csv с координатами x / y графика 100X100, я получаю длину тура 1178.742 Проблема в том, что сеть находится в квадратной сетке, что означает, что она не может перемещаться по диагонали. Есть ли код, по которому я могу ограничить перемещение только по прямой линии до следующего узла?
любая помощь будет отличной, спасибо!