For the left hand side perhaps start with
ContourPlot[E^-(x^2+y^2), {x,-4,4}, {y,-4,4}, Contours->10, PlotRange->{0,1}, FrameLabel->{"Q","P"}]
and then expect to begin, literally endlessly, playing with all the options to adjust the ColorFunction, Contours, PlotRange, labels, ... trying to get closer and closer to what you want the graphic to look like.
