
ParametricPlot3D[{x,x^(3/2)*Cos[w],x^(3/2)*Sin[w]},{x,0,4},{w,0,2Pi},
 BoxRatios->{1,1,0.4},
 AxesLabel->{"x","y","z"}
];



(*
<<Graphics`SurfaceOfRevolution`;
SurfaceOfRevolution[x^(3/2), {x, 0, 4}, 
 AxesLabel->{"x","y","z"}
] ;
*)
