WOLFRAM

Wolfram 语言与系统参考资料中心

研究市区道路网络

结合 Wolfram|Alpha 和图像处理功能创建并分析一个路网. 这里显示了一个城市地图中的社区.

    
Wolfram Language code: image = WolframAlpha["Champaign IL", {{"Map:CityData", 1}, "Image"}, PodStates -> {"5 miles across"}]; image = ImageCrop[image, {256, 256}, Left]; graph = MorphologicalGraph[Binarize[ColorNegate[image]], EdgeStyle -> GrayLevel[.3], VertexStyle -> PointSize[.003]];
Wolfram Language code: Row[{image, Spacer[20], HighlightGraph[graph, {Style[1201, Directive[PointSize[.03], Magenta]], NeighborhoodGraph[graph, 1201, 12]}, ImageSize -> {256, 256}]}]