5 ms·
Kinda the same thing in the Wolfram Language: With[{ geopositions = ParallelMap[ First[ StringCases[ URLFetch["http://www.teslamo
by carlob 11y ago
Kinda the same thing in the Wolfram Language:
With[{
geopositions = ParallelMap[
First[
StringCases[
URLFetch["http://www.teslamotors.com" <> #],
("https://maps.google.com/maps?daddr=" ~~ a: Except["\""]..) :> Interpreter["StructuredGeoCoordinates"][a]
]
]&,
StringCases[
URLFetch["http://www.teslamotors.com/findus/list/superchargers/United+States"],
"/findus/location/supercharger/" ~~ WordCharacter..
]
]},
GeoGraphics[GeoPath[geopositions[[Last[FindShortestTour[geopositions]]]]]]
]
and the result
http://imgur.com/THIwnIY http://imgur.com/THIwnIY
- joehuchette 11y agoI believe they also use Concorde behind the scenes to actually solve the TSP instance.