If it helps, i know it's on the first octant (everything is positive)
x=[0,1]
y=[0,1]
z>0
It seems like a sphere of radius 2 on the first octant, but then they put which is the projection of a circle on the first quadrant (because x belongs to [0,1]) of radius 1.
So i'ts kind of weird. If it is what i think, they might as well have put a cylinder z=[0,1] and then the rest of the sphere of radius 2 above it, being all values positive (first octant).
How can it be an ellipsoid?
I was thinking about it and:
The sphere is centered on the origin, and has radius 2 which means by the time z reaches (counting from 2) the radius is already on 1. From until z=0, the sphere has to be "cut" so that the projection on the xy plane doesnt pass the quarter circle of radius, making the part of the solid below z= a quarter of a cylinder.
Please contradict me.
Pretty messy . . . but I like making plots. Here's the Mathematica code, and as usual, I've converted it to Raw input form so I can cut and paste it so that you can if you want, just cut and paste this code directly into Mathematica and if you want, convert it back to standard form by selecting it, then choose Cell/Convert To/Standard Form. Also, if you download it to a Mathematica version before ver 7, there may be some downward-compatability issues but not sure.
Code:plane1 = Graphics3D[Polygon[ {{3, 3, 0}, {-3, 3, 0}, {-3, -3, 0}, {3, -3, 0}}]]; plane2 = ContourPlot3D[y == 0, {x, 0, 1}, {y, 0, 1}, {z, 0, 2}, RegionFunction -> Function[{x, y, z}, 0 <= x <= 1 && 0 <= z <= Sqrt[4 - x^2]], ContourStyle -> {Opacity[0.2], Green}, Mesh -> None] plane3 = ContourPlot3D[x^2 + y^2 == 1, {x, 0, 1}, {y, 0, 1}, {z, 0, 2}, RegionFunction -> Function[{x, y, z}, 0 <= x <= 1 && 0 <= y <= 1 && 0 <= z <= Sqrt[4 - x^2 - y^2]], ContourStyle -> {Opacity[0.2], Green}, Mesh -> None] c1trace = ContourPlot3D[ {x^2 + y^2 + z^2 == 4}, {x, -3, 3}, {y, -3, 3}, {z, -3, 3}, ContourStyle -> {LightRed}, Mesh -> None, RegionFunction -> Function[{x, y, z}, z > 0 && 0 <= y <= 1 && 0 <= x <= Sqrt[1 - y^2]]] c1 = ContourPlot3D[{x^2 + y^2 + z^2 == 4}, {x, -3, 3}, {y, -3, 3}, {z, -3, 3}, ContourStyle -> {Opacity[0.4], LightRed}, Mesh -> None] axes = Graphics3D[ {{Line[{{-3, 0, 0}, {3, 0, 0}}], Line[{{0, 3, 0}, {0, -3, 0}}]}}]; p1 = ParametricPlot3D[{t, Sqrt[1 - t^2], 0}, {t, 0, 1}]; Show[{c1, c1trace, plane1, p1, axes, plane2, plane3}, PlotRange -> {{-2, 2}, {-2, 2}, {-2, 2}}, Boxed -> False]