c=4;
d=7;
P1=ParametricPlot3D[{{t-c/2,0,(t-c/2)^2+c*(t-c/2)+d},{-c/2,t,-t^2-c^2/4+d}},{t,-3,3}]