Wolfram
Mathematica
8의 신기능: 그래프 및 네트워크 모델링
◄
이전
|
다음
►
응용 분야
시맨틱 네트워크 설계
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]=