New in Wolfram
Mathematica
8: Modelado de grafos y de redes
◄
previous
|
next
►
Áreas de aplicación
Construya redes semánticas
Construcción de un grafo de sinónimos de dos pasos para computación con la semántica de las palabras en
Mathematica
8.
In[1]:=
X
edges = Flatten[ Rest[NestList[ Union[Flatten[ Thread[# -> WordData[#, "Synonyms", "List"]] & /@ Last /@ #]] &, {"" -> "network"}, 2]]];
In[2]:=
X
style = {VertexLabels -> "Name", ImagePadding -> 25, ImageSize -> 500, GraphStyle -> "ThickEdge", EdgeStyle -> Directive[Opacity[0.3], Thickness[0.015], Hue[0.12, 1, .7]]};
In[3]:=
X
Graph[edges, style]
Out[3]=