Take the 2-minute tour ×
Mathematica Stack Exchange is a question and answer site for users of Mathematica. It's 100% free, no registration required.

How can I plot3D cylinders $y=1-x^2, y=1+x^2$ and planes $2x+2y-z=10, x+y+z=2$ in a coordinates system?(with Mathematica)

share|improve this question

closed as off-topic by Öskå, eldo, ubpdqn, Simon Woods, RunnyKine Aug 17 at 15:58

This question appears to be off-topic. The users who voted to close gave this specific reason:

  • "This question arises due to a simple mistake such as a trivial syntax error, incorrect capitalization, spelling mistake, or other typographical error and is unlikely to help any future visitors, or else it is easily found in the documentation." – Öskå, eldo, ubpdqn, Simon Woods, RunnyKine
If this question can be reworded to fit the rules in the help center, please edit the question.

    
Have you tried anything or you just want the answer magically brought to you? –  Öskå Aug 17 at 12:22
    
I can not plot cylinders. Of course I can not plot any implicit functions with Mathematica. How do I plot implicit functions in 3D? –  bigli Aug 17 at 12:30
1  
@bigli ContourPlot3D can be used for the cylinders and Plot3D for the planes then combine the graphics with Show –  ubpdqn Aug 17 at 12:32
    
@ubpdqn: Please, Do it for me that I look(and understand) it how can do it, practically. I do not know Mathematica very well. –  bigli Aug 17 at 12:38
1  
@bigli As ubpdqn said, look for ContourPlot3D, copy the first line of the docs, replace it by your equations and voilà. Learn from the docs. –  Öskå Aug 17 at 12:53

1 Answer 1

Finaly, I plotted them with your hints. Thanks a lot.

Show[
  Plot3D[{2 x + 2 y + 10, 2 - x - y}, {x, -2, 2}, {y, -2, 2}], 
  ContourPlot3D[{x^2 - 1 - y == 0, 1 - x^2 - y == 0}, {x, -2, 2}, {y, -2, 2}, {z, -20, 20}]]

Mathematica graphics

share|improve this answer
1  
See, it wasn't so hard :-) –  Öskå Aug 17 at 13:06
    
Presumably, what you want is the central core (RegionPlot3D portion of following): Show[ Plot3D[{2 x + 2 y + 10, 2 - x - y}, {x, -2, 2}, {y, -2, 2}, PlotStyle -> Opacity[.5]], ContourPlot3D[ {x^2 - 1 - y == 0, 1 - x^2 - y == 0}, {x, -2, 2}, {y, -2, 2}, {z, -20, 20}, ContourStyle -> Opacity[.5]], RegionPlot3D[ x^2 - 1 - y < 0 && 1 - x^2 - y > 0 && z < 2 x + 2 y + 10 && z > 2 - x - y, {x, -2, 2}, {y, -2, 2}, {z, -1, 20}, PlotStyle -> Red, PlotPoints -> 51]] –  Bob Hanlon Aug 17 at 13:50

Not the answer you're looking for? Browse other questions tagged or ask your own question.