mathematica generated graph