Message Boards Message Boards

1
|
2354 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?
POSTED BY: Cicero Freire
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.
POSTED BY: Ivan Morozov
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract