# Tag Info

Try this. h = 1; a = 4 Pi; R = 1; Show[ParametricPlot3D[{r Cos[a th], r Sin[a th], th}, {r, 0, R}, {th, 0, h}, PlotPoints -> 50], ParametricPlot3D[{R Cos[u], R Sin[u], v}, {u, 0, 2 Pi}, {v, 0, h}, PlotStyle -> {Opacity[.5, Red]}, Mesh -> None]] Here $h$ is the height of the cylinder, $R$ is the radius of the cylinder, and $a$ is how ...