S=ParallelTable[Plot3D[PDF[MultinormalDistribution[{1,1},{{1,r},{r,1}}],{x,y}],{x,-3,4},{y,-3,4},PlotRange->All,MeshFunctions->{#3&},PlotPoints->50],{r,{0,0.6}}]