Write down the vector function representing the intersection curve of surfaces y = x^2 and z = 2x

Step1: Graph the surface y = x^2

parab=ParametricPlot3D[{x,x^2,z},{x,-2,2},{z,0,5},AxesLabel -> {"x", "y", "z"}]

Step2: Graph the surface z = 2x

plane = ParametricPlot3D[{x,y,2x},{x,-4,4},{y,0,5},AxesLabel -> {"x", "y", "z"}]

Step3: Graph two surfaces

Show[parab,plane]

Step4: Graph the intersection given by <t,t^2,2t>

ParametricPlot3D[{t,t^2,2t},{t,0,3},AxesLabel -> {"x", "y", "z"}]