2
$\begingroup$

How can I graph the solid that lies above the cone $z=\sqrt{x^2+y^2}$ and below the sphere $x^2+y^2+z^2=z$?

I tried SphericalPlot3D[1, {\[Theta], 0, \[Pi]/4}, {\[Rho], 0, 2}] which doesn't give me a solid, how do I do this?

Sorry I am a beginner with mathematica

$\endgroup$
3
$\begingroup$

Try

RegionPlot3D[z >= Sqrt[x^2 + y^2] && x^2 + y^2 + z^2 <= z, {x, -.5, .5}, {y, -.5, .5}, {z, 0, 1}]

enter image description here

| improve this answer | |
$\endgroup$
  • $\begingroup$ What if I want to use spherical coordinates? $\endgroup$ – suomynonA Aug 20 '19 at 6:03
  • $\begingroup$ You could define an ParametricRegion for the sphere in spherical coordineates. But the cartesian formulation is much more easy. I think! $\endgroup$ – Ulrich Neumann Aug 20 '19 at 7:52
  • $\begingroup$ Can you show me the spherical method for it please? $\endgroup$ – suomynonA Aug 21 '19 at 0:41
  • $\begingroup$ Try something linke halfsphere = ParametricRegion[{r {Sin[\[Theta]] Cos[\[Phi]], Sin[\[Theta]] Sin[\[Phi]], Cos[\[Theta]]} + {0, 0, 1/2}, (0 <= r <= 1/2) && (0 <= \[Theta] <= Pi/2) && (-Pi <= \[Phi] <= Pi) }, {r, \[Theta], \[Phi]}] . Should work in MMA v12 (Sorry I couldn't test it in v11) $\endgroup$ – Ulrich Neumann Aug 21 '19 at 7:57
2
$\begingroup$

You can also combine two RevolutionPlot3Ds using Show:

Show[RevolutionPlot3D[{t, t}, {t, 0, 1/2}], 
  RevolutionPlot3D[{Cos[t] / 2, Sin[t] / 2 + 1/2}, {t, 0, Pi}], 
  PlotRange -> All]

enter image description here

| improve this answer | |
$\endgroup$
2
$\begingroup$

You asked to do this in spherical coordinates so see if this is good enough for you.

r[phi_,theta_]:=Piecewise[{
  {0,Pi/4<phi<Pi/2},
  {10*phi+1-5/2*Pi,Pi/4-1/10<phi<Pi/4},
  {1,0<phi<Pi/4-1/10}}];
SphericalPlot3D[r[phi,theta],{phi,0,Pi/2},{theta,0,2Pi},PlotPoints->100]

That r is zero outside the range of the cone, increases rapidly to make up the surface of the cone and then is 1 to make up the sphere on top of the cone.

That doesn't give a perfect cone because the tip and junction between the cone and the sphere aren't well rendered in the plot. You can increase the PlotPoints to make this better.

EDIT

Better rendering while still using SphericalPlot3D

Show[SphericalPlot3D[10*phi+1-5/2*Pi,{phi,Pi/4-.1,Pi/4},{theta,0,2Pi},PlotRange->{0,1}],
  SphericalPlot3D[1,{phi,0,Pi/4},{theta,0,2Pi},PlotRange->{0,1}]]

You could use this method to graph a variety of surfaces in spherical coordinates.

As a hint, I found the coefficients of -10*phi+5/2*Pi by Solve[{m (Pi/4-1/10)+b == 0, m Pi/4+b == 1},{m,b}]

| improve this answer | |
$\endgroup$

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.