wxdraw2d(explicit(x^2,x,-3,3), color="red", explicit(4,x,-3,3), color="black", points([-2, 2],[4, 4]), label(["(-2,0)", -2, 3.5],["(2,0)", 2, 3.5]))$