WOLFRAM

Wolfram 语言与系统参考资料中心

建立语义网络

建立计算单词语义的两步同义词图网络.

    
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]