People Mentioned in Stephen Wolfram’s “A New Kind of Science”

Source Notebook

Listing of all people mentioned in historical and other notes in “A New Kind of Science”

The countries given for people are based on countries currently at the relevant geographic locations.

The printed book included death dates only for people who died up to 2002.

(6 columns, 487 rows)

Examples

Basic Examples

Retrieve the default content:

In[1]:=

$ResourceData["People Mentioned in Stephen Wolfram\[CloseCurlyQuote]s \ \[OpenCurlyDoubleQuote]A New Kind of Science\[CloseCurlyDoubleQuote]"]$

Out[1]=

Analysis

Total number of people mentioned:

In[2]:=

$Length[ResourceData[ "People Mentioned in Stephen Wolfram\[CloseCurlyQuote]s \ \[OpenCurlyDoubleQuote]A New Kind of \ Science\[CloseCurlyDoubleQuote]"]]$

Out[2]=

Make a word cloud of the countries from which NKS people come:

In[3]:=

$WordCloud@ Flatten@Normal@ ResourceData[ "People Mentioned in Stephen Wolfram\[CloseCurlyQuote]s \ \[OpenCurlyDoubleQuote]A New Kind of \ Science\[CloseCurlyDoubleQuote]"][[All, "Countries"]]$

Out[3]=

Plot a histogram of birth years:

In[4]:=

$Histogram[ DateValue[ Normal[ResourceData[ "People Mentioned in Stephen Wolfram\[CloseCurlyQuote]s \ \[OpenCurlyDoubleQuote]A New Kind of \ Science\[CloseCurlyDoubleQuote]"][All, "BirthYear"]], "Year"], PlotRange -> All]$

Out[4]=

In[5]:=

Out[5]=

Fraction of people referenced who are deceased:

In[6]:=

$N[Length[DeleteMissing[ ResourceData[ "People Mentioned in Stephen Wolfram\[CloseCurlyQuote]s \ \[OpenCurlyDoubleQuote]A New Kind of \ Science\[CloseCurlyDoubleQuote]"][All, "DeathYear"]]]/ Length[ResourceData[ "People Mentioned in Stephen Wolfram\[CloseCurlyQuote]s \ \[OpenCurlyDoubleQuote]A New Kind of \ Science\[CloseCurlyDoubleQuote]"]]]$

Out[6]=

Histogram of ages at death of people referenced:

In[7]:=

$#DeathYear["Year"] - #BirthYear["Year"] & /@ Normal[Select[ ResourceData[ "People Mentioned in Stephen Wolfram\[CloseCurlyQuote]s \ \[OpenCurlyDoubleQuote]A New Kind of \ Science\[CloseCurlyDoubleQuote]"], ! MissingQ[#DeathYear] &]] // Histogram$

Out[7]=

Make the corresponding plot for people who died before 1800:

In[8]:=

Out[8]=

Make word clouds of countries by century of birth:

In[9]:=

$ResourceData[\!$\* TagBox[ RowBox[{"ResourceObject", "[", "\"\<People Mentioned in Stephen Wolfram\[CloseCurlyQuote]s \ \[OpenCurlyDoubleQuote]A New Kind of \ Science\[CloseCurlyDoubleQuote]\>\"", "]"}], #& , BoxID -> "ResourceTag-People Mentioned in Stephen Wolfram's "A New \ Kind of Science"-Input", AutoDelete->True]$][ GroupBy[Round[DateValue[#BirthYear, "Year"], 100] &], All, "Countries"] // KeySort@*KeySelect[# >= 1500 &]@*Map[WordCloud[Flatten@#] &]$

Out[9]=

Show the top 20 people by the number of pages on which they are mentioned:

In[10]:=

$Reverse@SortBy[Last]@ ResourceData[ "People Mentioned in Stephen Wolfram\[CloseCurlyQuote]s \ \[OpenCurlyDoubleQuote]A New Kind of \ Science\[CloseCurlyDoubleQuote]"][ TakeLargestBy[Length[Flatten@#RelatedTopics[[All, "Pages"]]] &, 20], {#Name, Length[#RelatedTopics]} &]$

Out[10]=

Plot the number of mentions of people in each 10-page section of the book:

In[11]:=

$Histogram[ Select[ResourceData[ "People Mentioned in Stephen Wolfram\[CloseCurlyQuote]s \ \[OpenCurlyDoubleQuote]A New Kind of \ Science\[CloseCurlyDoubleQuote]"][Flatten, "RelatedTopics", All, "Pages"], NumberQ], {10}]$

Out[11]=

Bibliographic Citation

Wolfram Research, "People Mentioned in Stephen Wolfram’s “A New Kind of Science”" from the Wolfram Data Repository (2017) https://doi.org/10.24097/wolfram.64419.data

Data Resource History

Date Created: 18 April 2017

Source Metadata

Creator: Stephen Wolfram
Source: https://www.wolframscience.com/nksonline/index/names
Citation: Stephen Wolfram, "A New Kind of Science" (2002)

Data Downloads

Publisher Information

Publisher of Record: Wolfram Research