Wolfram
Mathematica
8의 신기능: 그래프 및 네트워크 분석
◄
이전
|
다음
►
응용 분야
도시 도로망 연구
WolframAlpha
와 Mathematica 8의 이미지 처리 기능을 조합하여 도로망을 셀계하고 분석할 수 있습니다. 다음은 도시 지도의 한 지역을 나타낸 것입니다.
In[1]:=
X
image = WolframAlpha["Champaign IL", {{"Map:CityData", 1}, "Image"}];
In[2]:=
X
graph = MorphologicalGraph[Binarize[ColorNegate[image]], EdgeStyle -> Gray];
In[3]:=
X
Row[{image, Spacer[20], HighlightGraph[graph, NeighborhoodGraph[graph, 1800, 10], ImageSize -> {256, 278}, VertexSize -> {1800 -> 10}]}]
Out[3]=