WolframのWebサイトのコンテンツとインタラクトしたりフォームを送信したりするためには，JavaScriptを有効にしてください．有効にする方法

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}]}]

Top