added mathematica graph output