WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

意味ネットワークを構築する

単語の意味で計算を行う2ステップの類義語グラフを構築する．

    
Wolfram Language code: edges = Flatten[Rest[NestList[Union[Flatten[Thread[# -> WordData[#, "Synonyms", "List"]]& /@ Last /@ #]]&, {"" -> "network"}, 2]]];
Wolfram Language code: style = {VertexLabels -> "Name", ImagePadding -> 30, ImageSize -> 500, PlotTheme -> "ThickEdge", EdgeStyle -> Directive[Opacity[0.3], Thickness[0.015], Hue[0.12, 1, .7]]};
Wolfram Language code: Graph[edges, style]