# Plot a 3D function defined in cylindrical coordinates with azimuthal symmetry

I have a function defined in cylindrical coordinates

rho[r_, z_] :=  2 E^(-(z^2/200))BesselJ[0,0.16 r] (-0.025 + 1/100 (1 +2 Log[E^(-(z^2/200)) BesselJ[0, 0.16 r]]));


This function is defined in a system with azimuthal symmetry, thus the system has no theta dependence. How will I plot such function in mathematica

• Please check SphericalPlot3D. – Αλέξανδρος Ζεγγ Nov 14 '18 at 5:15
• The sphericalplot3D plots effectively if you have theta dependence. Here I do not have a theta dependence. – Hari Krishnan Nov 14 '18 at 6:09
• Use DensityPlot3D and write **r**=sqt(x^2+y^2) – HD2006 Nov 14 '18 at 8:44
• Check this – HD2006 Nov 14 '18 at 8:50