Novos Recursos do
Mathematica
8: Análises de Grafos & Redes
◄
anterior
|
próximo
►
Áreas de Aplicação
Estude redes de ruas urbanas
Combine o
WolframAlpha
e a funcionalidade de processamento de imagens do
Mathematica
8 para construir e analisar uma rede de ruas. Este exemplo mostra um bairro em um mapa de uma cidade.
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]=