Новое в системе Wolfram Mathematica 9 › Анализ социальных сетей

Статистический анализ социальной сети Slashdot

Использование сильных возможностей системы Mathematica по теории вероятностей и статистике для анализа социальной сети вокруг сайта Slashdot, сайта техногенных новостей, известного своеобразным сообществом своих пользователей.

In[1]:=

In[2]:=

distPlot[emdist_, lndist_, pdist_] :=
 Block[{pstyle = {Red, Directive[Thick, Darker[Blue]], 
     Directive[Thick, Darker[Green], Dashing[{Medium, Small}]] }, 
   plots, listplot},
  plots = 
   LogLinearPlot[{CDF[lndist, x], CDF[pdist, x]} // Evaluate, {x, 5, 
     1500}, PlotStyle -> pstyle[[2 ;;]]];
  listplot = 
   ListLogLinearPlot[{Table[{x, CDF[emdist, x]}, {x, 
       DistributionDomain[emdist]}]}, PlotRange -> All, 
    PlotMarkers -> {Graphics[{pstyle[[1]], Circle[{0, 0}, 1]}], 0.03}];
  Legended[
   Show[{plots, listplot}, ImageSize -> 400, Frame -> True, 
    GridLinesStyle -> Directive[GrayLevel[.8]], 
    GridLines -> Automatic], 
   Placed[SwatchLegend[pstyle, {"data", "log-normal", "pareto"}, 
     LegendMarkers -> {Graphics[{Red, Circle[{0, 0}, 1]}], 
       Graphics[{Line[{{0, 0}, {2, 0}}]}], 
       Graphics[{Line[{{0, 0}, {2, 0}}]}]}, 
     LegendMarkerSize -> {8, {20, 10}, {20, 10}}, 
     LegendFunction -> "Frame", 
     Background -> White], {{.98, .03}, {1, 0}}]]
  ]

Импортирование данных и построение сети друг/недруг.

In[3]:=

In[4]:=

Нахождение основных статистических величин.

In[5]:=

Out[5]//TraditionalForm=

Анализ распределения степеней входящих рёбер.

In[6]:=

In[7]:=

Out[7]=