-2

The surface I want to plot is $z^2 + r^2 = 25\, \theta$.

Please tell me how to do it in Mathematica.

m_goldberg
  • 107,779
  • 16
  • 103
  • 257

1 Answers1

2

Brandon: You could modify the example given in: How do I make a 3DPlot using cylindrical coordinates? as follows:

cylinderPlot3D[f_, {rMin_, rMax_}, {\[Theta]Min_, \[Theta]Max_},opts___] :=ParametricPlot3D[{r Cos[\[Theta]], r Sin[\[Theta]],f[r, \[Theta]]}, {r, rMin, rMax}, {\[Theta], \[Theta]Min, \[Theta]Max}, opts]

g[r_, \[Theta]_] := Sqrt[25 \[Theta] - r^2];

cylinderPlot3D[g, {0, 1}, {0, 2 Pi}, Mesh -> None, Boxed -> True]