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

любая помощь будет отличной, спасибо!

0 ответов

Другие вопросы по тегам