0
$\begingroup$

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?

$\endgroup$
4
$\begingroup$

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]
  }]

enter image description here

$\endgroup$
3
  • $\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$ Dec 23 '20 at 16:58
  • 1
    $\begingroup$ Use: Boxed -> False $\endgroup$ Dec 23 '20 at 17:01
  • $\begingroup$ Thank you Daniel ! $\endgroup$ Dec 23 '20 at 17:02

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

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