Sincerely, I am new in Mathematica, I checked all the previous post.
The idea is to plot a 3D Bessel function with a 2D projection
They can be generated as follows.
Plot3D[BesselJ[0, Sqrt[x^2 + y^2]], {x, -10, 10}, {y, -10, 10},
ColorFunction -> "Rainbow"]
DensityPlot[BesselJ[0, Sqrt[x^2 + y^2]], {x, -10, 10}, {y, -10, 10},
PlotPoints -> 100, ColorFunction -> "Rainbow",
PerformanceGoal -> "Quality"]
The final goal is to obtain a similar picture as was included