可视化 Wolfram 语言: Wolfram 语言 11 的新功能

可视化 Wolfram 语言

Wolfram 语言和 Wolfram knowledgebase 的关系构造可以用几种有趣方法进行可视化. 在该范例中，你可以创建体现该关系的词汇云、计算性探索并收集资料的输入，以及可视化作为 Wolfram 语言符号一部分使用的人物姓名的相关地点和时间.

WolframLanguageData 文档中出现词语的词汇云.

In[1]:=

WordCloud[
 DeleteStopwords[
  Flatten[TextWords[
    WolframLanguageData["WolframLanguageData", "TextStrings"]]]]]

Out[1]=

创建 Plot 基本文档中范例输出图形的拼图.

In[2]:=

ImageCollage[
 Cases[WolframLanguageData["Plot", "DocumentationBasicExamples"], 
  c : Cell[_, "Output", ___] :> Rasterize[RawBoxes[c]], \[Infinity]], 
 ImagePadding -> 10, Background -> Transparent]

Out[2]=

创建 Plot 全部文档范例输出图形的拼图.

显示完整的 Wolfram 语言输入

In[3]:=

evaluate[l_List] := 
 Module[{p}, 
  p = l /. RawBoxes[Cell[BoxData[wlc_], "Input", ___]] :> 
     ToExpression[wlc, StandardForm, Hold];
  Block[Evaluate[
    Select[Union[Cases[p, _Symbol, {-1}]], 
     Quiet[Context[#] === "Global`"] &]], ReleaseHold /@ p]]

In[4]:=

ImageCollage[
  Rasterize[#, ImageSize -> 100] & /@ 
   Cases[Flatten[
     evaluate /@ 
      Flatten[WolframLanguageData["Plot", 
         "DocumentationExampleInputs"][[All, -1]], 1]], _Graphics], 
  ImagePadding -> 2] // Quiet

Out[4]=

查看 Wolfram 语言中与 LaplacianGaussianFilter 符号相关人物的图像.

In[5]:=

ImageAssemble[
 PersonData[
  WolframLanguageData["LaplacianGaussianFilter", "EponymousPeople"], 
  "Image"]]

Out[5]=

提取 Wolfram 语言符号命名中出现的人物.

In[6]:=

people = DeleteCases[
   Union[Flatten[
     WolframLanguageData[All, "EponymousPeople"]]], _Missing];

获取其出生的信息.

In[7]:=

placedata = 
  DeleteCases[
   PersonData[
    people, {"Image", "BirthPlace", "Name"}], {_, _Missing, _}];

在世界地图上显示这些地区和其相关人物.

显示完整的 Wolfram 语言输入

In[8]:=

GeoGraphics[
  Tooltip[Point[#2], 
     Column[DeleteCases[{##} /. 
        e_Entity :> CommonName[e], _Missing]]] & @@@ 
   placedata] // Quiet

Out[8]=

提取 Wolfram 语言符号中命名人物的出生和死亡日期..

In[9]:=

timedata = 
  Block[{EntityFramework`$EntityValueBatchSize = 300}, 
   DeleteCases[
    PersonData[
     people, {"BirthDate", "DeathDate", "Name", 
      "Image"}], {_Missing, __}]];

创建时间轴绘图.

显示完整的 Wolfram 语言输入

In[10]:=

formatdates[d1_, d2_] := Row[Riffle[Switch[#,
      Missing["Alive"], "present",
      _Missing, "????",
      _, DateString[#, {"MonthName", " ", "DayShort", ", ", "Year"}]
      ] & /@ {d1, d2}, "-"]]

In[11]:=

TimelinePlot[
 Association @@ ((Tooltip[StringSplit[#3, " "][[-1]], 
        Column[{#4, #3, formatdates[#1, #2]}]] -> #1) & @@@ 
    Select[timedata, #[[1]] > DateObject[{1800}] &])]

Out[11]=

Wolfram 语言™

可视化 Wolfram 语言

相关范例