1
|
2575 Views
|
1 Reply
|
2 Total Likes
View groups...
Share
Share this post:
GROUPS:

# How to plot these curves?

Posted 11 years ago
 how can i plot this using Mathematica?
1 Reply
Sort By:
Posted 11 years ago
 Hi, a = Plot3D[{x^2 + 3 y^2}, {x, -2, 2}, {y, -2, 2},    RegionFunction ->      Function[{x, y, z},  8 - x^2 - y^2 >=  x^2 + 3 y^2],    BoxRatios -> Automatic , Mesh -> None, PlotStyle -> Opacity[0.8],     PlotRange -> {{-2, 2}, {-2, 2}, {0, 8}}]; b = Plot3D[{8 - x^2 - y^2}, {x, -2, 2}, {y, -2, 2},    RegionFunction ->      Function[{x, y, z}, x^2 + 3 y^2 <=  8 - x^2 - y^2],    BoxRatios -> Automatic , Mesh -> None, PlotStyle -> Opacity[0.8],    PlotRange -> {{-2, 2}, {-2, 2}, {0, 8}}];c = Plot3D[{0}, {x, -2, 2}, {y, -2, 2},   RegionFunction -> Function[{x, y, z}, x^2 + 2 y^2 <=  4],   BoxRatios -> Automatic , Mesh -> None, PlotStyle -> Opacity[0.8],    PlotRange -> {{-2, 2}, {-2, 2}, {0, 8}}];Show[a, b, c]I.M.
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments