p1:=plot::Tube([0,0,t],t=-1..1,RadiusFunction=t^2,Mesh=[5,51])

math

 

plot(p1,Axes=None)

MuPAD graphics