network generated in mathematica