I am trying to plot a set up for a classic problem of physics of fluids using Mathematica, see Wikipedia for a reference.
The problem is the movement of two concentric cylinders with two radii and velocities, as is shown in the figure.
I could generate two concentric cylinders using the following lines
u1 = ContourPlot3D[4 == x^2 + y^2, {x, -3, 3}, {y, -3, 3}, {z, -2, 2},
Mesh -> None, PlotPoints -> 20, ColorFunction -> Black];
u2 = ContourPlot3D[x^2 + y^2 == 1, {x, -3, 3}, {y, -3, 3}, {z, -2, 2},
Mesh -> None, ColorFunction -> Blue];
Show[{u1, u2}]
It is possible to add vectors, radii, velocities? Any suggestions are welcome.