Plot3D[Sqrt[1-x^2-y^2],{x,-1,1},{y,-1,1},BoxRatios->{2,2,1},PlotStyle->Opacity[0.4]]