Graphics[{Dashed,Circle[{-2.714498518443727,2.9996347219645134},1.85]}]
ListPlot[{{-0.9332447059264193`,2.5}},PlotStyle->{Yellow},PlotRange->{{-7,7},{-7,7}},Axes->False,AspectRatio->1]
ListPlot[{{-2.714498518443727,2.9996347219645134}},PlotMarkers->{"1","2","3","4","5"},PlotStyle->{{Black,20},{Black,Larger},{Black,Larger},{Black,Larger},{Black,Larger}},PlotRange->{{-7,7},{-7,7}},Axes->False,AspectRatio->1]
Show[%,%%,%%%]

Export["1.eps",%350,"EPS"]