It's ContourPlot, not CounterPlot: ContourPlot[(p - 1)^2 + (s - 1)^2 - 2 (0.46) (s - 1) == 0, {p, 0, 20}, {s, 0, 20}]
