add my personal social network analysis, code copied from wolfram mathematica 9 tutorial