TSP в R, но соединяется с квадратной сеткой - PullRequest
0 голосов
/ 28 октября 2018
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 enter image description here Проблема в том, что сетьнаходится в квадратной сетке, что означает, что он не может двигаться по диагонали.Есть ли код, в котором я могу ограничить перемещение только по прямой линии к следующему узлу?

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

...