Plot[{x*x/2,1.5},{x,-2,2}]