I never used Mathematica to plot something that can be considered non-trivial. I want to create a plot similar to the one used here on the left, but with an equal (symmetric) cone on the bottom hemisphere, with a plane cutting the two hemispheres creating the two equal opposite spherical caps, and perhaps using some nice translucent effects. I am a bit lost. Could you please suggest any reference/link that I can study to achieve my goal?
$\begingroup$ $\endgroup$
Add a comment |
1 Answer
$\begingroup$ $\endgroup$
3 Something like;
theta = Pi/4; Graphics3D[{Opacity[0.2], Sphere[], Cone[{{0, 0, Cos[theta]}, {0, 0, 0}}, Sin[theta]], Cone[{{0, 0, -Cos[theta]}, {0, 0, 0}}, Sin[theta]], Cylinder[{{0, 0, -10^-6}, {0, 0, 10^-6}}, 1] }] 
- $\begingroup$ Wow, so quick! Thank you! Yes, something like this. Do you know how I can remove the edges of the big cube enclosing the whole picture? $\endgroup$Penelope Benenati– Penelope Benenati2020-12-23 16:58:08 +00:00Commented Dec 23, 2020 at 16:58
- 1$\begingroup$ Use: Boxed -> False $\endgroup$Daniel Huber– Daniel Huber2020-12-23 17:01:55 +00:00Commented Dec 23, 2020 at 17:01
- $\begingroup$ Thank you Daniel ! $\endgroup$Penelope Benenati– Penelope Benenati2020-12-23 17:02:22 +00:00Commented Dec 23, 2020 at 17:02