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 Проблема в том, что сетьнаходится в квадратной сетке, что означает, что он не может двигаться по диагонали.Есть ли код, в котором я могу ограничить перемещение только по прямой линии к следующему узлу?
любая помощь будет великолепна, спасибо!