RevolutionPlot3D[1-(1-(1-x)^(2/3))^(3/2),{x,0,1}]