Message Boards Message Boards

Bob Dylan's Nobel Prize & Infinite Universe

As many of you already know, the breaking news today was Bob Dylan and his Nobel Prize in Literature. You can also take a look at New York Times announcement. Somehow, maybe because Bob conquered a global ocean of hearts and changed the mind of modern society, this sounds very exciting and calls for a celebration. So what can we do to celebrate a computational way? I challenge you, ladies and gentlemen, to come up with an idea, piece of code, visualization and more to pay our tribute to one of the greatest voices of our generation. Here is an example.

Bob Dylan Infinite Universe

Bob interacted with our culture so much his impact can hardly be measured. But we can take a look at Wikipedia data of his page connectivity to other pages. Even going just 2 levels deep and limiting 100 inter-page links per page we get the whole Universe of Bob Dylan. You can get lost by rolling over the nodes of the network. Infinitely. Well, almost. Watch animation and see if you can recognize some names. Please also look through the comments way down to observe more of the visible Universe ;-)

linksTO=WikipediaData["Bob Dylan","BacklinksRules","MaxLevelItems"->100,"MaxLevel"->2];
linksFROM=WikipediaData["Bob Dylan","LinksRules","MaxLevelItems"->100,"MaxLevel"->2];

Graph[Union[Join[linksTO, linksFROM]], 
    VertexLabels -> Placed["Name", Tooltip], VertexSize -> Scaled[.01], 
    DirectedEdges -> False, Background -> Black, 
    EdgeStyle -> Directive[White, Opacity[.5]], 
    VertexStyle -> Directive[Red, Opacity[.8]]]

enter image description here

POSTED BY: Vitaliy Kaurov
4 Replies
POSTED BY: Alan Joyce
POSTED BY: Jason Biggs
POSTED BY: Alan Joyce
POSTED BY: Amy Friedman
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract