How do I draw a vector field of a parabolic velocity profile as in http://goo.gl/2bpTCM? I tried `\[Mu] = 0.002;
R0 = 0.1;
dpdz = 13;
VectorPlot[
-(R0^2/(4 \[Mu]) ) (dpdz)[1 - (x/R0)^2] + 0*y,
{x, 0, 0.1},
{y, 0, 1}
]`, but obviously my thinking if flawed...