web-dev-qa-db-fra.com

Graphique 3D / tracé / visualisation

Quelqu'un pourrait-il me dire comment obtenir WolframAlpha pour tracer/tracer/afficher un graphique de ceci:

16<=x^2+y^2+z^2<=25 ; x,=0

Cela n'a pas fonctionné:

3dplot[x^2+y^2+z^2]
wolfram-alpha
2
Crosley33
Manipulate[
 RegionPlot3D[
  16 <= x^2 + y^2 + z^2 <= 25,
  {y, -5, 5}, {z, -5, 5}, {x, -5, xs},
  PlotRange -> {{-5, 5}, {-5, 5}, {-5, 5}},
  AxesLabel -> Automatic],
 {{xs, 0, "x Cross Section"}, -4.5, 5, 0.5,
  Appearance -> "Labeled"}]

Manipulate[
 RegionPlot[
  16 <= x^2 + y^2 + z^2 <= 25,
  {y, -5, 5}, {z, -5, 5},
  PlotRange -> {{-5.5, 5.5}, {-5.5, 5.5}},
  FrameLabel -> Automatic],
 {{x, 0, "x Cross Section"}, -4.5, 4.5, .5,
  Appearance -> "Labeled"}]

Je n'ai pu obtenir qu'un tracé 2D de WolframAlpha

WolframAlpha[
 "plot 16 <= x^2 + y^2 + z^2 <= 25 with 
 x = 0, y = -5 to 5, z = -5 to 5"]
1
Bob Hanlon